makannya ?
KROTO Oom !
makanya bisa bersuara kayak cucakrorwo...
( ha ha ha...)
by the way..
Select Case *Number*
Case 0
Kata = "Zero"
*Case 1 To 1E+18*
Kata = TERBILANG(Number)
Case Else
MsgBox "Bilangan Terlalu besar!", 48, Ttel
End Select
menyebabkan nilai *0.00001 *sampai* 0.99999* dianggap "terlalu besar"
mungkin struktur select itu perlu di koreksi sedikit.. menjadi sperti ini...
Select Case Number
Case 0
Kata = "Zero"
Case *0.0001* To 1E+18
Kata = TERBILANG(Number)
Case Else
MsgBox "Bilangan Terlalu besar!", 48, Ttel
End Select
Tetapi..... jika kita donlot lgi filenya, ternyata "bugs" itu *sudah
di"debugs" *!
horeee !! tengkyu my angels...
*o'Seno*
2012/1/20 utthank abe <[email protected]>
> **
>
> zalut ama 2 tante ini... makan apa tante.. biar biza pintar kek kalian
> --
> R125
>
> On 1/20/12, i Haps <[email protected]> wrote:
>
> *Coding VBA - WORD yg dipakai*, kira kira spt ini
> >
> > Select Case Number
> > Case 0
> > Kata = "Zero"
> > Case 1 To 1E+18
> > Kata = TERBILANG(Number)
> > Case Else
> > MsgBox "Bilangan Terlalu besar!", 48, Ttel
> > End Select
> >
> > *terbilang 18 digit + 2 Desimal*
> > versi WORD : http://www.box.com/shared/jycu9zie0j
> > versi EXCEL : http://www.box.com/s/lxzuzvism887uoqq1uxr
> > *terbilang 27 Digit !! *
> > versi Excel : http://www.box.com/s/0feuadh2n2evl6bdrxzq
> > ----------------------------------------------------------
>
>
