سؤال : هذا كود تغيير تنسيق الخلية الفعالة لكنه ناقص...

[hamady66]

السلام عليكم

 

هذا الكود يغير تنسيق الخلية الفعالة 

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 

.........................

 

Target.Font.Bold = True

Target.Interior.ColorIndex = 6

Target.Font.Color = 255

Target.Font.Size = 15

 

End Sub

 

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

 

شكرا

 

 

 

 

 

[ياسر خليل أبو البراء]

جرب

Cells.ClearFormats

يقوم السطر بإعادة ضبط التنسيق العام للخلايا كلها (التنسيق الافتراضي)

تم تعديل مارس 18, 2015 بواسطه YasserKhalil

[hamady66]

جزيت خيرا

 

وفقك الله

[محمود أبوسيف]

بعد إذن أخي الفاضل ياسر أبو خليل

هذا كود يقوم بتلوين الخليه الفعاله إلي اللون الأصفر

ملحوظة :- قم بوضعه في الشيت الذي تريد تفعيل الخليه إلي اللون الأصفر 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MyColor = 6
If Not IsError(Me.[N_Color_Rng]) Then
If Not IsError(Me.[N_Color_Color]) Then
If Not IsError(Me.[N_Color_Old]) Then
If Me.[N_Color_Rng].Interior.ColorIndex = Me.[N_Color_Old] Then
Me.[N_Color_Rng].Interior.ColorIndex = Me.[N_Color_Color]
End If
End If
End If
End If
Me.Names.Add "N_Color_Rng", ActiveCell
Me.Names.Add "N_Color_Color", ActiveCell.Interior.ColorIndex
Me.Names.Add "N_Color_Old", MyColor
ActiveCell.Interior.ColorIndex = MyColor
End Sub

تم تعديل مارس 19, 2015 بواسطه Mahmoud330

[ياسر خليل أبو البراء]

بارك الله أخي محمود على الكود

ولكن على رأي المثل خير الأكواد ما قل وحل ..

[محمود أبوسيف]

ماشي يا أخ ياسر

ذلك مماتعلمناه من هذا المنتدي الرائع وفقنا الله وإياكم