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

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


أبا عمر

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

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

إخواني الأعزاء كيف حالكم لعلكم بخير

سؤالي هو

هل من كود لحساب عدد مرات إدخال حرف معين في حقل نصي ؟

مثال لو أدخلت في مربع نص مثلا الكلمة التالية " ععععع " فهل من كود لحساب عدد مرات إدخال حرف العين ؟

تم تعديل بواسطه أبا عمر
رابط هذا التعليق
شارك

تحفة بديعة

لذا لن ندعها تمر هكذا

نريد من استاذنا القدير تفضلا وكرما وكما اعتدنا منه شرحا مبسطا أمام هذه الاسطر





Private Function sReplace(SearchLine As String, SearchFor As String, ReplaceWith As String) As Integer

Dim vSearchLine As String, found As Integer


found = InStr(SearchLine, SearchFor)

vSearchLine = SearchLine

If found <> 0 Then

sReplace = 1

vSearchLine = ""

If found > 1 Then vSearchLine = Left(SearchLine, found - 1)

vSearchLine = vSearchLine + ReplaceWith

If found + Len(SearchFor) - 1 < Len(SearchLine) Then _

vSearchLine = vSearchLine + Right$(SearchLine, Len(SearchLine) - _

found - Len(SearchFor) + 1)

End If


found = InStr(vSearchLine, SearchFor)

MyString = vSearchLine


Do While found <> 0

sReplace = sReplace + 1

vSearchLine = Left(vSearchLine, found - 1)

vSearchLine = vSearchLine + ReplaceWith

vSearchLine = vSearchLine + Right$(MyString, Len(MyString) - _

found - Len(SearchFor) + 1)

found = InStr(vSearchLine, SearchFor)

Loop


End Function

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

  • 3 years later...

مررت هنا بالصدفة

فحبيت اشارك بفكرة للفائدة ان شاء الله

يمكن عمل التعبير التالي 

=Len([mytext])-Len(Replace([mytext],"a",""))

على اساس ان الحقل اسمه mytext  والحرف a  ويمكن استبداله باسم حقل متغير

 

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

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

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



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

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

Important Information