Convert Roman Numbers into Arabic Numbers
Sometimes it’s really hard to understand Roman numbers as serial
numbers. This code will help you to convert roman numbers into arabic numbers.
Sub convertToNumbers()
Dim rng As Range
Selection.Value= Selection.Value
For Each rng In Selection
If Not WorksheetFunction.IsNonText(rng) Then
rng.Value= WorksheetFunction.Arabic(rng)
End If
Next rng
End Sub
No comments:
Post a Comment