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

• #51001 Delila_1 veterán TillaT #51000

  Új Válasz 2023-05-17 09:07:42 #51001

  Ú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 TillaT #51000 üzenetére

  Egy megoldás:

  Private Sub Worksheet_Change(ByVal Target As Range)
    If Len(Target.Value) = 3 Then
        Application.EnableEvents = False
        Target = Target & ""
        Range(Target.Address).Characters(2, 1).Font.ColorIndex = 3
        Application.EnableEvents = True
    End If
End Sub

  Szám esetén az Excel azonnal dátummá alakítja a beírt értéket, ezért kell szöveggé alakítani.

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