Tanpa VBA akan membuat formula terkesan panjang dan pada xl2003 ke bawah
harus menggunakan kolom bantu atau nama range.
Misal hasil di cell B1 dengan bunyi formula :
=trim(substitute(substitute(substitute(substitute(substitute(substitute(substitute(substitute(substitute(substitute(a1,0,"nol
"),1,"satu "),2,"dua "),3,"tiga "),4,"empat "),5,"lima "),6,"enam
"),7,"tujuh "),8,"delapan "),9,"sembilan "))
*** jika regional setting komputer setempat adalah Indonesian, ganti
seluruh karakter koma dengan karakter titik koma
Dengan VBA, berarti menggunakan UDF (user defined function). Misal diberi
nama AngkaToTeks. Di sebuah general module di VBE diberi blok prosedur
function berikut :
public function AngkaToTeks( sData as string) as string
dim sTeks() as string,lAngka as long
steks=split("nol |satu |dua |tiga |empat |lima |enam |tujuh |delapan
|sembilan ","|")
for lAngka=0 to 9
sdata=replace(sdata,langka,steks(langka))
next langka
angkatoteks=trim(replace(sdata," ",vbnullstring))
end function
dengan cara pakai di cell untuk data di A1, misal diletakkan di C1, maka
cell C1 berisi formula berbunyi :
=AngkaToTeks( a1 )
*** pastikan general module di VBE yang berisi prosedur function
AngkaToTeks ada disetiap workbook yang membutuhkan UDF AngkaToTeks.
*** workbook yang sudah berisi prosedur function AngkaToTeks di VBE di-save
as dengan tipe file Macro Enabled Workbook (.xlsm)
*** jika ingin menjadikannya sebagai sebuah addin, maka save as dengan tipe
Excel Add-in (.xlam) atau Excel 97-2003 Add-in (.xla) dan copy file
tersebut ke komputer yang membutuhkan UDF AngkaToTeks. Aktifkan addin dan
kompiter tersebut akan bisa menggunakan UDF angkatoteks.
Wassalam,
Kid.
2014-05-29 11:17 GMT+07:00 Nora Ismanti noraisma...@yahoo.com[belajar-excel]
<belajar-excel@yahoogroups.com>:
>
>
> 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.
>
>
>
