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

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


ebrahim1400

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

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

:signthankspin: 

 

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

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

اخي ابراهيم

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

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

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

بالتوفيق

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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information