Skip to main content

WorksheetFunction.Roman method

Converts an arabic numeral to roman, as text.


expression.Roman (Arg1, Arg2)

expression A variable that represents a WorksheetFunction object.


Name Required/Optional Data type Description
Arg1 Required Double Number - the Arabic numeral that you want converted.
Arg2 Optional Variant Form - a number specifying the type of roman numeral you want. The roman numeral style ranges from Classic to Simplified, becoming more concise as the value of form increases.

Return value



The following table describes the values that can be used for Arg2.


Form Type
0 or omitted Classic.
1 More concise.
2 More concise.
3 More concise.
4 Simplified.
TRUE Classic.
FALSE Simplified.

If number is negative, the #VALUE! error value is returned.

If number is greater than 3999, the #VALUE! error value is returned.


Thіѕ following example converts Arаbіс numbers to roman numbеrѕ.

Sub ArabicToRoman()
    Dim rng As Range
    On Error Resume Next
    Selection.Value = Selection.Value
    For Each rng In Selection
        If WorksheetFunction.IsNumber(rng) Then
            rng.Value = WorksheetFunction.Roman(rng)
        End If
    Next rng
End Sub

Leave a comment

Your email address will not be published. Required fields are marked *

Format your code: <pre><code class="language-vba">place your code here</code></pre>