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

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


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

السلام عليكم

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

هكذا

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

لان الدالة find

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

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

AHMED 677 63636

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

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

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

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

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

Important Information