Solusi yang PAS. Walaupun Select Case jarang tampil, di tangan Mr. Kid tampilannya jadi menarik.
Salam, HK On Friday, 30 May 2014, 8:20, "Nora Ismanti noraisma...@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote: Terima kasih. Problem sudah terpecahkan. ________________________________ Dari: "Ferry Setiawan fset2...@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> Kepada: belajar-excel@yahoogroups.com Dikirim: Kamis, 29 Mei 2014 11:53 Judul: Re: [belajar-excel] Bagaimana mengkonversi angka menjadi teks (bukan TERBILANG) [1 Attachment] 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. > > >
