تلوين العمود والصف فى جميع الشيتات

[ميدو63]

السادة الأفاضل

تحية طيبة وبعد

رجاء المساعدة فى تعديل كود VBA  (من احد الزملاء) لتلوين الصف والعمود للخلية النشطة الموجود فى شيت رقم 1

وجعله يعمل على أي شيت النشط (أي شيت فى الملف) بنفس طريقة عملة على شيت رقم 1

 

شكرا

Test.xlsm

[ابراهيم الحداد]

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

هو نفس الكود بدون اى تغيير

و لكن يتم و ضعه فى حدث الملف ThisWorkBook  هكذا

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Application.ScreenUpdating = False
    
    ' اجعل جميع خلايا ورقة العمل الحالية بدون لون
    Cells.Interior.ColorIndex = 0
    
    With Target
        ' لون كامل سطر الخلية الفعالة
        .EntireRow.Interior.ColorIndex = 8
        
          ' لون كامل عمود الخلية الفعالة
        .EntireColumn.Interior.ColorIndex = 8
    End With
    
    Application.ScreenUpdating = True

End Sub

 

[ميدو63]

أستاذنا الفاضل

 

أشكرك على الرد وسوف اجربة وان شاء الله ينفع

بارك الله فيك

أستاذنا /ابراهيم الحداد

بارك الله فيك يعمل كما ينبغى.

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