Avatar billede NTlak Novice
27. maj 2020 - 11:50 Der er 2 kommentarer

VBA Skift af farve på et ord

Hej

Jeg har lavet en kode der gerne skulle farve +et ord til rød men det virker ikke.

Sub test()

Dim h As String
h = "hej"
h.Font.Color = vbRed
Range("a5") = ("h")

End Sub

Den bliver ved med at fejle. Nogen som ved hvorfor?
Avatar billede kim1a Ekspert
27. maj 2020 - 14:01 #1
Jeg tænker ikke du kan sige at en variabel har en farve.

Så hvis du vil have A5 til at stå hej og være rød, så skal du nok:

Sub test()

Dim h As String
h = "hej"
Range("A5").value = h
Range("a5").Font.Color = vbRed

End Sub
Avatar billede store-morten Ekspert
27. maj 2020 - 18:04 #2
Denne farver:
"hej" i teksten "Sig hej til mig"
i celle A5
Sub Test_farv_ord()
Dim h As String
h = "hej"

    If InStr(Range("A5").Value, h) = 0 Then
        MsgBox "Kan ikke finde: " & h
    Else
        With Range("A5").Characters( _
        Start:=InStr(Range("A5").Value, h), _
        Length:=Len(h)).Font
        .Color = -16776961
    End With
    End If
   
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester