الفزعة يالربع ........ بليززززززززززززز

[alyaqob]

كيف يمكنني تلوين الخلية النشطة بلون مختلف عن الخلايا الاخرى .

[عادل حنفي]

اخي العزيز

اليك طلبك بشكلين مختلفين

الاول

عباره عن كودين و الاخر عباره عن ملف مرفق

الكود الاول

يجعل الخليه النشطه بدون لون عند فتح الملف

Private Sub Workbook_Activate()
Cells.Interior.ColorIndex = xlColorIndexNone
End Sub

و الاخر يعمل علي الخليه النشطه ويغير لونها

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Static OldCell As Range
If Not OldCell Is Nothing Then
    OldCell.Interior.ColorIndex = xlColorIndexNone
End If
Target.Interior.ColorIndex = 15
Set OldCell = Target
End Sub

اما الملف المرفق فها هو يا عزيزي

cellse_color.rar