اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليك ورحمة الله وبركاته

لدي ملف مكون من عدد من الاعمدة و الصفوف وكذلك العديد من اوراق العمل ....

ابحث عن طريقة استطيع بها عد وطبع عدد كلامات معينة سواء كانت لوحدها في الخلية او بجانبها كلمة اخرى في نفس الخلية يفصلها شرطة او فاصلة او نقطة

ارجوا ان اكون وفقت في شرح المشكلة

قام بنشر

اخي العزيز hs889

لك كل الحب والتقدير

هذا الكود لعد عدد الاحرف انا اريد عدد الكلمة كم تكررت في ورقة عمل معينة

مثلاُ

الكلمة

شبكة

العدد

13

الـ 13 هي عدد مرات تكرار هذه الكلمة في ورقة العمل سواء اكانت لوحدها او يفصلها اي فاصل مع كلمات اخرى

قام بنشر (معدل)

أخي الكريم جرب هذا الكود

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

count_words.rar

تم تعديل بواسطه فلسطيني
قام بنشر

تحية طيبة اخي فلسطيني

لم يعمل معي المايكروا بشكل صحيح فحبذا لو هناك طريقة اخى دون الدخو في متاهات الميكروا فضلاً لا امرً

قام بنشر

حسب معرفتي البسيطة لا توجد طريقة في الإكسيل عد الكلمات كما هو في الوورد ، و يمكنك أستخدام الملف المرفق و تجربته فهو يعمل بشكل صحيح فقط قم بتحديد الجزء المراد عد الكلمات به ثم اضغط على الزر

قام بنشر

السلام عليكم :

أسف اخى الكريم أنى لم أفهم قصدك لولا تدخل أخى فلسطينى

الداله التى تقوم بالبحث عن عدد الكلمات فى Microsoft Visual Basic هى Instr حيث تستخدم بغرض تحديد أول حرف فى الكلمه التى يتم البحث عنها داخل النص و اعاده رقم هذا الحرف داخل نص اخر تقوم بتحديده0

و صيغه هذه الداله :

Variable = Instr(StartPos,SourceStr,SearchStr[,Compare])

Variable : يشير هذا المعامل الى متغير يتم تخصيصه لتخزين ناتج الداله

StartPos : أول حرف سوف تبد أ منه الداله عمليه البحث

SourceStr : مجال البحث

SearchStr : الكلمه التى يتم البحث عنها

Compare : معامل اختيارى لتحديد نوعيه لبحث

فاذا كانت قيمه هذا المعامل = 0 فهذا معناه ان كلمه All لا تساوى all

فاذا كانت قيمه هذا المعامل = 1 فهذا معناه ان كلمه All تساوى all

وقد قمت بعمل برنامج لكن ب Microsoft Visual Basic و هو يعمل بطريقه جيده , ثم قمت بتحويله الى الاكسيل و لكن الامر يتطلب تغيير المجال يعنى شغلانه و المشكله فى الوقت 0

و لكن الحل السريع هو تحديد مجال البحث فى و رقه الاكسيل أولا ثم لصقه بطريقه ( Control + V) فى مجال البحث بالمثال المرفق ثم الضغط على Search فتظهر عدد الكلمات المكرره بمجال البحث و لكن يجب عدم ترك خانه كلمه البحث فارغه و الضغط على Search و أكرر يجب عدم ترك خانه كلمه البحث فارغه و الضغط على Search 0

و قد أرفقت الملف

السلام عليكم

Find.rar

قام بنشر

السلام عليكم ورحمة الله وبركاته،،

الاخ شبكة

بعد التحية

لقد وجدت لك فى محفوظاتى ملف به مثال ممتاز لما تريد وهو من عمل فريق اوفسينا وقد احتفظت به من مدة لان فكرتة اعجبتى كثير فأرجو ان تستفيد منه .

f285f57210.jpg

ارجو الدعاء لى بالخير

اليك الملف فى المرفقات

Find3.rar

قام بنشر

الاساتذة الافاضل :hs889 و فلسطيني و عمر الحسيني

الملف اللي في هذه المشاركة find3 هل يمكن عمل تعديل عليه على النحو التالي :

هل يمكن ان تظهر نتيجة البحث في ورقة مستقلة بدلا من ظهورها في form وذلك حتى يمكنني وضع زر لطباعه هذه الورقة بدلا من ان تظهر في form . اظن ان الشغله تحتاج الى تعديل في الكود وانتم اعرف بذلك .

ولكم تحياتي

قام بنشر (معدل)

أخي الكريم "شبكة" تحياتي لك أحاول ان يتحقق مرادك من خلال الدالة COUNTIF وقد أرفقت لك مثال يقوم بإحصاء عدد كلمة معينة أورقم معين

أرجو أن يكون هو مطلوبك

______________________.zip

تم تعديل بواسطه halwim
قام بنشر

شكراُ ....شكراُ ....شكراُ ....شكراُ

للجميع ساقوم بتجربة الملفات واخبركم ان شاء الله بالنتيجة

قام بنشر (معدل)
بسم الله الرحمن الرحيم


السلام عليكم ورحمة الله وبركاته،،،

الاخ شبكة
بعد التحية

ان الدوال السابقة لا تستطيع البحث عن كلمة مكررة داخل خلية .
يعنى لو خلية مكتوب فيها "عمر عمر" لاتقوم بعد هذة الخلية

قمت بتعديل الملف الاول "Find3 " ليقوم بعد الكلمات فى كل اوراق ثم يقوم بعرض العدد وايضا يعرض الكلمات المكررة
واذا كنت تحتاج وضع الكلمات فى ورقة جديدة انا تحت امرك .
واليك الملف المرفق
والسلام عليكم ورحمة الله وبركاته

Find4.rar

تم تعديل بواسطه omarelhosseini
قام بنشر
بسم الله الرحمن الرحيم


السلام عليكم ورحمة الله وبركاته،،،


الاخ شبكة

رغم انى واثق من ان التعديل الاخير سوف ينول الرضى منك ويؤدى المطلوب .

اقول لك لا تتعجل انتطرنى فى مشاركة بعنوان " روائع الاكسل - 5 مصباح علاء الدين للبحث ؟ "
بها مفاجأه واليك الرابط

http://www.officena.net/ib/index.php?showtopic=12470

والسلام عليكم ورحمة الله وبركاته
قام بنشر (معدل)

فعلاً .......... لاحظة انه لا يبحث في الخلية التي يتكرر بها الاسم وكذلك لا يحتسب الكلمة التي قبلها او بعدها مسافة

ومع هذا اقول

شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........

شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........

شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً .......

.شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........

شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........

شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........

شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........

شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........

شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........

شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........

شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........شكراً ........

لكل من ساهم في تعليمي او مساعدتي او حت قراءة هذا الموضوع

تم تعديل بواسطه شبكة
قام بنشر (معدل)

جربت الملف يا omarelhosseini

وهو جداً رائع .........

ولكن لدي ملاحظة صغيرة فقط

وهو انه في احد الخليا كلمة عمر مكرره مرتين والبرنامج يقرئها مره واحدة فقط .......

هذه نقطة والاخرى

كان هدفي من هذا الموضوع هو انه كل مره اكتب فيها كلمة عمر تكون هماك خلية تحسب عدد كلمة عمر في صفحة واحدة او عددة صفحات على حسب ما ارغب .... ويتم اضافة عدد 1 الى الاعداد السابقة امام كلمة عمر

معليش الطلبات كل مرة تزيد :rol:

تم تعديل بواسطه شبكة
قام بنشر
بسم الله الرحمن الرحيم


السلام عليكم ورحمة الله وبركاته،،،

الاخ شبكة

بعد التحية

واليك حل اخر بالآضافة الى جميع الحلول التى طرحها الاخوة اختر منها ما تشاء

4dc54042ce.jpg

5ca7470a67.jpg

واليك الملف المرفق به المثال

والسلام عليكم ورحمة الله وبركاته

countwords.rar

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information