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

• #54873 Delila_1 veterán huan #54870

  Új Válasz 2026-02-09 14:31:00 #54873

  Ú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 huan #54870 üzenetére

  Szia

  A makró bekéri a színezendő szót, majd a B3: B8 tartományban elvégzi a színezést.

  Sub Piros_szo()
    Dim sor As Integer, kezd, szo As String, hossz As Long
    
    szo = Application.InputBox("Add meg színezendő szót!", "Színezendő szó bekérése", , , , , , 2)
    hossz = Len(szo)
    
  For sor = 3 To 8 'Itt írhatod át a tartományt
      kezd = InStr(Cells(sor, "B"), szo) ' itt a B helyett a formázandó oszlop betűjelét írd be
        If kezd >= 1 Then
            Cells(sor, "B").Characters(Start:=kezd, Length:=hossz).Font.ColorIndex = 3
        End If
    Next
End Sub

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