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

• #51489 karlkani aktív tag szürke #51487

  Új Válasz 2023-10-03 15:51:25 #51489

  Ú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

  

  karlkani

  aktív tag

  válasz szürke #51487 üzenetére

  Szia!

  Sub Cella_elso_karakter_szincsere()
Application.ScreenUpdating = False
Dim cell As Range, i As Integer, cellVal As String
With Columns(1)
.SpecialCells(xlTextValues).Font.ColorIndex = 1
For Each cell In .SpecialCells(xlTextValues)
cellVal = cell.Text
If Left(cell.Value, 1) = "B" Then cell.Characters(1, 1).Font.ColorIndex = 3
If Left(cell.Value, 1) = "C" Then cell.Characters(1, 1).Font.ColorIndex = 5
Next cell
End With
Application.ScreenUpdating = True
End Sub

  Ez a makró az A oszlopban található, B betűvel kezdődő cellák első karakterét pirosra, a C betűvel kezdődőekét kékre színeszi.

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