Format Part of Text Cell using VBA
 

Using Excel 2000 - it is manually possible to create a cell, where the
first line of text is in italics and the remainder of the text in the
cell is normally formatted.

Can you part-format a cell using excel 2k?

If not can you achieve this on any other versions of excel.

TIA

Vlad

Format Part of Text Cell using VBA
 

If the value in the cell is a number or the results of a formula, then you can't
do this kind of formatting.

But if the value in the cell is text, then
you can select the cell
highlight the characters (in the formula bar) that you want to give a special
format

and format|Cells
(or click the icons on the formatting toolbar)

Vlad wrote:

Using Excel 2000 - it is manually possible to create a cell, where the
first line of text is in italics and the remainder of the text in the
cell is normally formatted.

Can you part-format a cell using excel 2k?

If not can you achieve this on any other versions of excel.

TIA

Vlad

--

Dave Peterson

Format Part of Text Cell using VBA
 

Dave Peterson wrote:
If the value in the cell is a number or the results of a formula, then you can't
do this kind of formatting.

But if the value in the cell is text, then
you can select the cell
highlight the characters (in the formula bar) that you want to give a special
format

and format|Cells
(or click the icons on the formatting toolbar)



Sorry Dave - I meant can I do this using VBA

Format Part of Text Cell using VBA
 

I have now managed to find a solution:-

Sub EditFont()
'To format font color for 12 digits to 4 black, 5 red, 3 black:
123456789012
'First, format digits to be treated as characters
ActiveCell.Value = "'" & ActiveCell.Value
'Format all characters for black
With ActiveCell
..Font.ColorIndex = 3
'Format characters 5 thru 12 as red
..Characters(1, ActiveCell.Characters.Count - 8).Font.ColorIndex = 1
'Reformat characters 10 thru 12 back to black
..Characters(10, ActiveCell.Characters.Count - 3).Font.ColorIndex = 1
End With