betul mas zain, ini juga sudah siti kemukaan di saat diajukan permintaan (di milis sebelah).
siti bilang pengucapan spt itu "tidak mengikuti bhs indonesia baku"; tetapi sang Thread-Maker-nya malah ngambeg...(tidak muncul lagi) untuk keperluan seperti itu, juga beberapa hari sebelumnya sudah di jawab dengan FORMULA 999_99 (dengan pengucapan spt yg mas zain maksudkan) tanpa makro hanya dibantu Define Name (1 name: N berisi array pengucapan "satu" sampai "sembilan" megaformulanya (terakhir diperbaiki 21 april 2011) seperti di bawah ini di lepas lagi di sini barangkali para bapak / ibu guru / TU bekenan memakainya mumpung lagi musim durian .. eh musin ujian : slta sltp =IF(--INT(C5)=0,"Nol ",IF(--(LEFT(TEXT(INT(C5),"000")))=1,"Seratus ",IF(--(LEFT(TEXT(INT(C5),"000")))>1,INDEX(N,--(LEFT(TEXT(INT(C5),"000"))))&"Ratus ","")))&IF(--(MID(TEXT(INT(C5),"000"),2,1))=0,"",IF(--(MID(TEXT(INT(C5),"000"),2,1))=1,CHOOSE((--(RIGHT(TEXT(INT(C5),"000")))=0)*1+((--(RIGHT(TEXT(INT(C5),"000")))=1)*2)+((--(RIGHT(TEXT(INT(C5),"000")))>1)*3),"Sepuluh ","Sebelas ",INDEX(N,--(RIGHT(TEXT(INT(C5),"000"))))&"Belas "),IF(--(MID(TEXT(INT(C5),"000"),2,1))>1,INDEX(N,--(MID(TEXT(INT(C5),"000"),2,1)))&"Puluh ")))&IF(OR(--(MID(TEXT(INT(C5),"000"),2,1))=1,--(RIGHT(TEXT(INT(C5),"000")))=0),"",INDEX(N,--(RIGHT(TEXT(INT(C5),"000")))))&"Koma "&IF(--LEFT(TEXT(MOD(C5,1)*100,"00"))=0,"Nol ",INDEX(N,LEFT(TEXT(MOD(C5,1)*100,"00"))))&IF(--RIGHT(TEXT(MOD(C5,1)*100,"00"))=0,"Nol ",INDEX(N,RIGHT(TEXT(MOD(C5,1)*100,"00")))) formula ini panjangnya (jika ditulis di cell dengan nama kolom 1 huruf & nama baris 1 digit ' = sekitar 823 karakter; belum mencapai max 1024 sebetulnya dengan rumus dari mas zain dulu itu sudah terselesaikan, tetapi karena define name mengharuskan penulisan terjemahan angka harus di CELL YG ARAH & JARAKNYA TERTENTU dari sumber data (bilangan) nya, maka masih banyak pemakai yg bertanya-tanya UDF dan Formula di atas diperuntukkan bagi yg sulit memahami define name (name berisi formula) yg cara pembuatan dan pemakaiannnya tidak semua user mau bersusah payah memahaminya padahal banyak juga keunggulannya. tks siti note UDF maupun formula yg dibicarakan di threads ini dapat diunduh langsung di http://www.box.net/shared/43dkx9ai46 (ex modifikasi 23/apr/2011) 2011/4/23 zainul ulum [yahoo] <[email protected]> > > Kalo nggak salah pengucapan angka di belakang koma yang benar missal untuk > 40.27 adalah > > Empat puluh koma dua tujuh > > Bukan > > Empat puluh koma dua puluh tujuh. > > > > Karena angka 2 di angka tersebut bukan puluhan, tetapi seper-puluhan dan > angka 7 adalah seper-seratusan. > > Tolong koreksi, jika salah ya….. > > > > *From:* [email protected] [mailto:[email protected]] *On > Behalf Of *STDEV(i) > *Sent:* Friday, April 22, 2011 11:39 AM > *To:* XL-mania > > *Subject:* ]] XL-mania [[ Konversi Nilai menjadi Kata-Kata seperti di > Rapor 'Anak Sekolah' > > Ysh & Yss para Bapak / Ibu Guru / TU di Sekolah-Sekolah, di Indonesia.. > > > Dlm rangka merayakan Hari Kartini (wah.. sudah lewat sehari ya..)... > barangkali Anda memerlukan Fungsi di Excel Anda untuk *menterjemahkan > Nilai > menjadi Kata-Kata dengan contoh pengucapan seperti ini* > > > > Nilai > > Pengucapan Nilai > > 40.27 > > *Empat Puluh Koma Dua Puluh Tujuh* > > 79.94 > > *Tujuh Puluh Sembilan Koma Sembilan Puluh Empat* > > 75.70 > > *Tujuh Puluh Lima Koma Tujuh Puluh* > > 84.01 > > *Delapan Puluh Empat Koma Nol Satu* > > 84.10 > > *Delapan Puluh Empat Koma Sepuluh* > > 4.93 > > *Empat Koma Sembilan Puluh Tiga* > > 23.40 > > *Dua Puluh Tiga Koma Empat Puluh* > > 10.27 > > *Sepuluh Koma Dua Puluh Tujuh* > > 79.00 > > *Tujuh Puluh Sembilan Koma Nol Nol* > > 0.89 > > *Nol Koma Delapan Puluh Sembilan* > > 43.70 > > *Empat Puluh Tiga Koma Tujuh Puluh* > > 26.76 > > *Dua Puluh Enam Koma Tujuh Puluh Enam* > > 59.00 > > *Lima Puluh Sembilan Koma Nol Nol* > > 14.98 > > *Empat Belas Koma Sembilan Puluh Delapan* > > > > dan belum sempat membuat sendiri UDF nya... > > > > Anda dapat mengunduh file bernama > ctv_UDF_Terbilang_Nilai_Rapor_Cah_Sekolah.xls<http://www.box.net/shared/43dkx9ai46> > > di sini : http://www.box.net/shared/43dkx9ai46 > > > > syarat: tanpa syarat, > > boleh di-obok-obok, boleh dipakai, boleh tidak dipakai, boleh dihapus, > boleh dibuang.. > > bulih - bulih - bulih .. > > > > wassalam, > > ~siti~ > > >
