Displays statements in Subcript or superscript using "If" formula

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi all,

how do i create a "if" statement that displays words in subcript or
superscript?

e.g. = if (A1>A2, "Pa > Pb", "Pb > Pa"), where the "a" and "b" should be
displayed as subscripts to "P".

thk.
 
Air,

You have to do that using VBA code.

For example, copy the code below, right-click on the sheet tab where you want that IF function,
select "View Code", and paste the code into the window that appears.

Change the "A3" to reflect the cell address of the cell where you wanted that formula.

If you have no other formulas, you might need to use the change event instead.

HTH,
Bernie
MS Excel MVP

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
With Range("A3")
If Range("A1").Value > Range("A2").Value Then
.Value = "Pa > Pb"
ElseIf Range("A1").Value < Range("A2").Value Then
.Value = "Pb > Pa"
Else
.Value = "Pa = Pb"
End If
.Characters(Start:=2, Length:=1).Font.Subscript = True
.Characters(Start:=7, Length:=1).Font.Subscript = True
End With
Application.EnableEvents = True
End Sub
 
it works. THX!

Bernie Deitrick said:
Air,

You have to do that using VBA code.

For example, copy the code below, right-click on the sheet tab where you want that IF function,
select "View Code", and paste the code into the window that appears.

Change the "A3" to reflect the cell address of the cell where you wanted that formula.

If you have no other formulas, you might need to use the change event instead.

HTH,
Bernie
MS Excel MVP

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
With Range("A3")
If Range("A1").Value > Range("A2").Value Then
.Value = "Pa > Pb"
ElseIf Range("A1").Value < Range("A2").Value Then
.Value = "Pb > Pa"
Else
.Value = "Pa = Pb"
End If
.Characters(Start:=2, Length:=1).Font.Subscript = True
.Characters(Start:=7, Length:=1).Font.Subscript = True
End With
Application.EnableEvents = True
End Sub
Click to expand...
 
Air,

Glad to hear that you were actually able to follow my poorly-written instructions.... ;-)

Bernie
MS Excel MVP
 
Back
Top