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

• #41376 Fferi50 Topikgazda HREH #41375

  Új Válasz 2019-07-15 13:11:39 #41376

  Ú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

  

  Fferi50

  Topikgazda

  válasz HREH #41375 üzenetére

  Szia!

  Nem mondanám, hogy pofonegyszerű...
  Eseménykezelő makró kell a munkalap kódlapjára:
  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
Target.Offset(0, 1).Interior.Color = RGB(Application.Hex2Dec(Left(Target.Value, 2)), Application.Hex2Dec(Mid(Target.Value, 3, 2)), Application.Hex2Dec(Right(Target.Value, 2)))
Application.EnableEvents = True
End If
End Sub
  Ha az első oszlopban egy cellába beírsz egy hatjegyű Hexa számot, a mellette levő cellát beszínezi a megfelelő színre.
  Vigyázz, hibakezelés nincs benne, ha nem hatjegyű a szám, akkor mindenféle előfordulhat.
  (de gondolom a hosszát meg tudod vizsgálni...)

  Üdv.

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