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

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

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

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