Jika ingin PROGRAM itu sendiri yg meniadakan "Rupiah" dan "Sen" nya
di bagian prosedur fungsi Terbilang / *Function Terbilang(....)*
lihat di bagian terbawah di BLOK Select Case (2 blok)
bisa di-obok-obok menjadi seperti ini
'-------------
Select Case Rupiah
Case ""
Rupiah = "Nol" ' Rupiah"
Case Else
Rupiah = Rupiah ' & "Rupiah"
End Select
Select Case Sen
Case ""
Sen = ""
Case Else
Sen = " dan " & Sen &* "Per-Seratus"* ' "Sen"
End Select
'------------
warna font BIRU adalah keyword yg ditambahkan
warna font merah adalah keyword yg dihapus / di nonaktip-kan
Atau,
berhubung tiap blok hanya mengandung 2 (dua) "SELECT"(ion)
sekalian kita bisa mengubah menajdi struktur IF - THEN - ELSE yg
mengurangi cacah baris program.
Selain itu di bagian deklarasi variable, kita masih bisa meningkatkan *speed
*
makro ini dengan menentukan TYPE DATA tiap variables-nya
(saat ini di deklarasikan sebagai VARIANT semua)
di milis ini pernah dibahwa dan dibuktikan bahwa variable y gdideklarasikan
dan ditentukan typedatanya dengan tepat ternyata JALAN lebih cepat daripada
program yg sama tetapi variablenya tidak dideklarsaikan (yg berarti
ostosmastis
dianggap VARIANT yg memerlukan "jatah memori" lebih besar)
CMIIW
2012/1/13 Adi Irawan <[email protected]>
>
> Bu Inri, File yang saya maksud adalah file yng di kirim oleh pak Djati bu,
> maap saya lupa mendeskripsikannya terlebih dahulu hehehe
>
>
> 2012/1/12 i Haps <[email protected]>
> > berhubung dlm topik ini banyak sekali file "terbilang" yg dikirimkan
oleh
> > para penanggap, kita perlu tahu: file yg mana yg anda pakai
> > bisakah di tunjukkan dengan jelas, atau dilampirkan ?
> > atau paling tidak kutipkan full text ex Prosedur UDF nya ?
> > (makronya)
>
> >
> > 2012/1/12 Adi Irawan <[email protected]>
> >> o Ia kalau terbilangnya tidak pake rupiah gimana ya ?
> >> saya coba2 utak atik tapi malah eror.heheh
