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

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


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





اعطاء عبارة بناء على لون الخلية

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


موضوع مغلق


30-03-2022 10:54 صباحا
oilman852
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-01-2019
رقم العضوية : 11218
المشاركات : 86
الدولة : العراق
الجنس : ذكر
تاريخ الميلاد : 23-9-1985
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 35
 offline 

DUBbb_تلوينلمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
السلام عليكم
كما مدرج في الملف لدي جدولين هل يمكن اعطاء عبارة معينة في الجدول الثاني بناء على لون الخلية في الجدول الاول 
مع وافر الاحترام وجزيل الشكر
 
 
  تلوين خلايا.xlsx   تحميل xlsx مرات التحميل :(6)
الحجم :(11.489) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام
جرب الكود التالي
Option Explicit

Sub Test()
    Dim rng As Range, c As Range
    Application.ScreenUpdating = False
        Set rng = Range("A1").CurrentRegion
        rng.Copy Range("E1")
        For Each c In rng
            If c.Interior.Color = RGB(169, 208, 142) Then
                c.Offset(, 4).Value = "معيد"
            ElseIf c.Interior.Color = RGB(255, 255, 0) Then
                c.Offset(, 4).Value = "قرار"
            End If
        Next c
    Application.ScreenUpdating = True
End Sub
عرض الإجابة




30-03-2022 11:05 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif اعطاء عبارة بناء على لون الخلية
وعليكم السلام
جرب الكود التالي
Option Explicit

Sub Test()
    Dim rng As Range, c As Range
    Application.ScreenUpdating = False
        Set rng = Range("A1").CurrentRegion
        rng.Copy Range("E1")
        For Each c In rng
            If c.Interior.Color = RGB(169, 208, 142) Then
                c.Offset(, 4).Value = "معيد"
            ElseIf c.Interior.Color = RGB(255, 255, 0) Then
                c.Offset(, 4).Value = "قرار"
            End If
        Next c
    Application.ScreenUpdating = True
End Sub

30-03-2022 11:29 صباحا
مشاهدة مشاركة منفردة [2]
oilman852
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-01-2019
رقم العضوية : 11218
المشاركات : 86
الدولة : العراق
الجنس : ذكر
تاريخ الميلاد : 23-9-1985
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 35
 offline 
look/images/icons/i1.gif اعطاء عبارة بناء على لون الخلية
عاشت ايدك استاذ ياسر نجح فعلا وسوالي الاخير
هم كيف اغير الكود بطريقه تجعل انه 
بمجرد ما اقوم بتغيير اللون تتغير الكلمة

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

30-03-2022 08:08 مساء
مشاهدة مشاركة منفردة [4]
oilman852
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-01-2019
رقم العضوية : 11218
المشاركات : 86
الدولة : العراق
الجنس : ذكر
تاريخ الميلاد : 23-9-1985
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 35
 offline 
look/images/icons/i1.gif اعطاء عبارة بناء على لون الخلية
شكرا استاذي الغالي
هل استطيع اذا اضعه في موديول واضيف زر اضغطه للتنفيذ
وهل يمكن ان اضيف الكود الذي كتبته لي بخصوص تعديل درجات طلبه وفق القرار 
بحيث عندما اضغط الزر يقوم باضافه القرار وبعدها يقوم بعمليه التلوين
اقصد اني ادمج الكودين بزر واحد 

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



الكلمات الدلالية
اعطاء ، عبارة ، بناء ، الخلية ،


 










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

الساعة الآن 09:02 صباحا