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

• #50615 eszgé100 őstag

  Új Válasz 2023-03-02 11:59:52 #50615

  Ú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

  

  eszgé100

  őstag

  Sziasztok!
  az alabbi koddal szinezem ki a TRUE es FALSE szavakat         For i = 1 To Len(summary.Range("E25"))
            If LCase(Mid(summary.Range("E25"), i, Len("False"))) = LCase("False") Then
                summary.Range("E25").Characters(i, Len("False")).Font.ColorIndex = 3
            End If
        Next i
    
        For i = 1 To Len(summary.Range("E25"))
            If LCase(Mid(summary.Range("E25"), i, Len("True"))) = LCase("True") Then
                summary.Range("E25").Characters(i, Len("True")).Font.ColorIndex = 4
            End If
        Next i

  Mukodik is szepen, egeszen addig mig meg nem probalok valami mast is beleirni a cellaba, ugyanis ekkor a szinezett betuk "eltolodnak" lasd az alabbi kepeken:

  

  

  ezt hogyan tundam orvosolni?

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