Append text to a cell with color

gvdm · #1 04-11-2012, 09:43 AM

Hello!

I need to append to a the text of a cell (in which some of the characters are red and the others are black) the characters "hi" coloured in red.

I've tried with this code

Code:

Dim strOut As String
Dim charOut As Characters
strOut = Sheet1.Range("G8").Characters.Text
strOut = strOut + " hi"
Sheet1.Range("G8").Characters.Text = strOut 'THIS IS THE WRONG LINE

Set charOut = Sheet1.Range("G8").Characters(Sheet1.Range("G8").Characters.Count - 1, 2) 'pick the last two chars to be coloured

charOut.Font.Color = RGB(255, 0, 0)

The problem is that, when I update the cell's string with the new string, it changes the format of the cell overwriting the previous formatting..

Is there a way to append a text to a cell with it's own colour without changing the format of the rest of the cell?

Thanks in previous
Giulio

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How can I fill cell color starting from Cell D5 using Conditional formatting instead	Learner7	Excel	0	07-08-2010 05:50 AM
How can I make a cell color RED under the Today's date cell?	Learner7	Excel	2	07-08-2010 12:52 AM
Filtering on cell color	mattc	Excel	1	04-30-2010 09:27 AM
Extracting Cell color	bsaucer	Excel	1	06-19-2009 06:52 AM
Auto-populate an MS Word table cell with text from a diff cell?	dreamrthts	Word Tables	0	03-20-2009 01:49 PM