عدّ الكلمات في إكسل

الهوى ماهو كلام · 05-02-2006, 05:18 صباحاً

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

--------------------------------------------------------------------------------
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، لإنشاء سطر جديد، متجاوزاً الفراغات المتتالية. ويشبه الماكرو وظيفة عدّ الكلمات في وورد بأنه يعامل الكلمات التي تحتوي على واصلة على أنها كلمة واحدة. يمكنك أن تضيف هذا الماكرو إلى ملف إكسل الذي تعمل عليه، وأن تضعه كزر على شريط أدوات إكسل ليكون في متناول يدك سريعاً

كرم العربي · 10-07-2006, 04:34 صباحاً

يعطيك العافيه اخوي الهوي ماهو كلام
ويجزاك ربي كل خير

راشد الفضلي · 10-24-2006, 10:11 مساءً

يعطيك العافيه وماقصرت عالمجهووود

alimm · 02-15-2009, 10:16 مساءً

05-02-2006, 05:18 صباحاً	#1 (permalink)
الهوى ماهو كلام اسرة ابن الخليج تاريخ التسجيل: Jul 2005 الدولة: K S A المشاركات: 4,815 معدل تقييم المستوى: 659	عدّ الكلمات في إكسل يعرف معظمنا أن برنامج وورد يوفر وظيفة لعد الكلمات الموجودة في الوثيقة التي تحررها، فماذا عن برنامج إكسل؟ الواقع أن إكسل لا يقدم هذه الوظيفة بشكل افتراضي، وعليك أن تنشئها بنفسك. ما تحتاجه هو الماكرو التالي: -------------------------------------------------------------------------------- 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، لإنشاء سطر جديد، متجاوزاً الفراغات المتتالية. ويشبه الماكرو وظيفة عدّ الكلمات في وورد بأنه يعامل الكلمات التي تحتوي على واصلة على أنها كلمة واحدة. يمكنك أن تضيف هذا الماكرو إلى ملف إكسل الذي تعمل عليه، وأن تضعه كزر على شريط أدوات إكسل ليكون في متناول يدك سريعاً من مواضيع الهوى ماهو كلام في المنتدى القوائم المنسدلة والمنبثقة اضافة المجلدات و الاعضاء في السامبا أكثر من 30 لقطة جهادية رائعة للجوالات !! وضع البرامج في قائمة بدء التشغيل الدالة Case

10-07-2006, 04:34 صباحاً	#2 (permalink)
كرم العربي Gulfson.com تاريخ التسجيل: Apr 2006 الدولة: Egypt المشاركات: 15,092 معدل تقييم المستوى: 53	مشاركة: عدّ الكلمات في إكسل يعطيك العافيه اخوي الهوي ماهو كلام ويجزاك ربي كل خير من مواضيع كرم العربي في المنتدى شرح تركيب الفلاش شات الصندوق السحري برمجة مجهول أقتراحتكم وأراّكم عن نسخه بن الخليج الجديده [ تـنـويه] بخصوص حقوق بن الخليج في المجله مجموعة من الخطوط العالمية __________________ Im Back

10-24-2006, 10:11 مساءً	#3 (permalink)
راشد الفضلي عضو فعــال تاريخ التسجيل: Oct 2006 المشاركات: 183 معدل تقييم المستوى: 83	مشاركة: عدّ الكلمات في إكسل يعطيك العافيه وماقصرت عالمجهووود من مواضيع راشد الفضلي في المنتدى

02-15-2009, 10:16 مساءً	#4 (permalink)
alimm عضــو تاريخ التسجيل: Feb 2009 المشاركات: 13 معدل تقييم المستوى: 13	رد: عدّ الكلمات في إكسل من مواضيع alimm في المنتدى

أدوات الموضوع
عرض نسخة صالحة للطباعة أرسل هذا الموضوع إلى صديق
طرق مشاهدة الموضوع
العرض العادي الانتقال إلى العرض المتطور الانتقال إلى العرض الشجري

المواضيع المتشابهه
الموضوع	كاتب الموضوع	المنتدى	مشاركات	آخر مشاركة
مفتاح الكلمات لأشهر الكلمات في اللغة الإنجليزية	وليد خالد شروخ	دروس للمبتدئين	19	02-15-2010 01:40 مساءً
تعديل الكلمات الدلالية الكلمات الدلالية	[ smart ]	مشاكل وحلول الـ مواقع	3	11-05-2008 08:13 مساءً
(° عدد الكلمات الدليلية التي حاولت اضافتها إلى هذا الموضوع تجاوز العدد الأقصى لعدد الكلمات الدليلية	konaan	مشاكل وحلول الـ مواقع	1	09-24-2008 01:11 مساءً
شرح وضع الكلمات الممنوعة	hsy	هاكات وشروحات vBulletin 3.[6-5].X	2	06-05-2007 06:06 مساءً
إنشاء قائمة في مصنف إكسل	الهوى ماهو كلام	دروس اوفيس	2	10-24-2006 10:13 مساءً

عدّ الكلمات في إكسل

منتديات شبكة ابن الخليج