Új hozzászólás Aktív témák

• #34072 lappy őstag eszakas #34070

  Új Válasz 2017-02-06 13:42:30 #34072

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz eszakas #34070 üzenetére

  Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("G4")) Is Nothing Then Exit Sub
Me.Shapes("Rectangle 1").Select
With Range("G4")
If .Value > 0 And .Value <= 56 Then
Selection.ShapeRange.Fill.ForeColor.RGB = ThisWorkbook.Colors(.Value)
Else
Selection.ShapeRange.Fill.ForeColor.RGB = 0
End If
.Select
End With
End Sub

  ez a G4 értékének változására változtatja meg az objektum színét

Új hozzászólás Aktív témák