Two formats within one cell
 

I know that Excel will allow separate formatting of data within a cell
(i.e. "37715CCC", where the numbers ("37715") are "blue" & "bold" and
the letters ("CCC") are "black", "bold" & "italic") ., but is there a
way (VBA) of going thru a selection of cells, finding the letters,
make them "blue" & "bold" and the numbers "black", "bold" & "italic".?
I'm just trying to make the alphanumeric data easier to read (you know
distinguishing "O" from "0").

Two formats within one cell
 

Hi
Try the following code. It only works for cells with the formats:
<numbers<characters
but that's a starting point.
--
Regards,
Sébastien
<http://www.ondemandanalysis.com


"Jo Ke" wrote:

I know that Excel will allow separate formatting of data within a cell
(i.e. "37715CCC", where the numbers ("37715") are "blue" & "bold" and
the letters ("CCC") are "black", "bold" & "italic") ., but is there a
way (VBA) of going thru a selection of cells, finding the letters,
make them "blue" & "bold" and the numbers "black", "bold" & "italic".?
I'm just trying to make the alphanumeric data easier to read (you know
distinguishing "O" from "0").

Two formats within one cell
 

From vba help index for CHARACTERS

With Worksheets("Sheet1").Range("B1")
.Value = "New Title"
.Characters(5, 5).Font.Bold = True
..Characters(15, 5).Font.colorindex=5
End With


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Jo Ke" wrote in message
...
I know that Excel will allow separate formatting of data within a cell
(i.e. "37715CCC", where the numbers ("37715") are "blue" & "bold" and
the letters ("CCC") are "black", "bold" & "italic") ., but is there a
way (VBA) of going thru a selection of cells, finding the letters,
make them "blue" & "bold" and the numbers "black", "bold" & "italic".?
I'm just trying to make the alphanumeric data easier to read (you know
distinguishing "O" from "0").