Sekarang aku coba bikin tulisan lagi... mengenai makro excel... buat yang master punten nyak... bukan maksud hati bersombong ria... cuman catetan aja... daripada harus mikir lagi, bila ada case yang sama.
Makro ini merupakan pembuatan rumus yang berfungsi untuk mengubah angka menjadi bilangan, contohnya di cel A1 ada angka 1.000 dan akan berubah menjadi "seribu" dengan mengetikkan rumus =ambil(A1)di cell yang lain... begicuuu....ocreh deh langsung tancap kodenya...
Function ambil(ByVal nilai As Currency) As String
Dim satuan As Variant satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")
Select Case nilai
Case 0 To 11
ambil = " " + satuan(Fix(nilai))
Case 12 To 19
ambil = ambil(nilai Mod 10) + " Belas"
Case 20 To 99
ambil = ambil(nilai / 10) + " Puluh" + ambil(nilai Mod 10)
Case 100 To 199
ambil = " Seratus" + ambil(nilai - 100)
Case 200 To 999
ambil = ambil(Fix(nilai / 100)) + " Ratus" + ambil(nilai Mod 100)
Case 1000 To 1999
ambil = " Seribu" + ambil(nilai - 1000)
Case 2000 To 999999
ambil = ambil(Fix(nilai / 1000)) + " Ribu" + ambil(nilai Mod 1000)
Case 1000000 To 999999999
ambil = ambil(Fix(nilai / 1000000)) + " Juta" + ambil(nilai Mod 1000000)
Case Else
ambil = ambil(Fix(nilai / 1000000000)) + " Milyar" + ambil(nilai Mod 1000000000)
End Select
End Function
beres... caranya tinggal ketik aja rumusnya... yaitu =ambil(tempat cell)... selesai
Makro ini merupakan pembuatan rumus yang berfungsi untuk mengubah angka menjadi bilangan, contohnya di cel A1 ada angka 1.000 dan akan berubah menjadi "seribu" dengan mengetikkan rumus =ambil(A1)di cell yang lain... begicuuu....ocreh deh langsung tancap kodenya...
Function ambil(ByVal nilai As Currency) As String
Dim satuan As Variant satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")
Select Case nilai
Case 0 To 11
ambil = " " + satuan(Fix(nilai))
Case 12 To 19
ambil = ambil(nilai Mod 10) + " Belas"
Case 20 To 99
ambil = ambil(nilai / 10) + " Puluh" + ambil(nilai Mod 10)
Case 100 To 199
ambil = " Seratus" + ambil(nilai - 100)
Case 200 To 999
ambil = ambil(Fix(nilai / 100)) + " Ratus" + ambil(nilai Mod 100)
Case 1000 To 1999
ambil = " Seribu" + ambil(nilai - 1000)
Case 2000 To 999999
ambil = ambil(Fix(nilai / 1000)) + " Ribu" + ambil(nilai Mod 1000)
Case 1000000 To 999999999
ambil = ambil(Fix(nilai / 1000000)) + " Juta" + ambil(nilai Mod 1000000)
Case Else
ambil = ambil(Fix(nilai / 1000000000)) + " Milyar" + ambil(nilai Mod 1000000000)
End Select
End Function
beres... caranya tinggal ketik aja rumusnya... yaitu =ambil(tempat cell)... selesai
