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 noraisma...@yahoo.com [belajar-excel] < belajar-excel@yahoogroups.com> 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