ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   How to color characters REG, GREEN, YELLOW in the same cell? (https://www.excelbanter.com/excel-programming/290816-how-color-characters-reg-green-yellow-same-cell.html)

Bob Hillier

How to color characters REG, GREEN, YELLOW in the same cell?
 
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



mudraker[_146_]

How to color characters REG, GREEN, YELLOW in the same cell?
 
Adjust start, length & colourindex number to suit you needs


ActiveCell.Characters(Start:=1, Length:=5).Font.ColorIndex = 50
ActiveCell.Characters(Start:=6, Length:=2).Font.ColorIndex = 6
ActiveCell.Characters(Start:=8, Length:=3).Font.ColorIndex =

--
Message posted from http://www.ExcelForum.com



All times are GMT +1. The time now is 03:52 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com