Ú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

• #54872 Fferi50 Topikgazda huan #54870

  Új Válasz 2026-02-09 14:02:06 #54872

  Ú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

  

  Fferi50

  Topikgazda

  válasz huan #54870 üzenetére

  Ezt sajnos automatikusan csak makróval lehet megcsinálni. Egyébként pedig kézzel cellánként lehet
  Üdv.

• #54871 föccer nagyúr huan #54870

  Új Válasz 2026-02-09 14:01:00 #54871

  Ú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

  

  föccer

  nagyúr

  válasz huan #54870 üzenetére

  Egyesével kijelölöd a cellán belül a szövegrészt, jobb klikk, cella formázás, és akkor ott megadod.

  Ezen kívül csak makróval. A SZÖVEG() függvény vagy a szövegösszefűzés sem működik.

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