sebenarnya kalau boleh pakai formula, maka: =ROMAN(MONTH(C5))
sudah termasuk ringkas dan cepat dibanding formula panjang Beby:
=Choose(text([kolom bulan],"m"),"I","II","III","
IV","V","VI","VII","VIII","IX","X","XI","XII")
Tetapi berhubung ybs ternyata ingin solusi dgn makr,o jadi terpaksa pakai
makro
Pada tahap penggunaannya, Makro tetap ada keunggulannya, = tidak perlu
menuliskan
sesuatu tinggal klik bisa menyelesaikan misalnya pun data Inputnya =
1048576
(satu juta lebih) cell baris
=== kutipan===
Pakai Makro Ya sama saja; hanya kita pakai "slank" / dialex VBA
di sini dicontohkan makro diotomatiskan jalannya; *kalau cell H3 di click*
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim box As Range, DatArea As Range
If Target.Address = "$H$3" Then
On Error Resume Next
Set DatArea = Application.InputBox( _
"Tentukan Range Input Datanya", _
"Mengkonversi nilai Bulan menjadi AngkaRomawi", , , , , , 8)
For Each box In DatArea
box(1, 6) = WorksheetFunction.Roman(Month(box(1, 1)))
Next box
End If
End Sub
*
*
*2011/12/27 Endut Karim <[email protected]>
*
>
> *Terima kasih atas bantuannya*
> *Mohon maaf yang dimaksud adalah penulisan dengan Macro*
> *Terima kasih bantuannya*
> *Effendy Karim*
>
=== end of kutipan===
2011/12/28 Beby Asvi Yunita <[email protected]>
> **
> Selamat pagi, Mohon maaf mau coba bantu....CMIIW
>
> =Choose(text([kolom
> bulan],"m"),"I","II","III","IV","V","VI","VII","VIII","IX","X","XI","XII")
>
> Mungkin ada yg lebih simple???
> Semoga membantu...
>
>
> ----- Original Message -----
> *From:* Endut Karim <[email protected]>
> *To:* [email protected]
> *Sent:* Saturday, December 24, 2011 3:51 AM
> *Subject:* ]] XL-mania [[ Nama bulan menjadi angka Romawi
>
> Dear XL-Master,
> Saya punya problem yaitu Nama bulan yang digeneret menjadi Angka Romawi
> Terlampir Problemnya
> Thanks bantuannya
> Regard
> Effendy Karim
>
> __._,_.
>
