الدرس السادس من دروس تعلم الأوفس(إكسل)

الدرس السادس من دروس تعلم الأوفس(إكسل)

--------------------------------------------------------------------------------



عد الكلمات


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



--------------------------------------------------------------------------------

Sub WordCount()
cell*******s = Trim(ActiveCell .Formula)
cellWordCount = 1
prevCharacter = ""
For i = 1 To Len(cell*******s)
nextCharacter = Mid(cell*******s* 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(cell*******s) = 0 Then
cellWordCount = 0
End If
MsgBox "عدد الكلمات هو:" Str (cellWordCount)
End Sub



--------------------------------------------------------------------------------

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