Bisa juga pakai ini, tapi masih ada rumusnya
Sub Nomor()
Const sRumus As String = _
"=TEXT(ROWS($A$2:A2),""0000"")&""/KAR/ME/""&ROMAN(MONTH(A2))&""/""&YEAR(A2)"
Dim rgNomor As Range, rgRumus As Range
Set rgRumus = Range("D2")
rgRumus.Formula = sRumus
Set rgNomor = Range(rgRumus, "D" & Range("A2").End(xlDown).Row)
rgRumus.Copy rgNomor
End Sub
From: [email protected] [mailto:[email protected]]
On Behalf Of Jan Raisin
Sent: Thursday, March 28, 2013 8:51 AM
To: [email protected]
Subject: Re: [belajar-excel] penomoran dengan vba
Pinjam solusi formulanya pak Zainul Ulum ya..
script vba-nya menjadi seperti ini:
Sub IdNumber()
Dim lRow As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(2, 4), Cells(lRow, 4)).Formula =
"=TEXT(ROWS($A$2:A2),""0000"")&"" / KAR / Me / ""&ROMAN(MONTH(A2))&"" /
""&YEAR(A2)"
Range(Cells(2, 4), Cells(lRow, 4)).Value = Range(Cells(2, 4),
Cells(lRow, 4)).Value
End Sub
Wassalam,
-Miss Jan Raisin-
Pada 28 Maret 2013 08.35, vincent Yoes <[email protected]> menulis:
siap bung zainul_ulum thanks buat rumusnya cuma kalo rumus itu di vba
jadinya gimana ya...
jadi nomor tersebut tadinya kosong setelah kita pencet cmd nomor, maka
identitasnya langsung terisi dengan format tersebut.
mohon pencerahannya terima kasih....
_____
From: zainul_ulum[at]yahoo[dot]com <[email protected]>
To: [email protected]
Sent: Wednesday, March 27, 2013 4:05 PM
Subject: RE: [belajar-excel] penomoran dengan vba
Coba membantu kalo Kalo pakai rumus
=TEXT(ROWS($A$2:A2),"0000")&"/KAR/ME/"&ROMAN(MONTH(A2))&"/"&YEAR(A2)
From: [email protected] [mailto:[email protected]]
On Behalf Of vincent Yoes
Sent: Wednesday, March 27, 2013 2:34 PM
To: exel milis
Subject: [belajar-excel] penomoran dengan vba
Dear Rekan-rekan Exceller
mohon pencerahannya untuk penomoran dengan menggunakan VBA.
data terlampir.
Terima Kasih atas pencerahannya
<<image001.jpg>>
<<image002.jpg>>
<<image003.jpg>>
<<image004.jpg>>
