أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil الترقيم بشرط معين اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





الدالة المعرفة AlsaqrCount

السلام عليكم ورحمة الله وبركاته اليوم اقدم لكم الدالة المعرفة AlsaqrCount لحساب الخلايا الممتلئة أو الفارغة فى بداية ا ..



28-08-2018 01:58 صباحا
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 89
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 

السلام عليكم ورحمة الله وبركاته
 
اليوم اقدم لكم الدالة المعرفة AlsaqrCount لحساب الخلايا الممتلئة أو الفارغة
فى بداية الأمر تظن أن الدالة الذى أتحدث عنها موجودة بالاكسل بالفعل

لكن الامر مختلف قليلا
الدالة هنا تقوم بعمل الدالتين COUNTA و COUNTBLANK
ولكن الدالتين السابقتين تقوم بحساب الخلايا المدمجة على انها خلية واحده
لانه اذا كانت هناك خلية مدمجة ممتلئة هنا يعد اول خليه فيها الممتلئه فقط اما الباقى يعد فارغ

ولكنى وجدت من يبحث عن دالة تقوم بحساب الخلايا المدمجة بعدد خلاياها
فمثلا اذا كانت 3 خلايا مدمجة بخلية واحدة بها نص هنا تعد ب3 وليس ب1 وهكذا

لذلك قمت ببرمجة الدالة AlsaqrCount لتخدم هذه الرغبة
واليكم مثال كما بالصورة التالية

MzQ3MjEwMQ9898001
الدالة تتكون من 2 باراميتر
الباراميتر الاول لاختيار نطاق الخلايا المراد احصاءه
الباراميتر الثانى
اما TRUE أو 1 أو أى رقم وعندها يتم احصاء الخلايا الممتلئة
واما FALSE او 0 وعندها يتم احصاء الخلايا الفارغة
ذلك مع الاخذ بالاعتبار ان كل خلية منفردة حتى لو مدمجة
فكل ما يظهر به نص يعد ممتلئ وكل ما يظهر به فارغ يعد فارغ

والآن كود الدالة هو....

Function AlsaqrCount(rng As Range, rw As Boolean) As Long
'Programming by Eslam Abdullah
Dim cel As Range, value&, blank&

    For Each cel In rng
        If cel.MergeArea.Cells(1).value <> "" Then value = value + 1 Else: blank = blank + 1
    Next cel
    
    Select Case rw
        Case True: AlsaqrCount = value
        Case False: AlsaqrCount = blank
    End Select
End Function


ولتحميل ملف العمل بالكود لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
مع تحياتى اسلام عبدالله 81



 
 


28-08-2018 06:17 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
يتابعهم : 0
يتابعونه : 748
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrCount

رائع يا غالى ربنا يكرمك يا غالى 123


توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله


28-08-2018 11:35 صباحا
مشاهدة مشاركة منفردة [2]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1766
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9632
عدد الإجابات: 46
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrCount
أحسنت استاذ اسلام وبارك الله فيك
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

28-08-2018 11:44 صباحا
مشاهدة مشاركة منفردة [3]
مهند محسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 455
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 2
يتابعونه : 9
قوة السمعة : 846
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrCount
جزاك الله كل خير استاذى الكريم

28-08-2018 09:20 مساء
مشاهدة مشاركة منفردة [4]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 89
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrCount
مشكور مروركم المعطر على الموضوع المتواضع
أستاذى الغالى حسام والأستاذ على والأستاذ مهند
تقبلوا وافر احترامى وتقديرى 81

30-08-2018 08:57 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrCount
جزاك الله خيراً أخي العزيز إسلام
الله ينور على الإبداع .. ولكن حاول عدم التعامل مع الخلايا المدمجة لأنها عدو الأكواد وغير ذات فائدة ..

30-08-2018 05:13 مساء
مشاهدة مشاركة منفردة [6]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 89
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrCount
مشكور مرورك الغالى استاذى الحبيب ياسر
ومشكور لنصائحك الغاليه
كان لابد التعامل مع الخلايا المدمجه هذه المره
لان الدالة هدفها مساعدة السائل فى مسالته




الكلمات الدلالية
الدالة ، المعرفة ، AlsaqrCount ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 08:03 صباحا