Ini mirip terbilang sih, cuma lebih sederhana, kalau cara saya biasa pake UDF aja Jadi buka VBA, insert module, trus masukkan function dibawah
Function BukanTerbilang(vAngka As String) As String
Dim i As Integer
Dim vStr As String
vStr = vbNullString
For i = 1 To Len(vAngka)
Select Case Mid(vAngka, i, 1)
Case 0: vStr = vStr + "nol "
Case 1: vStr = vStr + "satu "
Case 2: vStr = vStr + "dua "
Case 3: vStr = vStr + "tiga "
Case 4: vStr = vStr + "empat "
Case 5: vStr = vStr + "lima "
Case 6: vStr = vStr + "enam "
Case 7: vStr = vStr + "tujuh "
Case 8: vStr = vStr + "delapan "
Case 9: vStr = vStr + "sembilan "
End Select
Next i
BukanTerbilang = Trim(vStr)
End Function
Nanti di worksheet tinggal anda gunakan fungsinya
Contoh :
=BukanTerbilang(A1)
Pada 29 Mei 2014 11.17, Nora Ismanti [email protected] [belajar-excel] <
[email protected]> menulis:
>
>
> Kepada para Master dan Anggota milis.
>
> Mohon dibantu bagaimana mengubah angka menjadi teks. Yang saya maksudkan
> BUKAN terbilang.
>
> Agar lebih jelas, silakan lihat pada lampiran.
>
>
>
Konversi angka ke teks.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
