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

[ebrahim1400]

اريد كود بحيث اذا قمت بكتابة اي حرف او اي كلمة في الـ text1  يعطيني عدد الأحرف في الـ text2 ويعطيني عدد الكلمات في الـ text3  ولكم جزيل الشكر والعرفان

 

 

عدد الحروف والكلمات 1.rar

[رمهان]

http://www.officena.net/ib/topic/63165-طلب-كود-عد-الحروف-والكلمات/

[ebrahim1400]

شكرا اخي رمهان على الرد 

ولكن اريد كود خاص لهذا الموضوع وليس استعلام او برنامج بالأكسل 

ولك مني اجمل تحية 

[رمهان]

الرابط السابق ! اكسس ! ولما طلبت بالكمال والتمام !

[ebrahim1400]

اخي رمهان كلامك سليم للرابط يوجد برنامجين اكسس - لكنه بطريقة الأستعلام     وبرنامج اكسل - معمول ببرنامج الأكسل 

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

والله يعطيك الف عافية وصحة ويسر امرك ويسهل لك رب العباد كل امورك ويكرمك ربي 

[رمهان]

اخي ابراهيم

لا وجود للاكسل ابدا في مثال الاستاذ ابا خليل السابق

ولكن هذه فكرة ولاثراء المنتدى

Private Sub العبارة_Change()
Me.عدد_الأحرف = Len(Replace(العبارة.Text, " ", ""))
Me.عدد_الكلمات = UBound(Split(Trim(Replace(العبارة.Text, Chr(13) & Chr(10), " ")) & " ", " "))
End Sub

بالتوفيق

عدد الحروف والكلمات 1.rar

[ebrahim1400]

اخي رمهان السلام عليكم 

صح كلامك . الرابط الذي ارفقته كان بالأكسس وليس بالأكسل 

بالنسبة ل ابو خليل برنامجه بالإكسس

بالنسبة ل سليم حاصيبا كان بالأكسل 

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

على العموم جزاك الله الف خير اخي رمهان واحسن الله إليك ولك مني اجمل تحية ولا تؤخذني إن لم اوصل لك المعلومة الصحيحة وانا اسف جدا والله 

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