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

• #2949 Delila_1 veterán Djatus #2947

  Új Válasz 2008-01-10 08:20:29 #2949

  Ú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

  

  Delila_1

  veterán

  válasz Djatus #2947 üzenetére

  Én az eszköztárra tettem egy ikont, ami a kérdéses színeket megadja.

  Sub Szín_lekérdezés()
  If Selection.Font.ColorIndex = -4105 Then
  MsgBox "A karakter színkódja: " & Selection.Font.ColorIndex & " (automatikus)"
  Else
  MsgBox "A karakter színkódja: " & Selection.Font.ColorIndex & " "
  End If
  If Selection.Interior.ColorIndex = -4142 Then
  MsgBox "A cella hátterének színkódja: " & Selection.Interior.ColorIndex & " (átlátszó)"
  Else
  MsgBox "A cella hátterének színkódja: " & Selection.Interior.ColorIndex & " "
  End If
  End Sub

  A subrutint a personal.xls-be tettem.
  A két feltételt nem is kell belevenni, azok csak arra jók, hogy a -4105 és -4142-es színkódot könnyebben lehessen értelmezni.
  Neked kétfelé kell vágnod a userformon ezt a rutint.

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