Hirdetés

Keresés

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

  • 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