deel celinhoud van kleur veranderen

[duko]

is het mogelijk om met vba een deel van de celinhoud van kleur te veranderen, bv van elke waarde van de cel de rechtse drie karakters. (inhoud is steeds verschillend van lengte.

bv:
abcd
abcdef
abc

steeds de 3 laatste karakters veranderen van kleur.

bij voorbaat dank,

Alard.

 

[HSV]

Is mogelijk.

Edit: zie antwoord @jolivanes.

 

[duko]

dank je voor de reactie.

 

[jolivanes]

Tenzij je dit wil proberen (Excel 2007)

Sub TryThis()

For Each c in Range("A1:A4")

MyString = c.Text 
TC = Len(MyString)
 
With c.Characters(Start:=TC-2, Length:=3).Font
	.Color = -16776961
End With

Next

End Sub

Groetjes

 

[HSV]

Mijn excuses dat ik verkeerde informatie doorgaf.
Ik heb deze vragen vaker gezien, en steeds was het antwoord "Nee dat gaat niet".
Ik had het zelf nog geprobeerd met Right(...,3).font......, maar zonder resultaat.
Die van jouw werkt perfect @jolivanes. :thumb:
Ik heb het even opgeslagen.

 

[jolivanes]

Hey Harry, geen probleem.
Ik ben er trots op dat jij nu iets van mij hebt. Ik heb er heel wat van jou intussen.

Groetjes en Bedankt

John

 

[HSV]

Hey Harry, geen probleem.
Ik ben er trots op dat jij nu iets van mij hebt. Ik heb er heel wat van jou intussen.

Groetjes en Bedankt

John

Wordt mijn ego na zo‘n blunder toch nog een beetje gestreeld vandaag John.
Nu maar hopen dat @duko terugkijkt op de vraag.

Jij ook bedankt.

 

[popipipo]

Die van jouw werkt perfect :thumb: :thumb:

Wat is perfect?

Ik maar proberen en hij doet het niet
Wat blijkt, ik zet er alleen getallen in en dan doet hij het niet.
Getallen zijn tenslotte ook karakters

Dus perfect is nog niet goed genoeg. :thumb: :thumb: :thumb:

 

[jolivanes]

Hey Willem.
Inderdaad. Moeten we toch wat aan doen, niet?
Als ik tijd heb ga ik er wat aan knoeien.
Als jij (misschien wel "U") er wat op vind horen we het wel veronderstel ik.

@ Harry.
Hopelijk slaap je toch goed nu.


Groetjes
John

 

[jolivanes]

Bekijk bijlage VB Change Color Of Last 3 Characters In A String.xlsm
Vreemd.
Ik heb in de laatste twee cellen nummers gezet, de cel eigenschappen veranderd naar "Text", het laatste nummer veranderd in een letter, de macro laten lopen, kleur weer op automatisch gezet en dan werkt het wel.

Voorbeeld.
1) 987654321
2) de 1 (een) veranderd in een a (98765432a)
3) macro laten lopen. Dan zijn de laatste drie characters (32a) rood
4) kleur weer op automatisch en de a weer veranderen naar een 1 (een)
5) Macro weer laten lopen
6) Nu ziin de laatste drie (321) characters rood.

Zie attachment

MVG

John

 

[jolivanes]

popipipo
Als er een getal met drie cijfers is ingevuld werkt het!!!

Het volgende werkt ook (Of het acceptable is weet ik niet)

Sub TryThis()
Set RTBU = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)

For Each c In RTBU
c.Value = "'" & c.Value

MyString = c.Text
TC = Len(MyString)

With c.Characters(Start:=TC - 2, Length:=3).Font
        .Color = -16776961
End With

Next

End Sub

Ik hoor wel of dit mag!

Groetjes

John

 

[duko]

Oplossing werkt voor mij. Bedankt voor de inbreng.

 

[popipipo]

Wat mij betreft is hij nu perfect :thumb: :thumb:

 

[HSV]

Perfectionist! :thumb:
Goed gemaakt.

 

[jolivanes]

Dank U wel heren (veronderstel ik)