حساب الخلايا التي تحتوي على كلمات

[ahmedhossin]

السلام عليكم عندي خلايا فيها كلمات و ارقام و اريد ان يتم حساب عدد الخلايا التي تحتوي على أرقام فقط 

الصورة توضيحية 

[عبدالله بشير عبدالله]

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

ملف بحنوى على كود و7 طرق عد  بالمعادلات  اختر ما يناسبك

عد الخلايا الرقمية.xlsb

[ahmedhossin]

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

[محمد هشام.]

هل تقصد حساب عدد الخلايا التي تحتوي على خليط من نصوص وأرقام  مثلا 1م3  او  T5

جرب هدا

Option Explicit
Function CalculerVal(rng As Range) As Long
    Dim cnt As Range, tmp As Long
    tmp = 0
    For Each cnt In rng
        If cnt.Value <> "" Then
            If IsNumeric(cnt.Value) Or cnt.Value Like "*[0-9]*" Then
                tmp = tmp + 1
            End If
        End If
    Next cnt

    CalculerVal = tmp
End Function

في الخلية التي تريد أن تظهر فيها النتيجة مع تعديلها بما يتناسب مع بياناتك الأصلية 

=CalculerVal(B2:H2)

 

 

 

مجموع الأرقام مع الحروف.xlsb

تم تعديل ديسمبر 14 بواسطه محمد هشام.

[عبدالله بشير عبدالله]

21 ساعات مضت, ahmedhossin said:

و اريد ان يتم حساب عدد الخلايا التي تحتوي على أرقام فقط 

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

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

وكان الاجدر ان كنبت في الصورة التوضيحية نتيجة العد وليس صفر

لك كل الود والتقدير

 

تم تعديل ديسمبر 14 بواسطه عبدالله بشير عبدالله

[أبوعيد]

السلام عليكم

عذرا على المقاطعة 

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

ولكن عندما نناقشه ( لماذا تريد أن تعمل هذه الطريقة ) هنا تتضح الرؤية 

فهناك طرق عديدة يفهمها المبرمجون توصل إلى المطلوب

والسؤال : هل يمكن أن نعرف لماذا تريد عد الخلايا للأرقام والأحرف ؟

لعلنا نحل المشكلة بطريقة أخرى

تقبلوا تحياتي جميعا