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

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

قام بنشر

كيفية عد الأرقام فى الخلية الواحدة

يوجد فى الخلية الواحدة رقم مثل 2521152365412

أريد معادلة لحساب عدد الأرقام 13

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

السلام عليكم

ممكن ان تبنى داله بنفسك

هكذا

Function Mylen(Z As Range)
Dim C As Long, Y As Long, A As Long, B As Variant
    A = 0
    For C = 1 To Len(Z)
        B = Mid(Z, C, 1)
            For Y = 0 To 9
                If Y = B Then
                    A = A + 1
                End If
            Next
    Next
    Mylen = A
End Function

mylen.rar

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

السلام عليكم

أخي أسامة : أخي يحي

جزاكما الله خيرا

بس تعقيب بسيط علي حل أخي يحي

فالحل يناسب المثال المضروب

ولكن لو أن الخلية تحتوي علي أكثر من مقطعين مثل "AHMED 677 63636"

أو لا تحتوي علي مسافات مثل"AHMED6727"

لكانت النتيجة غير صحيحة

لأن الحل يعتمد علي وجود مسافة في نص الخلية

قام بنشر

طبعا أخي الغالي

وأستاذي القدير

والله لم أرد إلا التنبيه لباقي القراء أنها تم تفصيلها فقط لهذه الحالة

إياك أن تحملها علي غير ذلك

فأنت والله لك علي الكثير والكثير ولن أوفيك حقك أبدا

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

وجزاك الله كل الخير

قام بنشر

الاخوة الكرام

تحية طيبة

لكم غاية الشكر على هذه الروح الطيبة في هذا المنتدى الرائع الذي حوى النخب

بارك الله فيكم وجزاكم الله خيرا

قام بنشر

أخي طارق

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

و أخي نحن هنا هدفنا نستفيد و نفيد

و ان تكون الفائدة للكل

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

و هذا هو اساس الفائدة لنا و للأعضاء

تقبل أخي تحياتي و حبي لك

==================

الأخ ابو عمار

حياك الله اخي

==================

أخي أحمد حافظ

LEN(MID(A1,FIND(" ",A1)+1,LEN(A1)))

استخدمنا الدالة Mid

لفصل الارقام عن الكلمات بحث يكون الفصل بعد اول فراغ و هو ما جلعنا نستخدم الدالة FInd

و عدنا و استخدمنا الدالة Len داخل الدالة Mid حتى يقوم بالعد لاخر القيمة في الخلية

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

و هنا يأتي دورة الدالة LEN للعد

قام بنشر

جزاك الله كل خير اخى الكريم جوست ولاكن ما فاءدة +1 فى المعادلة واذا ارادنا استخراج AHMED 677 63636 مثلا

او التكست فقط

قام بنشر

أخي أحمد حافظ

استخدمنا رقم 1

لان الدالة find

ستقوم بالبحث عن الفراغ و تحديد موقعه و نحن نريد ان أن يبدأ العد مباشرة بعد الرقم الذي ستحدده الدالة

و لعد الارقام في مثالك أعلاه

AHMED 677 63636

جرب هذه الدالة :

=LEN(MID(SUBSTITUTE(A1," ","",2),FIND(" ",A1)+1,LEN(A1)))

قام بنشر

شكراً لك أخي احمد

اللهم آمين و لك المثل أخي

إن هناك أي حالة أخرى أرجو ذكرها

حتى نثري الموضوع بعدة أفكار

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

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

Important Information