How do I get Roman Numeral Font?

[Guest]

Is there a place to download a roman numeral font? I would like the numbers
in my spreadsheet to show as roman numerals. (EX: 21 = XXI)

 

[Dave Peterson]

You can use a helper cell:

With 21 in A1, put this in the other cell:
=roman(a1)

There are additional options for this function. Look at Excel's help for more
info.

 

[Gord Dibben]

And if you want it done in the cell as you enter the number without a helper
cell.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column > 8 Then Exit Sub
On Error GoTo ErrHandler
Application.EnableEvents = False
Target.Formula = Application.WorksheetFunction.Roman(Target.Formula)
ErrHandler:
Application.EnableEvents = True
End Sub


Gord Dibben MS Excel MVP