بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'تلوين الخلية و صف الخلية النشطة'.
تم العثور علي 1 نتيجه
-
تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كود رائع يمشى معك كظلك داخل الورقة تم ارفاق الكود من الفاضل أ / h63 كود تلوين صف الخلية النشطة Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Sh.Cells.Interior.ColorIndex = xlNone If Target.Cells.Count = 1 Then With Rows(Target.Row).Interior .ColorIndex = 8 .Pattern = xlSolid End With End If End Sub كود تلوين الخلية النشطة و عدم تلوين عند الكابس مرة اخرى Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Not Intersect(Target, Selection) Is Nothing Then If Target.Interior.ColorIndex = 34 Then Target.Interior.ColorIndex = 0 Else Target.Interior.ColorIndex = 34 End If End If End Sub مرفق الملف و الشرح New_Folder.rar و لا تنسونا من صالح الدعاء تحياتى