Format part of cell with underline

[FryGirl]

Is it possible to format half of a cell with a different format?

I'm using [FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]=TEXT(G5,"0.00")&CHAR(10)&TEXT(E5,"0.00") and would like to format the first half with an underline so it looks like a division.

Like this

1267.98
66.21
[/FONT]

 

[Fluff]

You can do it with hard values, but not with a formula.

 

[FryGirl]

How can I do it with the hard values? I'm going to use VBA to convert the formula into .value so I suppose I could also use the VBA to underline the first half of the value?

How can this be done? Not the converting to .value part, I can do that, just the underline half of the cell.

 

[Fluff]

Something like

   With Range("A4")
      .Characters(1, InStr(1, .Value, Chr(10))).Font.Underline = True
   End With

 

[FryGirl]

Awesome. Thanks.

 

[Fluff]

You're welcome & thanks for the feedback

 

[Rick Rothstein]

How can I do it with the hard values? I'm going to use VBA to convert the formula into .value so I suppose I could also use the VBA to underline the first half of the value?

Why not abandon the formula approach and let VBA do it all...

Sub UnderlineFirstValue()
  Dim FrmtE As String, FrmtG As String
  FrmtG = Format(Cells(5, "G").Value, "0.00")
  FrmtE = Format(Cells(5, "E").Value, "0.00")
  With Cells(5, "J")
    .WrapText = True
    .Value = FrmtG & vbLf & FrmtE
    .Characters(1, Len(FrmtG)).Font.Underline = True
  End With
End Sub

 

[FryGirl]

Thanks Rick. This is appreciated and a great addition. Out of curiosity, how do you ident your code? I use to use the Smart Indenter but the last time I checked it does not work with the newer version. Maybe it's the 32 bit versus 64 bit, I can't remember.

 

[Rick Rothstein]

Out of curiosity, how do you ident your code?

Manually... I have been writing code (in several languages over the years) daily since 1981 (well before code indenters were even thought of), so somewhere many years ago now it became automatic for me to indent my code to make it readable to me.

 

[FryGirl]

Okay thanks. Never hurts to ask.