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

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


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





جمع الخلايا الظاهره فى الصف

السلام عليكم ورحمة الله وبركاته برجاء من الإخوه الأفاضل الإفاده بخصوص كود يقوم بجمع الخلايا الظاهره فى صف على سبيل المث ..


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


30-08-2020 02:22 مساء
محب لله ورسوله
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-09-2017
رقم العضوية : 425
المشاركات : 45
الجنس : ذكر
تاريخ الميلاد : 14-3-1983
الدعوات : 1
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 77
 offline 

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

برجاء من الإخوه الأفاضل الإفاده بخصوص كود يقوم بجمع الخلايا الظاهره فى صف
على سبيل المثال فى الصف رقم 6 والنطاق من ( E1 : CX1 )

حيث أنه عند البحث وجدت الدالة subtotal ولكنها تقوم على جمع الأعمده ونطاق 29 خليه فقط

فبرجاء الإفاده بخصوص الجمع بالنسبه للصفوف وليس الأعمده

ولكم جزيل الشكر
 


أفضل إجابة مقدمة من salim وهي:
بعد اذن الأخ حسونة
تبسيط بسبط للدالة UDF

Public Function Salim_Sum(Rg As Range)
    If Rg.Rows.Count > 1 Then
       Salim_Sum = "Error"
    Exit Function
 End If
Dim s#, itm As Range
  For Each itm In Rg
     If Not itm.EntireColumn.Hidden Then
       s = s + IIf(Val(itm) = 0, 0, Val(itm))
     End If
  Next
   Salim_Sum = IIf(s = 0, "", s)
 End Function


الملف مرفق
عرض الإجابة




31-08-2020 01:41 مساء
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif جمع الخلايا الظاهره فى الصف
وعليكم السلام ورحمه الله وبركاته

مرفق ملف لعله يكون المطلوب


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  Test.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(25.146) KB


31-08-2020 04:03 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif جمع الخلايا الظاهره فى الصف
جزاك الله خيرا أخي العزيز حسونة وبارك الله فيك

31-08-2020 05:15 مساء
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif جمع الخلايا الظاهره فى الصف
وجزاكم مثله استاذنا الغالي ابو البراء


31-08-2020 05:26 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif جمع الخلايا الظاهره فى الصف
تسلم يا مسيو .. بلاش الألوان اللي العين مش بتشوفها دي (النظر على الأد دلوقتي)

01-09-2020 03:08 مساء
مشاهدة مشاركة منفردة [5]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif جمع الخلايا الظاهره فى الصف
بعد اذن الأخ حسونة
تبسيط بسبط للدالة UDF

Public Function Salim_Sum(Rg As Range)
    If Rg.Rows.Count > 1 Then
       Salim_Sum = "Error"
    Exit Function
 End If
Dim s#, itm As Range
  For Each itm In Rg
     If Not itm.EntireColumn.Hidden Then
       s = s + IIf(Val(itm) = 0, 0, Val(itm))
     End If
  Next
   Salim_Sum = IIf(s = 0, "", s)
 End Function


الملف مرفق
 
 
  My_Visiblle_Sum.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(34.912) KB


09-09-2020 09:30 صباحا
مشاهدة مشاركة منفردة [6]
محب لله ورسوله
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-09-2017
رقم العضوية : 425
المشاركات : 45
الجنس : ذكر
تاريخ الميلاد : 14-3-1983
الدعوات : 1
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 77
 offline 
look/images/icons/i1.gif جمع الخلايا الظاهره فى الصف
الأخ حسونه 
والاخ سليم
جزاكم الله خيرا ورفع الله قدركم
 


الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
الخلايا ، الظاهره ، الصف ،


 










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

الساعة الآن 04:15 صباحا