צביעת לשוניות

[of1964]

צביעת לשוניות

היי יש אפשרות שבה נניח בתא b5 אכניס נתון מסויים ואז הלשונית של אותו גיליון תצבע בצבע מסויים ? מקווה שהובהר וידוס xp אופיס 2003

 

[מיכאל אבידן]

נסה את מקרו האירוע, שלהלן, במודול רמת הגיליון . . .

Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address = "$B$5" Then
        With ActiveSheet.Tab
            Select Case [A1]
                Case "Red": .ColorIndex = 3
                Case "Green": .ColorIndex = 4
                Case "Blue": .ColorIndex = 5
            End Select
        End With
     End If
End Sub