طلب ماكرو تنسيق شرطي صعب

[المسلم العربي]

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

 

 

تم تعديل يوليو 5, 2017 بواسطه المسلم العربي

[احمدزمان]

و عليكم السلام

راجع الرابط التالي

https://www.officena.net/ib/topic/57813-تحديد-صف-وعمود-الخلية-النشطة-تلوين-العمود-والصف-باستخدام-التنسيق-الشرطي/

للأستاذ الفاضل و القدير ابو البراء

جزاه الله كل خير

 

[سليم حاصبيا]

جرب هذا المثال الذي يمكنك البناء عليه

كان يمكن وصع الماكرة مباشرة للملف عندك لكن

 في الصورة غير واضحة الاعمدة 

لاختيار لون اخر استبدل الرقم 6 في الماكر بالرقم الذي يعجبك(من 1 الى 52)

 

تلوين نطاق.rar

[احمد غانم]

12 ساعات مضت, سليم حاصبيا said:

جرب هذا المثال الذي يمكنك البناء عليه

كان يمكن وصع الماكرة مباشرة للملف عندك لكن

 في الصورة غير واضحة الاعمدة 

لاختيار لون اخر استبدل الرقم 6 في الماكر بالرقم الذي يعجبك(من 1 الى 52)

 

تلوين نطاق.rar

شكرا لك اخ سليم و بارك الله جهودكم

لاحظت انه مع ماكرو تلوين نطاق اعلاه لايمكن الإحتفاظ بتلوين الخلية من (تنسيق الألوان) هل من حل ؟

[سليم حاصبيا]

5 ساعات مضت, احمد غانم said:

شكرا لك اخ سليم و بارك الله جهودكم

لاحظت انه مع ماكرو تلوين نطاق اعلاه لايمكن الإحتفاظ بتلوين الخلية من (تنسيق الألوان) هل من حل ؟

للمحافظة على الالوان يمكن اسنعمال هذا الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False
Range("My_Rg").Cells.Interior.ColorIndex = 39
For i = 1 To Range("My_Rg").Columns.Count
   If Range("My_Rg").Columns(i).Column Mod 2 = 0 Then
      Range("My_Rg").Columns(i).Interior.ColorIndex = 35
    End If
 Next
    If Not Intersect(Target, Range("My_Rg")) Is Nothing And Target.Cells.Count = 1 Then
        Range(Target.Offset(0, -Target.Column + 1), Target).Interior.ColorIndex = 6
        Range(Target.Offset(-Target.Row + 1, 0), Target).Interior.ColorIndex = 6
    End If
    Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub