*Jika diinginkan pakai makro*, sebenarnya 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
' Area yg akan diproses ditetntukan oleh Yu Ser melalui InputBox
On Error Resume Next
*Set DatArea = Application.InputBox(* _
"Tentukan Range Input Datanya", _
"Mengkonversi nilai Bulan menjadi AngkaRomawi", , , , , , *8*)
' Loop ke semua baris InputBox, ditulisnya di kolom ke 6
For Each box In DatArea
'Kalkulasinya : Sami-mawon...
box(1, 6) = WorksheetFunction.*Roman(Month(box(1, 1)))*
Next box
End If
End Sub
'>> (sebenarnya mubazir, lha-wong bisa pakai formula kok pakai makro)
2011/12/27 i Haps <[email protected]>
> =ROMAN(MONTH(C5))
> masalah tersebut ternyata tidak terlalu sulit karaena Data di C adalah
> data DATE
> yg bisa diambil ANGKA BULAN nya dengan : MONTH(C5)
>
> Kalau mau cari yg susah adalah :
> ** diketahui *TEXT nama Bulan (misal C5 = "Januari")*
> ** ingin dikonversi menjadi Angka Romawi = I
> Ndak usah dibahas lagi karena tinggal melihat di sini
>
> *2011/12/24 Endut Karim <[email protected]>
> *
>>
>> * *
>> *Saya punya problem yaitu Nama bulan yang digeneret menjadi Angka Romawi*
>> *Terlampir Problemnya
>> Effendy Karim*
>>
>
