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



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





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

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



28-08-2018 01:58 صباحا
Eslam Abdullah
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1083
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 50
قوة السمعة : 6421
الاعجاب : 1823
 offline 

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

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

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

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

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

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

Function AlsaqrCount(rng As Range, rw As Boolean) As Integer
'اعداد/اسلام عبدالله
Dim cel As Range, complet%, vide%

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


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

مع تحياتى اسلام عبدالله 81
 
 


أثارت هذه المشاركة إعجاب: الصقر، ali mohamed ali، مهند محسن، YasserKhalil، محمد أبو عبدو،





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

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



أثارت هذه المشاركة إعجاب: abdulwahed catran، Eslam Abdullah،




28-08-2018 11:35 صباحا
مشاهدة مشاركة منفردة [2]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 429
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 20
قوة السمعة : 2357
الاعجاب : 693
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrCount
أحسنت استاذ اسلام وبارك الله فيك

أثارت هذه المشاركة إعجاب: الصقر، Eslam Abdullah،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


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

أثارت هذه المشاركة إعجاب: الصقر، Eslam Abdullah،




28-08-2018 09:20 مساء
مشاهدة مشاركة منفردة [4]
Eslam Abdullah
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1083
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 50
قوة السمعة : 6421
الاعجاب : 1823
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrCount
مشكور مروركم المعطر على الموضوع المتواضع
أستاذى الغالى حسام والأستاذ على والأستاذ مهند
تقبلوا وافر احترامى وتقديرى 81





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

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




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

أثارت هذه المشاركة إعجاب: YasserKhalil،




30-08-2018 05:32 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4362
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12574
الاعجاب : 4591
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrCount
جميل أن تساعد وأيضاً التوجيه مطلوب .. حيث أن توجيه السائل للابتعاد عن الخلايا المدمجة سيمنعه من الوقوع في مشاكل مع الأكواد ..
عامتا (أقصد عامةً) .. بارك الله فيك وجزاك الله خيراً wink_3

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




30-08-2018 05:34 مساء
مشاهدة مشاركة منفردة [8]
Eslam Abdullah
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1083
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 50
قوة السمعة : 6421
الاعجاب : 1823
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrCount
تمام كلامك اغالى ابو الغاليين
هروح اكمل انا C++ كفايه VBA شويه biggrin2

أثارت هذه المشاركة إعجاب: YasserKhalil،




30-08-2018 06:43 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4362
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12574
الاعجاب : 4591
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrCount
طمني وصلت لفين ...؟
في انتظارك لوضع دروس في المنتدى .. ليستفيد الجميع .. وأفضل طريقة للتعلم هي أن تقوم بتعليم ما تعلمته للآخرين 

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




30-08-2018 08:29 مساء
مشاهدة مشاركة منفردة [10]
Eslam Abdullah
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1083
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 50
قوة السمعة : 6421
الاعجاب : 1823
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrCount
هانت شوية كدا واخلص الConsole Application
حاضر ربنا يسهل فى الوقت بس وبإذن الله اطرح دروس فى لغة C++





30-08-2018 09:19 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4362
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12574
الاعجاب : 4591
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrCount
إنت في الفيديو رقم كام ... أنا مخصص كل يوم فيديو واحد yes
عايزين نعمل قسم جديد في قسم لغات أخرى ، ويكون مخصص للـ C++ .. شد حيلك يا بطل

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




30-08-2018 09:42 مساء
مشاهدة مشاركة منفردة [12]
Eslam Abdullah
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1083
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 50
قوة السمعة : 6421
الاعجاب : 1823
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrCount
انا كدا فى التاسع ، ان شاء الله نعمل قسم للغة 63
وانت معايا واستاذ ياسر العربى وابو الدهب
هنكون عصابة مع بعض biggrin2

أثارت هذه المشاركة إعجاب: YasserKhalil،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
الدالة المعرفة AlsaqrExitList Eslam Abdullah
21 1292 Eslam Abdullah
استخراج القيم الفريدة وفق بيان محدد بالدالة المعرفة AlsaqrUnique Eslam Abdullah
11 1049 محمد أبو عبدو
تعديل كود الدالة المعرفة VLookup هانى على
14 104 YasserKhalil
وداعا للدالة vlookup واهلا بالدالة vlookup elsaqr الجديدة emad ghazi
21 4185 YasserKhalil
كيفية استخراج الدالة Ahmed Samir
2 71 YasserKhalil

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


 







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



الساعة الآن 10:19 صباحا

أعلن هنا
أعلن هنا
أعلن هنا