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

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


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





جمع رمز X المتواجد فى الخليه ذات اللون الاصفر

بعد التحيه ارجو المساعده فى معادله لجمع الرمز X المتواجد فى الخليه الصفراء فقط معادله وليس كود ... ممنوع رفع الملف مضغ ..


موضوع مغلق


06-04-2021 07:32 مساء
ahmed moh
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 240
الجنس : ذكر
يتابعهم : 6
يتابعونه : 3
قوة السمعة : 324
 offline 

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

 
 
 
  Book1.xlsx   تحميل xlsx مرات التحميل :(3)
الحجم :(9.817) KB



أفضل إجابة مقدمة من ali mohamed ali وهي:
تفضل يمكن ذلك بدالة معرفة ... وإذا كنت تريد ايجاد حل لطلبك بالمعادلات العادية فيمكنك مشاهدة هذا الفيديو
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
= CountCellsByColor (B1: L1, G7)
 

Function CountCellsByColor(rData As Range, cellRefColor As Range) As Long
            Dim indRefColor As Long
            Dim cellCurrent As Range
            Dim cntRes As Long
     
            Application.Volatile
            cntRes = 0
            indRefColor = cellRefColor.Cells(1, 1).Interior.Color
            For Each cellCurrent In rData
                    If indRefColor = cellCurrent.Interior.Color Then
                            cntRes = cntRes + 1
                    End If
            Next cellCurrent
     
            CountCellsByColor = cntRes
    End Function

وهذه هى المعادلة التى تكتب بالخلية
=CountCellsByColor(B1:L1,G7)
عرض الإجابة




06-04-2021 08:31 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1763
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9632
عدد الإجابات: 46
 offline 
look/images/icons/i1.gif جمع رمز X المتواجد فى الخليه ذات اللون الاصفر
تفضل يمكن ذلك بدالة معرفة ... وإذا كنت تريد ايجاد حل لطلبك بالمعادلات العادية فيمكنك مشاهدة هذا الفيديو
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
= CountCellsByColor (B1: L1, G7)
 

Function CountCellsByColor(rData As Range, cellRefColor As Range) As Long
            Dim indRefColor As Long
            Dim cellCurrent As Range
            Dim cntRes As Long
     
            Application.Volatile
            cntRes = 0
            indRefColor = cellRefColor.Cells(1, 1).Interior.Color
            For Each cellCurrent In rData
                    If indRefColor = cellCurrent.Interior.Color Then
                            cntRes = cntRes + 1
                    End If
            Next cellCurrent
     
            CountCellsByColor = cntRes
    End Function

وهذه هى المعادلة التى تكتب بالخلية
=CountCellsByColor(B1:L1,G7)
 
 
  Count X.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(16.958) KB

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

07-04-2021 07:29 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif جمع رمز X المتواجد فى الخليه ذات اللون الاصفر
أحسنت أخي العزيز علي . بارك الله فيك وجزاك الله خيراً.



الكلمات الدلالية
اللون ، الخليه ، المتواجد ، الاصفر ،


 










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

الساعة الآن 12:26 مساء