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

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

قام بنشر

:wub:

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

قام بنشر

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

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

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

قام بنشر

اخي ابراهيم

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

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

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

بالتوفيق

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

  • Like 2
قام بنشر

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

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

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

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information