Roman number series (macro)
Closed
Caines87
Posts
1
Registration date
Wednesday 27 April 2011
Status
Member
Last seen
27 April 2011
-
27 Apr 2011 à 22:37
RWomanizer Posts 365 Registration date Monday 7 February 2011 Status Contributor Last seen 30 September 2013 - 28 Apr 2011 à 03:50
RWomanizer Posts 365 Registration date Monday 7 February 2011 Status Contributor Last seen 30 September 2013 - 28 Apr 2011 à 03:50
Related:
- Roman number series (macro)
- Xbox series x 3d blu ray - Guide
- Best scandinavian crime series on netflix - Guide
- Excel online macro - Guide
- Excel run macro on open - Guide
- Macro for number to words in excel - Guide
1 response
RWomanizer
Posts
365
Registration date
Monday 7 February 2011
Status
Contributor
Last seen
30 September 2013
120
28 Apr 2011 à 03:50
28 Apr 2011 à 03:50
Use the following macro :
Once the custom series added you can delete the codes.
Sub CustomRomanSeries()
Dim i As Long
On Error Resume Next
For i = 1 To 4100
Range("A" & i).Value = WorksheetFunction.Roman(i)
Next i
Application.AddCustomList ListArray:=Range("A1:A3999")
End Sub
Once the custom series added you can delete the codes.