How to color characters REG, GREEN, YELLOW in the same cell?

[Bob Hillier]

I have seen the VB code that will count cells with a specific color.
I have seen the VB code that will set the font color of all characters in a
cell.
What is the VB code that sets the colour of individual characters in a cell?
For example:
What is the VB code to set 5 characters GREEN,
2 characters YELLOW and 3 characters RED in the same cell?

Why would I want to do this?...

I have 10 project deliverable tasks grouped with the summary task at the
top. Each deliverable task has a status colour assigned (GREEN, YELLOW,
RED). The group summary line has a status cell filled with 10 # characters.
Each # character is to be coloured the colour of one of the 10 deliverable
task's status. This results in what looks like a colour bar showing the
status of all the tasks in the group.

Now, I manually count the number of GREEN, YELLOW and RED cells in a range.
I manually select the correct number of # characters in the summary status
cell and color them GREEN, YELLOW and RED as required. This produces a
visual color bar on the summary line.... manually. (I actually have 112
tasks across 11 function areas and this manual approach is slow, tedious and
error prone.)

How can I automate this with VB code?

Thank you for any suggestions.

Bob

 

[Frank Kabel]

Hi Bob
you can use the 'characters' object for this. e.g.
With Worksheets("Sheet1").Range("A1")
.Value = "teststringteststring"
.Characters(1, 5).Font.colorindex = 10
.Characters(6, 3).Font.colorindex = 3
End With

Frank