terima kasih, tengkyu, matur nuwun, hatur nuhun, i love you fulllll wehh... orderan jadi & didelivered secepat titipan kilat...
mudah mudahan selain beguna bagiku juga bermanfaat bagi orang lain. semua doa baik 'bwat mbak siti, pak kid dan semua konco-konconya *~belajar excel ? 'gak akan 'nyesel !* 2011/4/21 STDEV(i) <[email protected]> > Sebetulnya *sudah disiapkan*, menunggu ada yg perlu, > lha kalo ndak ada yg perlu, dilempar ke milis juga ndak ada yg ngelirik... > " koyo nguyahi segoro asin..", rugi bandar !! > > Nah ini mumpung tanggal *21 April*, hari kelahiran tokoh pujanku "van > jeporo"; > kita "lepaskan" fungsi yg barangkali akan > berguna<http://www.box.net/shared/43dkx9ai46>bagi bapak /ibu guru / TU > "Tukang Nulis Rapor-e Cah Sekolah" > > Function Terbilang(Bil As Double) As String > ' siti Vi / modified 21 April 2011 / Hari Kartini > ' TERBILANG dengan 2 desimal diucapkan secara khusus > ' seperti dlm Rapor Nilai "Cah Sekolah" > '--------------------------------------------------- > Dim Utuh As Long, Pecah As Long > Dim strUtuh As String, strPecah As String > Utuh = Int(Bil) > Pecah = Round((Bil - Utuh) * 100, 0) > If Utuh = 0 Then strUtuh = "Nol " Else strUtuh = Translator(Utuh) > If Pecah = 0 Then strPecah = "Nol Nol" Else strPecah = Translator(Pecah) > Terbilang = WorksheetFunction.Proper(strUtuh & " Koma " & strPecah) > End Function > '------------- > Prosedur fungsi ini masih perlu dibantu oleh fungsi Translator yg > codingnya sudah sering > ditayangkan di milis... (ada dlm workbook lampiran) > > Selain dilampirkan, kapan-kapan diperlukan filenya bisa diunduh di sini: > http://www.box.net/shared/43dkx9ai46 > > Jika masih ada yg kurang jelas bgmna cara agar fungsi madein dalam negeri > itu bisa berlaku di semua workbook di pc-nya, tinggal kirim email saja > kemaree.. > > Herr, > wah kamu sekarang semaNGkin rajin "sobo mesjid" ya, alhamdulillah .. > > wassalam.. > siti > > > > > 2011/4/21 HerrSoe <[email protected]> > >> Kalau begitu aku yg mau minta langsung ke milis ini, mohon kiranya jika >> ada BeExcellers yg >> sedang lega dan berkenan, membuatkan UDF yg khususnya mampu menterjemahkan >> *NILAI >> dengan cara pengucapan *seperti contoh di bawah ini (rentang nilai: 0.00 >> sampai 999.99) >> >> *Nilai* *Pengucapan Nilai* 334.23 Tiga Ratus Tiga Puluh >> Empat Koma Dua Puluh Tiga 46.03 Empat Puluh Enam Koma >> Tiga 193.66 Seratus Sembilan Puluh Tiga Koma Enam Puluh >> Enam 804.28 Delapan Ratus Empat Koma Dua Puluh Delapan >> 589.51 Lima Ratus Delapan Puluh Sembilan Koma Lima Puluh Satu >> 93.00 Sembilan Puluh Tiga Koma Nol Nol 0.93 Nol Koma >> Sembilan Puluh Tiga 140.74 Seratus Empat Puluh Koma Tujuh >> Puluh Empat 362.92 Tiga Ratus Enam Puluh Dua Koma Sembilan >> Puluh Dua 835.92 Delapan Ratus Tiga Puluh Lima Koma >> Sembilan Puluh Dua 373.24 Tiga Ratus Tujuh Puluh Tiga Koma >> Dua Puluh Empat 324.71 Tiga Ratus Dua Puluh Empat Koma >> Tujuh Puluh Satu 50.30 Lima Puluh Koma Tiga Puluh >> 239.72 Dua Ratus Tiga Puluh Sembilan Koma Tujuh Puluh Dua wassalam, >> HerrSoe..Cakil >> >> ------------------- >> >> >>
