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

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


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





حساب عدد الخلايا التي لا تحتوي على صفر

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



16-05-2019 02:16 مساء
sami872
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4076
المشاركات : 48
الجنس : ذكر
تاريخ الميلاد : 14-7-1988
يتابعهم : 9
يتابعونه : 1
قوة السمعة : 83
الاعجاب : 4
 offline 
السلام عليكم. أتمنى المساعدة في ايجاد عدد الخلايا التي لا تحتوي على صفر من شيتات مختلفة. وبارك الله فيكم.
 
 
  sum.xlsx   تحميل xlsx مرات التحميل :(8)
الحجم :(9.8) KB





16-05-2019 10:22 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8294
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24162
الاعجاب : 2609
 offline 
look/images/icons/i1.gif حساب عدد الخلايا التي لا تحتوي على صفر
وعليكم السلام
جرب الكود التالي
Sub Test()
Debug.Print CountAcrossSheets(Range("A1:F10"))
End Sub

Function CountAcrossSheets(rng As Range) As Variant
Dim x, sh As Worksheet

For Each sh In ThisWorkbook.Worksheets
x = Application.WorksheetFunction.CountIfs(rng, "<>0", rng, "<>" & "")
If IsNumeric(x) Then CountAcrossSheets = x + CountAcrossSheets
Next sh
End Function

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



16-05-2019 11:01 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1421
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 57
قوة السمعة : 6418
الاعجاب : 1003
 Online 
look/images/icons/i1.gif حساب عدد الخلايا التي لا تحتوي على صفر
أحسنت استاذ ياسر كود بدالة رائعة جعله الله فى ميزان حسناتك

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


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

16-05-2019 11:21 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8294
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24162
الاعجاب : 2609
 offline 
look/images/icons/i1.gif حساب عدد الخلايا التي لا تحتوي على صفر
جزاك الله خيراً أخي الحبيب علي ومشكور على دعائك الطيب

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



16-05-2019 11:22 مساء
مشاهدة مشاركة منفردة [4]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 433
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3417
الاعجاب : 302
 offline 
look/images/icons/i1.gif حساب عدد الخلايا التي لا تحتوي على صفر
بعد اذن اخي وصديقي ياسر
رمضان كريم

Option Explicit
Function My_count(rng As Range) As Integer
Dim x%, y%
Dim My_Address$: My_Address = rng.Address
Dim sh As Worksheet

For Each sh In Worksheets
x = Evaluate("COUNTIF(" & sh.Name & "!" & _
My_Address & ",""<>0"")")
y = y + x
Next
My_count = y
End Function

الملف مرفق


 
 
  Special_countif.rar   تحميل rar مرات التحميل :(6)
الحجم :(14.75) KB


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



16-05-2019 11:42 مساء
مشاهدة مشاركة منفردة [5]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1421
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 57
قوة السمعة : 6418
الاعجاب : 1003
 Online 
look/images/icons/i1.gif حساب عدد الخلايا التي لا تحتوي على صفر
بارك الله فيكم جميعا استاذ ياسر والأستاذ سليم لتقديمكم حلول رائعة
وبعد اذنكم جميعا وزيادة واثراءا للموضوع هناك حل بالمعادلات
وذلك بعد وضع أسماء جميع الشيتات فى عمود وعمل تعريف واسم لهم جميعا فليكن sheets ,وذلك كما هو مبين بالصورة
ثم بعد ذلك وضع هذه المعادلة فى الخلية التى تريد ظهور النتيجة بها
Mr3uI_Untitled
=SUMPRODUCT(COUNTIF(INDIRECT("'"&sheets&"'!A1:f1"),"<>0"))
 
 


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


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

16-05-2019 11:52 مساء
مشاهدة مشاركة منفردة [6]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 433
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3417
الاعجاب : 302
 offline 
look/images/icons/i1.gif حساب عدد الخلايا التي لا تحتوي على صفر
المشاركة الأصلية كتبت بواسطة: ali mohamed ali
بارك الله فيكم جميعا استاذ ياسر والأستاذ سليم لتقديمكم حلول رائعة
وبعد اذنكم جميعا وزيادة واثراءا للموضوع هناك حل بالمعادلات
وذلك بعد وضع أسماء جميع الشيتات فى عمود وعمل تعريف واسم لهم جميعا فليكن sheets ,وذلك كما هو مبين بالصورة
ثم بعد ذلك وضع هذه المعادلة فى الخلية التى تريد ظهور النتيجة بها
Mr3uI_Untitled
=SUMPRODUCT(COUNTIF(INDIRECT("'"&sheets&"'!A1:f1"),"<>0"))

رائع اخي علي 
لكن انت بواسطة هذه المعادلة تحدد نطاقا معيناًً  A1:F1
المفروض التعميم على اي نطاق يريده المستخدم 







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



17-05-2019 12:44 صباحا
مشاهدة مشاركة منفردة [7]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1421
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 57
قوة السمعة : 6418
الاعجاب : 1003
 Online 
look/images/icons/i1.gif حساب عدد الخلايا التي لا تحتوي على صفر
شكرا لك استاذى الحبيب سليم على هذه الملاحظات الممتازة فمنكم دائما نتعلم استاذى الكريم 
ولكنى وضعت هذا النطاق بالفعل كما طلب اخى الكريم سامى صاحب المشاركة والتساؤل
بارك الله فيك استاذى سليم وزادك الله من فضله

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


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

17-05-2019 01:06 صباحا
مشاهدة مشاركة منفردة [8]
sami872
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4076
المشاركات : 48
الجنس : ذكر
تاريخ الميلاد : 14-7-1988
يتابعهم : 9
يتابعونه : 1
قوة السمعة : 83
الاعجاب : 4
 offline 
look/images/icons/i1.gif حساب عدد الخلايا التي لا تحتوي على صفر
بارك الله في الجميع وجعل الله ذلك في ميزان حسناتكم جميعا. 

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



17-05-2019 09:17 صباحا
مشاهدة مشاركة منفردة [9]
sami872
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4076
المشاركات : 48
الجنس : ذكر
تاريخ الميلاد : 14-7-1988
يتابعهم : 9
يتابعونه : 1
قوة السمعة : 83
الاعجاب : 4
 offline 
look/images/icons/i1.gif حساب عدد الخلايا التي لا تحتوي على صفر
استاذي الفاضل ياسر .لاحظت بان الكود لا يشتغل بصورة جيدة لما يكون النطاق مختلف في جميع الشيتات .وبارك الله فيك.




17-05-2019 10:21 صباحا
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8294
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24162
الاعجاب : 2609
 offline 
look/images/icons/i1.gif حساب عدد الخلايا التي لا تحتوي على صفر
افترضت أن النطاق واحد في كل أوراق العمل المطلوب العمل عليها ..
في هذه الحالة لابد من التعامل مع كل ورقة عمل بشكل منفصل .. ووضع متغير يتم فيه تخزين النتيجة ويضاف لهذا المتغير القيمة الجديدة في كل حلقة تكرارية ..

من الأفضل دائماً في طرح الموضوعات وضع ملف مرفق معبر عن المشكلة من البداية لكي لا يقوم الأعضاء بوضع افتراضات تضيع الوقت والجهد

أثارت هذه المشاركة إعجاب: ali mohamed ali، sami872، salim،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
دمج الخلايا المتشابهة في عمود باستخدام إجراء عام YasserKhalil
14 1007 YasserKhalil
الدالة المعرفة ColorEA لجمع الخلايا الملونة Eslam Abdullah
24 2170 hassona229
حل مشكلة الخلايا الفارغة مع الدالة VLOOKUP علي الرويلي
3 132 YasserKhalil
فورم اظهار القيم الموجودة بالخلايا مجدى يونس
2 336 مجدى يونس
اضافة امر فى كود تحديد كل الخلايا اللتى تكون قيمتها تساوى قيمة الخلية المحددة Omar2
11 450 Omar2

الكلمات الدلالية
تحتوي ، التي ، الخلايا ، حساب ،


 







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

الساعة الآن 05:00 مساء

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