Hirdetés

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

  • 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