يعرف معظمنا أن برنامج وورد يوفر وظيفة لعد الكلمات الموجودة في الوثيقة التي تحررها، فماذا عن برنامج إكسل؟
الواقع أن إكسل لا يقدم هذه الوظيفة بشكل افتراضي، وعليك أن تنشئها بنفسك.
ما تحتاجه هو الماكرو التالي:


--------------------------------------------------------------------------------
Sub WordCount()
cellContents = Trim(ActiveCell .Formula)
cellWordCount = 1
prevCharacter = ""
For i = 1 To Len(cellContents)
nextCharacter = Mid(cellContents, i, 1)
If (nextCharacter = " " Or nextCharacter = Chr(10)) And _
(prevCharacter <> " " And prevCharacter <> Chr(10)) Then
cellWordCount = cellWordCount 1
End If
prevCharacter = nextCharacter
Next i
If Len(cellContents) = 0 Then
cellWordCount = 0
End If
MsgBox "عدد الكلمات هو:" Str (cellWordCount)
End Sub
--------------------------------------------------------------------------------

تعدّ شيفرة هذا الماكرو الكلمات الموجودة في الخلية المختارة. وإذا وجد أنك قد اخترت مجالاً، فإنه يعدّ الكلمات في الخلية الفعّالة ضمن ذلك المجال. يقوم برنامج الماكرو بعملية عدّ الكلمات عبر عدّ الفراغات الموجودة بين الكلمات في النص، ورموز الانتقال إلى سطر جديد، الناتجة عن ضغط Alt-Enter، لإنشاء سطر جديد، متجاوزاً الفراغات المتتالية. ويشبه الماكرو وظيفة عدّ الكلمات في وورد بأنه يعامل الكلمات التي تحتوي على واصلة على أنها كلمة واحدة. يمكنك أن تضيف هذا الماكرو إلى ملف إكسل الذي تعمل عليه، وأن تضعه كزر على شريط أدوات إكسل ليكون في متناول يدك سريعاً

شكراااااااااااااااااااااا

اشكرك اخى على الموضوع القيم



http://www.alsaifonline.com/up/uploads/5828719fcc.gif

من السيد محمد البحيبح الساكن ب4 زنقة الخروبة حي نجاح الأمير أسفي
رقم الهاتف:042550471




الموضوع: طلب مساعدة عاجلة

سلام تام بوجود مولانا الإمام

وبعد

يسرني إخوتي الفضلاء أن ابعث إلى موقعكم النبيل رسالتي الاستعجالية هاته ذات طبيعة اجتماعية محضة...فبعد أن تعرفت إلى موقعكم هدا المتميز الذي يحظى بإعجاب الجميع، وبعد متابعة فقراته المتميزة، انتابتني رغبة الكتابة إليكم والتواصل مع بقية المستمعين الأجلاء من خلالكم لأنه في رأيي قاطرة تضامنية اجتماعية إنسانية بامتياز –وهدا ما كتب له الاستمرار و الحياة(أتمنى له دلك)-..

فمشكلتي هي كالتالي

أنا طالب مجاز في شعبة الأدب العربي من جامعة شعيب الدكالي بالجديدة 2005، سني 33 سنة، فقدت أبواي مند مدة كمايلي:

تركتني أمي في السن الثانية ثم بعدها أبي في سن 18 سنة (سن الباكالوريا )، ورغم دلك بدلت جهدي رغم الضر وف الغير الصحية ماديا ومعنويا ضحيت عندها بدمي و لحمي إلى أن حصلت على هده الإجازة المتواضعة واعتبرتها المفتاح السري الذي من خلاله سأفتح آفاق رحبة من مستوى معيشتي وأحسن عبره حالة من العيش الممكن إلا أني أفاجئ بعد كثرة البحث والتحصيل هنا وهناك إلا أن زمننا هدا زمن الرشوة والمحسوبية و..... و(الفاميلة المعرفة)....لدلك أحببت أن ابعث إليكم طلبي –المختصر- عٌلي أجد من يمد لي يد المساعدة والعون لأخرج من دائقثي هاته :كان أجد عملا أو شغلا يدر علي ماديا ما يكفيني حاجياتي اليومية الضرورية...فانا في حاجة ماسة وأكثر مما مضى إلى هدا العون بخاصة وان شيمة التضامن هي من صفات إخوتنا في الله على طول الدهور و الأعوام....فانتم تعلمون أن السن تتقدم بي أكثر فأكثر..وادا استطعتم أخوتي أن تبعثوا لي طلبي هدا إلى الجهات المعنية بالتضامن مع الشباب دوي الحالات الخاصة –كحالتي هاته –فداك من تكرمكم علي وفضلكم..

تقبلوا مني أسمى عبارات التقدير والاحترام وخالص الدعوات لكم بالصحة والعافية ولبقية أفراد طاقمكم المبارك المتعدد، كما أتمنى لهداالموقع الدوام والتفوق إلى الأمام ..انه سميع مجيب

اشارة:

انا على استعداد تام ان اوافيكم بكل الوثائق الضرورية التي تتبث صحة فقري و حاجتي الماسة الى عو نكم