[belajar-excel] Digest Number 2597

Milis Belajar Microsoft Excel Group

12 New Messages

Digest #2597

1a

macro terbilang desimal dua angka by "PRAZT" praztmath

1b

Re: macro terbilang desimal dua angka by "M.Ade Alfarid" aderyo

1c

Re: macro terbilang desimal dua angka by "PRAZT" praztmath

1d

Re: macro terbilang desimal dua angka by "PRAZT" praztmath

2a

Re: Expire data pada menu login [1 Attachment] by "nangAgus" nangagoez

3a

Re: Rumus If x > ...(currency) = #value! by "vincent Yoes" vincetgo

3b

Rumus If x > ...(currency) = #value! by "vincent Yoes" vincetgo

4a

Data error by "Tuti Hartati"

5

hapus objek????? by "Shenly" shenly_excelmania

6

IF dengan Nama Hari by "Andy Ajhis Ramadhan" andy_ajhis37

7

Data Error by "Tuti Hartati"

8

Tidak Bisa keluar Excel, Ketika Print langsung keluar by "Toni Kus Indratno" tonny.kuzh@ymail.com

Messages

1a

macro terbilang desimal dua angka

Thu Oct 17, 2013 7:47 pm (PDT) . Posted by:

"PRAZT" praztmath

Dear master, semoga selalu ada pada lindungan_Nya....

Di sini saya mau minta solusi tentang macro terbilang untuk bilangan desimal
2 diigit dibelakang koma. Yang saya inginkan begini;

Misal angka 2,10 maka terbaca dua koma sepuluh

3,20 maka terbaca tiga koma dua puluh, ext.

Mohon koreksiannya macro berikut karena tidak bisa jalan sesuai harapan atau
mungkin ada file dari master yang bisa langsung digunakan karena saya
cari-cari di milisi tidak ketemu-ketemu

Private Function KeKata(Nomor)

TrjKata = Array("", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh",
"delapan", "sembilan";)

KeKata = TrjKata(Nomor)

End Function

'Mulai penulisan Fungsi Terbilang

Public Function terbilang(Nilai_Angka, Optional Style = 4, Optional Satuan =
"")

Angka = Fix(Abs(Nilai_Angka))

'Desimal dibelakang koma

des1 = Mid(Abs(Nilai_Angka), Len(Angka) + 2, 1)

des2 = Mid(Abs(Nilai_Angka), Len(Angka) + 3, 1)

If des2 = "" Then

If des1 = "" Or des1 = "0" Then

Koma = ""

Else

Koma = " koma " & KeKata(des1)

End If

ElseIf des2 = "0" Then

If des1 = "0" Then

Koma = ""

ElseIf des1 = "1" Then

Koma = " koma sepuluh"

Else

Koma = " koma " & KeKata(des1) & " puluh"

End If

Else

If des1 = "0" Then

Koma = " koma nol " & KeKata(des2)

ElseIf des1 = "1" Then

If des2 = "1" Then

Koma = " koma sebelas"

Else

Koma = " koma " & KeKata(des2) & " belas"

End If

Else

Koma = " koma " & KeKata(des1) & " puluh " & KeKata(des2)

End If

End If

'Misahin Angka

No1 = Left(Right(Angka, 1), 1)

No2 = Left(Right(Angka, 2), 1)

No3 = Left(Right(Angka, 3), 1)

No4 = Left(Right(Angka, 4), 1)

No5 = Left(Right(Angka, 5), 1)

No6 = Left(Right(Angka, 6), 1)

No7 = Left(Right(Angka, 7), 1)

No8 = Left(Right(Angka, 8), 1)

No9 = Left(Right(Angka, 9), 1)

No10 = Left(Right(Angka, 10), 1)

No11 = Left(Right(Angka, 11), 1)

No12 = Left(Right(Angka, 12), 1)

No13 = Left(Right(Angka, 13), 1)

No14 = Left(Right(Angka, 14), 1)

No15 = Left(Right(Angka, 15), 1)

'Satuan

If Len(Angka) >= 1 Then

If Len(Angka) = 1 And No1 = 1 Then

Nomor1 = "satu"

ElseIf Len(Angka) = 1 And No1 = 0 Then

Nomor1 = "Nol"

ElseIf No2 = "1" Then

If No1 = "1" Then

Nomor1 = "sebelas"

ElseIf No1 = "0" Then

Nomor1 = "sepuluh"

Else

Nomor1 = KeKata(No1) & " belas"

End If

Else

Nomor1 = KeKata(No1)

End If

Else

Nomor1 = ""

End If

'Puluhan

If Len(Angka) >= 2 Then

If No2 = 1 Or No2 = "0" Then

Nomor2 = ""

Else

Nomor2 = KeKata(No2) & " puluh "

End If

Else

Nomor2 = ""

End If

'Ratusan

If Len(Angka) >= 3 Then

If No3 = "1" Then

Nomor3 = "seratus "

ElseIf No3 = "0" Then

Nomor3 = ""

Else

Nomor3 = KeKata(No3) & " ratus "

End If

Else

Nomor3 = ""

End If

'Ribuan

If Len(Angka) >= 4 Then

If No6 = "0" And No5 = "0" And No4 = "0" Then

Nomor4 = ""

ElseIf (No4 = "1" And Len(Angka) = 4) Or (No6 = "0" And No5 = "0" And
No4 = "1") Then

Nomor4 = "seribu "

ElseIf No5 = "1" Then

If No4 = "1" Then

Nomor4 = "sebelas ribu "

ElseIf No4 = "0" Then

Nomor4 = "sepuluh ribu "

Else

Nomor4 = KeKata(No4) & " belas ribu "

End If

Else

Nomor4 = KeKata(No4) & " ribu "

End If

Else

Nomor4 = ""

End If

'Puluhan ribu

If Len(Angka) >= 5 Then

If No5 = "1" Or No5 = "0" Then

Nomor5 = ""

Else

Nomor5 = KeKata(No5) & " puluh "

End If

Else

Nomor5 = ""

End If

'Ratusan Ribu

If Len(Angka) >= 6 Then

If No6 = "1" Then

Nomor6 = "seratus "

ElseIf No6 = "0" Then

Nomor6 = ""

Else

Nomor6 = KeKata(No6) & " ratus "

End If

Else

Nomor6 = ""

End If

'Jutaan

If Len(Angka) >= 7 Then

If No9 = "0" And No8 = "0" And No7 = "0" Then

Nomor7 = ""

ElseIf No7 = "1" And Len(Angka) = 7 Then

Nomor7 = "satu juta "

ElseIf No8 = "1" Then

If No7 = "1" Then

Nomor7 = "sebelas juta "

ElseIf No7 = "0" Then

Nomor7 = "sepuluh juta "

Else

Nomor7 = KeKata(No7) & " belas juta "

End If

Else

Nomor7 = KeKata(No7) & " juta "

End If

Else

Nomor7 = ""

End If

'Puluhan juta

If Len(Angka) >= 8 Then

If No8 = "1" Or No8 = "0" Then

Nomor8 = ""

Else

Nomor8 = KeKata(No8) & " puluh "

End If

Else

Nomor8 = ""

End If

'Ratusan juta

If Len(Angka) >= 9 Then

If No9 = "1" Then

Nomor9 = "seratus "

ElseIf No9 = "0" Then

Nomor9 = ""

Else

Nomor9 = KeKata(No9) & " ratus "

End If

Else

Nomor9 = ""

End If

'Milyar

If Len(Angka) >= 10 Then

If No12 = "0" And No11 = "0" And No10 = "0" Then

Nomor10 = ""

ElseIf No10 = "1" And Len(Angka) = 10 Then

Nomor10 = "satu milyar "

ElseIf No11 = "1" Then

If No10 = "1" Then

Nomor10 = "sebelas milyar "

ElseIf No10 = "0" Then

Nomor10 = "sepuluh milyar "

Else

Nomor10 = KeKata(No10) & " belas milyar "

End If

Else

Nomor10 = KeKata(No10) & " milyar "

End If

Else

Nomor10 = ""

End If

'Puluhan Milyar

If Len(Angka) >= 11 Then

If No11 = "1" Or No11 = "0" Then

Nomor11 = ""

Else

Nomor11 = KeKata(No11) & " puluh "

End If

Else

Nomor11 = ""

End If

'Ratusan Milyar

If Len(Angka) >= 12 Then

If No12 = "1" Then

Nomor12 = "seratus "

ElseIf No12 = "0" Then

Nomor12 = ""

Else

Nomor12 = KeKata(No12) & " ratus "

End If

Else

Nomor12 = ""

End If

'Triliun

If Len(Angka) >= 13 Then

If No15 = "0" And No14 = "0" And No13 = "0" Then

Nomor13 = ""

ElseIf No13 = "1" And Len(Angka) = 13 Then

Nomor13 = "satu triliun "

ElseIf No14 = "1" Then

If No13 = "1" Then

Nomor13 = "sebelas triliun "

ElseIf No13 = "0" Then

Nomor13 = "sepuluh triliun "

Else

Nomor13 = KeKata(No13) & " belas triliun "

End If

Else

Nomor13 = KeKata(No13) & " triliun "

End If

Else

Nomor13 = ""

End If

'Puluhan triliun

If Len(Angka) >= 14 Then

If No14 = "1" Or No14 = "0" Then

Nomor14 = ""

Else

Nomor14 = KeKata(No14) & " puluh "

End If

Else

Nomor14 = ""

End If

'Ratusan triliun

If Len(Angka) >= 15 Then

If No15 = "1" Then

Nomor15 = "seratus "

ElseIf No15 = "0" Then

Nomor15 = ""

Else

Nomor15 = KeKata(No15) & " ratus "

End If

Else

Nomor15 = ""

End If

If Len(Angka) > 15 Then

bilang = "Digit Angka Terlalu Banyak"

Else

If IsNull(Nilai_Angka) Then

bilang = ""

ElseIf Nilai_Angka < 0 Then

bilang = "minus " & Trim(Nomor15 & Nomor14 & Nomor13 & Nomor12 & Nomor11
& Nomor10 & Nomor9 & Nomor8 & Nomor7 _

& Nomor6 & Nomor5 & Nomor4 & Nomor3 & Nomor2 & Nomor1 & Koma & " " &
Satuan)

Else

bilang = Trim(Nomor15 & Nomor14 & Nomor13 & Nomor12 & Nomor11 & Nomor10
& Nomor9 & Nomor8 & Nomor7 _

& Nomor6 & Nomor5 & Nomor4 & Nomor3 & Nomor2 & Nomor1 & Koma & " " &
Satuan)

End If

End If

If Style = 4 Then

terbilang = StrConv(Left(bilang, 1), 1) & StrConv(Mid(bilang, 2, 1000), 2)

Else

terbilang = StrConv(bilang, Style)

End If

terbilang = Replace(terbilang, " ", " ", 1, 1000, vbTextCompare)

End Function

Terimakasih sebelumnya...

PRAZTMATH T

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

1b

Re: macro terbilang desimal dua angka

Thu Oct 17, 2013 8:21 pm (PDT) . Posted by:

"M.Ade Alfarid" aderyo

Dear Mr Prazt,

Pembacaan nominal koma desimal yang anda lakukan adalah salah.
Pembacaan yang benar untuk digit dibelakang koma adalah dibaca angka satu
persatu, tidak dibaca dengan puluhan,ratusan,ribuan dst.
Contoh :
2,10 dibaca dua koma satu nol. Bukan dua koma sepuluh.
3,20 dibaca tiga koma dua nol.Bukan tiga koma duapuluh
5,2456 dibaca lima koma dua empat lima enam bukan lima koma duaribu
empatratus limapuluh enam

Atau memang ada aturan khusus dari Mr Prazt?

Salam,
Ade

Fri, 18 Oct 2013 09:47:26 +0700, PRAZT <praztmath@gmail.com> wrote:

>
>
> Dear master, semoga selalu ada pada lindungan_Nya....
>
> Di sini saya mau minta solusi tentang macro terbilang untuk bilangan
> desimal
> 2 diigit dibelakang koma. Yang saya inginkan begini;
>
> Misal angka 2,10 maka terbaca dua koma sepuluh
>
> 3,20 maka terbaca tiga koma dua puluh, ext.
>
> Mohon koreksiannya macro berikut karena tidak bisa jalan sesuai harapan
> atau
> mungkin ada file dari master yang bisa langsung digunakan karena saya
> cari-cari di milisi tidak ketemu-ketemu
>
>
> Private Function KeKata(Nomor)
>
> TrjKata = Array("", "satu", "dua", "tiga", "empat", "lima", "enam",
> "tujuh",
> "delapan", "sembilan";)
>
> KeKata = TrjKata(Nomor)
>
> End Function
>
> 'Mulai penulisan Fungsi Terbilang
>
> Public Function terbilang(Nilai_Angka, Optional Style = 4, Optional
> Satuan =
> "")
>
> Angka = Fix(Abs(Nilai_Angka))
>
> 'Desimal dibelakang koma
>
> des1 = Mid(Abs(Nilai_Angka), Len(Angka) + 2, 1)
>
> des2 = Mid(Abs(Nilai_Angka), Len(Angka) + 3, 1)
>
> If des2 = "" Then
>
> If des1 = "" Or des1 = "0" Then
>
> Koma = ""
>
> Else
>
> Koma = " koma " & KeKata(des1)
>
> End If
>
> ElseIf des2 = "0" Then
>
> If des1 = "0" Then
>
> Koma = ""
>
> ElseIf des1 = "1" Then
>
> Koma = " koma sepuluh"
>
> Else
>
> Koma = " koma " & KeKata(des1) & " puluh"
>
> End If
>
> Else
>
> If des1 = "0" Then
>
> Koma = " koma nol " & KeKata(des2)
>
> ElseIf des1 = "1" Then
>
> If des2 = "1" Then
>
> Koma = " koma sebelas"
>
> Else
>
> Koma = " koma " & KeKata(des2) & " belas"
>
> End If
>
> Else
>
> Koma = " koma " & KeKata(des1) & " puluh " & KeKata(des2)
>
> End If
>
> End If
>
> 'Misahin Angka
>
> No1 = Left(Right(Angka, 1), 1)
>
> No2 = Left(Right(Angka, 2), 1)
>
> No3 = Left(Right(Angka, 3), 1)
>
> No4 = Left(Right(Angka, 4), 1)
>
> No5 = Left(Right(Angka, 5), 1)
>
> No6 = Left(Right(Angka, 6), 1)
>
> No7 = Left(Right(Angka, 7), 1)
>
> No8 = Left(Right(Angka, 8), 1)
>
> No9 = Left(Right(Angka, 9), 1)
>
> No10 = Left(Right(Angka, 10), 1)
>
> No11 = Left(Right(Angka, 11), 1)
>
> No12 = Left(Right(Angka, 12), 1)
>
> No13 = Left(Right(Angka, 13), 1)
>
> No14 = Left(Right(Angka, 14), 1)
>
> No15 = Left(Right(Angka, 15), 1)
>
> 'Satuan
>
> If Len(Angka) >= 1 Then
>
> If Len(Angka) = 1 And No1 = 1 Then
>
> Nomor1 = "satu"
>
> ElseIf Len(Angka) = 1 And No1 = 0 Then
>
> Nomor1 = "Nol"
>
> ElseIf No2 = "1" Then
>
> If No1 = "1" Then
>
> Nomor1 = "sebelas"
>
> ElseIf No1 = "0" Then
>
> Nomor1 = "sepuluh"
>
> Else
>
> Nomor1 = KeKata(No1) & " belas"
>
> End If
>
> Else
>
> Nomor1 = KeKata(No1)
>
> End If
>
> Else
>
> Nomor1 = ""
>
> End If
>
> 'Puluhan
>
> If Len(Angka) >= 2 Then
>
> If No2 = 1 Or No2 = "0" Then
>
> Nomor2 = ""
>
> Else
>
> Nomor2 = KeKata(No2) & " puluh "
>
> End If
>
> Else
>
> Nomor2 = ""
>
> End If
>
> 'Ratusan
>
> If Len(Angka) >= 3 Then
>
> If No3 = "1" Then
>
> Nomor3 = "seratus "
>
> ElseIf No3 = "0" Then
>
> Nomor3 = ""
>
> Else
>
> Nomor3 = KeKata(No3) & " ratus "
>
> End If
>
> Else
>
> Nomor3 = ""
>
> End If
>
> 'Ribuan
>
> If Len(Angka) >= 4 Then
>
> If No6 = "0" And No5 = "0" And No4 = "0" Then
>
> Nomor4 = ""
>
> ElseIf (No4 = "1" And Len(Angka) = 4) Or (No6 = "0" And No5 = "0" And
> No4 = "1") Then
>
> Nomor4 = "seribu "
>
> ElseIf No5 = "1" Then
>
> If No4 = "1" Then
>
> Nomor4 = "sebelas ribu "
>
> ElseIf No4 = "0" Then
>
> Nomor4 = "sepuluh ribu "
>
> Else
>
> Nomor4 = KeKata(No4) & " belas ribu "
>
> End If
>
> Else
>
> Nomor4 = KeKata(No4) & " ribu "
>
> End If
>
> Else
>
> Nomor4 = ""
>
> End If
>
> 'Puluhan ribu
>
> If Len(Angka) >= 5 Then
>
> If No5 = "1" Or No5 = "0" Then
>
> Nomor5 = ""
>
> Else
>
> Nomor5 = KeKata(No5) & " puluh "
>
> End If
>
> Else
>
> Nomor5 = ""
>
> End If
>
> 'Ratusan Ribu
>
> If Len(Angka) >= 6 Then
>
> If No6 = "1" Then
>
> Nomor6 = "seratus "
>
> ElseIf No6 = "0" Then
>
> Nomor6 = ""
>
> Else
>
> Nomor6 = KeKata(No6) & " ratus "
>
> End If
>
> Else
>
> Nomor6 = ""
>
> End If
>
> 'Jutaan
>
> If Len(Angka) >= 7 Then
>
> If No9 = "0" And No8 = "0" And No7 = "0" Then
>
> Nomor7 = ""
>
> ElseIf No7 = "1" And Len(Angka) = 7 Then
>
> Nomor7 = "satu juta "
>
> ElseIf No8 = "1" Then
>
> If No7 = "1" Then
>
> Nomor7 = "sebelas juta "
>
> ElseIf No7 = "0" Then
>
> Nomor7 = "sepuluh juta "
>
> Else
>
> Nomor7 = KeKata(No7) & " belas juta "
>
> End If
>
> Else
>
> Nomor7 = KeKata(No7) & " juta "
>
> End If
>
> Else
>
> Nomor7 = ""
>
> End If
>
> 'Puluhan juta
>
> If Len(Angka) >= 8 Then
>
> If No8 = "1" Or No8 = "0" Then
>
> Nomor8 = ""
>
> Else
>
> Nomor8 = KeKata(No8) & " puluh "
>
> End If
>
> Else
>
> Nomor8 = ""
>
> End If
>
> 'Ratusan juta
>
> If Len(Angka) >= 9 Then
>
> If No9 = "1" Then
>
> Nomor9 = "seratus "
>
> ElseIf No9 = "0" Then
>
> Nomor9 = ""
>
> Else
>
> Nomor9 = KeKata(No9) & " ratus "
>
> End If
>
> Else
>
> Nomor9 = ""
>
> End If
>
> 'Milyar
>
> If Len(Angka) >= 10 Then
>
> If No12 = "0" And No11 = "0" And No10 = "0" Then
>
> Nomor10 = ""
>
> ElseIf No10 = "1" And Len(Angka) = 10 Then
>
> Nomor10 = "satu milyar "
>
> ElseIf No11 = "1" Then
>
> If No10 = "1" Then
>
> Nomor10 = "sebelas milyar "
>
> ElseIf No10 = "0" Then
>
> Nomor10 = "sepuluh milyar "
>
> Else
>
> Nomor10 = KeKata(No10) & " belas milyar "
>
> End If
>
> Else
>
> Nomor10 = KeKata(No10) & " milyar "
>
> End If
>
> Else
>
> Nomor10 = ""
>
> End If
>
> 'Puluhan Milyar
>
> If Len(Angka) >= 11 Then
>
> If No11 = "1" Or No11 = "0" Then
>
> Nomor11 = ""
>
> Else
>
> Nomor11 = KeKata(No11) & " puluh "
>
> End If
>
> Else
>
> Nomor11 = ""
>
> End If
>
> 'Ratusan Milyar
>
> If Len(Angka) >= 12 Then
>
> If No12 = "1" Then
>
> Nomor12 = "seratus "
>
> ElseIf No12 = "0" Then
>
> Nomor12 = ""
>
> Else
>
> Nomor12 = KeKata(No12) & " ratus "
>
> End If
>
> Else
>
> Nomor12 = ""
>
> End If
>
> 'Triliun
>
> If Len(Angka) >= 13 Then
>
> If No15 = "0" And No14 = "0" And No13 = "0" Then
>
> Nomor13 = ""
>
> ElseIf No13 = "1" And Len(Angka) = 13 Then
>
> Nomor13 = "satu triliun "
>
> ElseIf No14 = "1" Then
>
> If No13 = "1" Then
>
> Nomor13 = "sebelas triliun "
>
> ElseIf No13 = "0" Then
>
> Nomor13 = "sepuluh triliun "
>
> Else
>
> Nomor13 = KeKata(No13) & " belas triliun "
>
> End If
>
> Else
>
> Nomor13 = KeKata(No13) & " triliun "
>
> End If
>
> Else
>
> Nomor13 = ""
>
> End If
>
> 'Puluhan triliun
>
> If Len(Angka) >= 14 Then
>
> If No14 = "1" Or No14 = "0" Then
>
> Nomor14 = ""
>
> Else
>
> Nomor14 = KeKata(No14) & " puluh "
>
> End If
>
> Else
>
> Nomor14 = ""
>
> End If
>
> 'Ratusan triliun
>
> If Len(Angka) >= 15 Then
>
> If No15 = "1" Then
>
> Nomor15 = "seratus "
>
> ElseIf No15 = "0" Then
>
> Nomor15 = ""
>
> Else
>
> Nomor15 = KeKata(No15) & " ratus "
>
> End If
>
> Else
>
> Nomor15 = ""
>
> End If
>
> If Len(Angka) > 15 Then
>
> bilang = "Digit Angka Terlalu Banyak"
>
> Else
>
> If IsNull(Nilai_Angka) Then
>
> bilang = ""
>
> ElseIf Nilai_Angka < 0 Then
>
> bilang = "minus " & Trim(Nomor15 & Nomor14 & Nomor13 & Nomor12 &Nomor11
> & Nomor10 & Nomor9 & Nomor8 & Nomor7 _
>
> & Nomor6 & Nomor5 & Nomor4 & Nomor3 & Nomor2 & Nomor1 & Koma & " " &
> Satuan)
>
> Else
>
> bilang = Trim(Nomor15 & Nomor14 & Nomor13 & Nomor12 & Nomor11 &Nomor10
> & Nomor9 & Nomor8 & Nomor7 _
>
> & Nomor6 & Nomor5 & Nomor4 & Nomor3 & Nomor2 & Nomor1 & Koma & " " &
> Satuan)
>
> End If
>
> End If
>
> If Style = 4 Then
>
> terbilang = StrConv(Left(bilang, 1), 1) & StrConv(Mid(bilang, 2, 1000),2)
>
> Else
>
> terbilang = StrConv(bilang, Style)
>
> End If
>
> terbilang = Replace(terbilang, " ", " ", 1, 1000, vbTextCompare)
>
> End Function
>
>
>
> Terimakasih sebelumnya...
>
>
>
>
>
> PRAZTMATH T

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

1c

Re: macro terbilang desimal dua angka

Thu Oct 17, 2013 8:35 pm (PDT) . Posted by:

"PRAZT" praztmath

Terima kasih bung Dae tanggapanya, yang saya inginkan memang terbaca seperti
itu
Misal 2,10 ya terbaca dua koma sepuluh bukan dua koma satu nol
Mungkin itu aturan dari saya atau bisa di bilang permintaan saya hehehe.....


PRAZTMATH T

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of M.Ade Alfarid
Sent: 18 Oktober 2013 10:07
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] macro terbilang desimal dua angka

Dear Mr Prazt,

Pembacaan nominal koma desimal yang anda lakukan adalah salah.
Pembacaan yang benar untuk digit dibelakang koma adalah dibaca angka satu
persatu, tidak dibaca dengan puluhan,ratusan,ribuan dst.
Contoh :
2,10 dibaca dua koma satu nol. Bukan dua koma sepuluh.
3,20 dibaca tiga koma dua nol.Bukan tiga koma duapuluh
5,2456 dibaca lima koma dua empat lima enam bukan lima koma duaribu
empatratus limapuluh enam

Atau memang ada aturan khusus dari Mr Prazt?

Salam,
Ade

Fri, 18 Oct 2013 09:47:26 +0700, PRAZT < <mailto:praztmath@gmail.com>
praztmath@gmail.com> wrote:

>
>
> Dear master, semoga selalu ada pada lindungan_Nya....
>
> Di sini saya mau minta solusi tentang macro terbilang untuk bilangan
> desimal
> 2 diigit dibelakang koma. Yang saya inginkan begini;
>
> Misal angka 2,10 maka terbaca dua koma sepuluh
>
> 3,20 maka terbaca tiga koma dua puluh, ext.
>
> Mohon koreksiannya macro berikut karena tidak bisa jalan sesuai harapan
> atau
> mungkin ada file dari master yang bisa langsung digunakan karena saya
> cari-cari di milisi tidak ketemu-ketemu
>
>
> Private Function KeKata(Nomor)
>
> TrjKata = Array("", "satu", "dua", "tiga", "empat", "lima", "enam",
> "tujuh",
> "delapan", "sembilan";)
>
> KeKata = TrjKata(Nomor)
>
> End Function
>
> 'Mulai penulisan Fungsi Terbilang
>
> Public Function terbilang(Nilai_Angka, Optional Style = 4, Optional
> Satuan =
> "")
>
> Angka = Fix(Abs(Nilai_Angka))
>
> 'Desimal dibelakang koma
>
> des1 = Mid(Abs(Nilai_Angka), Len(Angka) + 2, 1)
>
> des2 = Mid(Abs(Nilai_Angka), Len(Angka) + 3, 1)
>
> If des2 = "" Then
>
> If des1 = "" Or des1 = "0" Then
>
> Koma = ""
>
> Else
>
> Koma = " koma " & KeKata(des1)
>
> End If
>
> ElseIf des2 = "0" Then
>
> If des1 = "0" Then
>
> Koma = ""
>
> ElseIf des1 = "1" Then
>
> Koma = " koma sepuluh"
>
> Else
>
> Koma = " koma " & KeKata(des1) & " puluh"
>
> End If
>
> Else
>
> If des1 = "0" Then
>
> Koma = " koma nol " & KeKata(des2)
>
> ElseIf des1 = "1" Then
>
> If des2 = "1" Then
>
> Koma = " koma sebelas"
>
> Else
>
> Koma = " koma " & KeKata(des2) & " belas"
>
> End If
>
> Else
>
> Koma = " koma " & KeKata(des1) & " puluh " & KeKata(des2)
>
> End If
>
> End If
>
> 'Misahin Angka
>
> No1 = Left(Right(Angka, 1), 1)
>
> No2 = Left(Right(Angka, 2), 1)
>
> No3 = Left(Right(Angka, 3), 1)
>
> No4 = Left(Right(Angka, 4), 1)
>
> No5 = Left(Right(Angka, 5), 1)
>
> No6 = Left(Right(Angka, 6), 1)
>
> No7 = Left(Right(Angka, 7), 1)
>
> No8 = Left(Right(Angka, 8), 1)
>
> No9 = Left(Right(Angka, 9), 1)
>
> No10 = Left(Right(Angka, 10), 1)
>
> No11 = Left(Right(Angka, 11), 1)
>
> No12 = Left(Right(Angka, 12), 1)
>
> No13 = Left(Right(Angka, 13), 1)
>
> No14 = Left(Right(Angka, 14), 1)
>
> No15 = Left(Right(Angka, 15), 1)
>
> 'Satuan
>
> If Len(Angka) >= 1 Then
>
> If Len(Angka) = 1 And No1 = 1 Then
>
> Nomor1 = "satu"
>
> ElseIf Len(Angka) = 1 And No1 = 0 Then
>
> Nomor1 = "Nol"
>
> ElseIf No2 = "1" Then
>
> If No1 = "1" Then
>
> Nomor1 = "sebelas"
>
> ElseIf No1 = "0" Then
>
> Nomor1 = "sepuluh"
>
> Else
>
> Nomor1 = KeKata(No1) & " belas"
>
> End If
>
> Else
>
> Nomor1 = KeKata(No1)
>
> End If
>
> Else
>
> Nomor1 = ""
>
> End If
>
> 'Puluhan
>
> If Len(Angka) >= 2 Then
>
> If No2 = 1 Or No2 = "0" Then
>
> Nomor2 = ""
>
> Else
>
> Nomor2 = KeKata(No2) & " puluh "
>
> End If
>
> Else
>
> Nomor2 = ""
>
> End If
>
> 'Ratusan
>
> If Len(Angka) >= 3 Then
>
> If No3 = "1" Then
>
> Nomor3 = "seratus "
>
> ElseIf No3 = "0" Then
>
> Nomor3 = ""
>
> Else
>
> Nomor3 = KeKata(No3) & " ratus "
>
> End If
>
> Else
>
> Nomor3 = ""
>
> End If
>
> 'Ribuan
>
> If Len(Angka) >= 4 Then
>
> If No6 = "0" And No5 = "0" And No4 = "0" Then
>
> Nomor4 = ""
>
> ElseIf (No4 = "1" And Len(Angka) = 4) Or (No6 = "0" And No5 = "0" And
> No4 = "1") Then
>
> Nomor4 = "seribu "
>
> ElseIf No5 = "1" Then
>
> If No4 = "1" Then
>
> Nomor4 = "sebelas ribu "
>
> ElseIf No4 = "0" Then
>
> Nomor4 = "sepuluh ribu "
>
> Else
>
> Nomor4 = KeKata(No4) & " belas ribu "
>
> End If
>
> Else
>
> Nomor4 = KeKata(No4) & " ribu "
>
> End If
>
> Else
>
> Nomor4 = ""
>
> End If
>
> 'Puluhan ribu
>
> If Len(Angka) >= 5 Then
>
> If No5 = "1" Or No5 = "0" Then
>
> Nomor5 = ""
>
> Else
>
> Nomor5 = KeKata(No5) & " puluh "
>
> End If
>
> Else
>
> Nomor5 = ""
>
> End If
>
> 'Ratusan Ribu
>
> If Len(Angka) >= 6 Then
>
> If No6 = "1" Then
>
> Nomor6 = "seratus "
>
> ElseIf No6 = "0" Then
>
> Nomor6 = ""
>
> Else
>
> Nomor6 = KeKata(No6) & " ratus "
>
> End If
>
> Else
>
> Nomor6 = ""
>
> End If
>
> 'Jutaan
>
> If Len(Angka) >= 7 Then
>
> If No9 = "0" And No8 = "0" And No7 = "0" Then
>
> Nomor7 = ""
>
> ElseIf No7 = "1" And Len(Angka) = 7 Then
>
> Nomor7 = "satu juta "
>
> ElseIf No8 = "1" Then
>
> If No7 = "1" Then
>
> Nomor7 = "sebelas juta "
>
> ElseIf No7 = "0" Then
>
> Nomor7 = "sepuluh juta "
>
> Else
>
> Nomor7 = KeKata(No7) & " belas juta "
>
> End If
>
> Else
>
> Nomor7 = KeKata(No7) & " juta "
>
> End If
>
> Else
>
> Nomor7 = ""
>
> End If
>
> 'Puluhan juta
>
> If Len(Angka) >= 8 Then
>
> If No8 = "1" Or No8 = "0" Then
>
> Nomor8 = ""
>
> Else
>
> Nomor8 = KeKata(No8) & " puluh "
>
> End If
>
> Else
>
> Nomor8 = ""
>
> End If
>
> 'Ratusan juta
>
> If Len(Angka) >= 9 Then
>
> If No9 = "1" Then
>
> Nomor9 = "seratus "
>
> ElseIf No9 = "0" Then
>
> Nomor9 = ""
>
> Else
>
> Nomor9 = KeKata(No9) & " ratus "
>
> End If
>
> Else
>
> Nomor9 = ""
>
> End If
>
> 'Milyar
>
> If Len(Angka) >= 10 Then
>
> If No12 = "0" And No11 = "0" And No10 = "0" Then
>
> Nomor10 = ""
>
> ElseIf No10 = "1" And Len(Angka) = 10 Then
>
> Nomor10 = "satu milyar "
>
> ElseIf No11 = "1" Then
>
> If No10 = "1" Then
>
> Nomor10 = "sebelas milyar "
>
> ElseIf No10 = "0" Then
>
> Nomor10 = "sepuluh milyar "
>
> Else
>
> Nomor10 = KeKata(No10) & " belas milyar "
>
> End If
>
> Else
>
> Nomor10 = KeKata(No10) & " milyar "
>
> End If
>
> Else
>
> Nomor10 = ""
>
> End If
>
> 'Puluhan Milyar
>
> If Len(Angka) >= 11 Then
>
> If No11 = "1" Or No11 = "0" Then
>
> Nomor11 = ""
>
> Else
>
> Nomor11 = KeKata(No11) & " puluh "
>
> End If
>
> Else
>
> Nomor11 = ""
>
> End If
>
> 'Ratusan Milyar
>
> If Len(Angka) >= 12 Then
>
> If No12 = "1" Then
>
> Nomor12 = "seratus "
>
> ElseIf No12 = "0" Then
>
> Nomor12 = ""
>
> Else
>
> Nomor12 = KeKata(No12) & " ratus "
>
> End If
>
> Else
>
> Nomor12 = ""
>
> End If
>
> 'Triliun
>
> If Len(Angka) >= 13 Then
>
> If No15 = "0" And No14 = "0" And No13 = "0" Then
>
> Nomor13 = ""
>
> ElseIf No13 = "1" And Len(Angka) = 13 Then
>
> Nomor13 = "satu triliun "
>
> ElseIf No14 = "1" Then
>
> If No13 = "1" Then
>
> Nomor13 = "sebelas triliun "
>
> ElseIf No13 = "0" Then
>
> Nomor13 = "sepuluh triliun "
>
> Else
>
> Nomor13 = KeKata(No13) & " belas triliun "
>
> End If
>
> Else
>
> Nomor13 = KeKata(No13) & " triliun "
>
> End If
>
> Else
>
> Nomor13 = ""
>
> End If
>
> 'Puluhan triliun
>
> If Len(Angka) >= 14 Then
>
> If No14 = "1" Or No14 = "0" Then
>
> Nomor14 = ""
>
> Else
>
> Nomor14 = KeKata(No14) & " puluh "
>
> End If
>
> Else
>
> Nomor14 = ""
>
> End If
>
> 'Ratusan triliun
>
> If Len(Angka) >= 15 Then
>
> If No15 = "1" Then
>
> Nomor15 = "seratus "
>
> ElseIf No15 = "0" Then
>
> Nomor15 = ""
>
> Else
>
> Nomor15 = KeKata(No15) & " ratus "
>
> End If
>
> Else
>
> Nomor15 = ""
>
> End If
>
> If Len(Angka) > 15 Then
>
> bilang = "Digit Angka Terlalu Banyak"
>
> Else
>
> If IsNull(Nilai_Angka) Then
>
> bilang = ""
>
> ElseIf Nilai_Angka < 0 Then
>
> bilang = "minus " & Trim(Nomor15 & Nomor14 & Nomor13 & Nomor12 &
> Nomor11
> & Nomor10 & Nomor9 & Nomor8 & Nomor7 _
>
> & Nomor6 & Nomor5 & Nomor4 & Nomor3 & Nomor2 & Nomor1 & Koma & " " &
> Satuan)
>
> Else
>
> bilang = Trim(Nomor15 & Nomor14 & Nomor13 & Nomor12 & Nomor11 &
> Nomor10
> & Nomor9 & Nomor8 & Nomor7 _
>
> & Nomor6 & Nomor5 & Nomor4 & Nomor3 & Nomor2 & Nomor1 & Koma & " " &
> Satuan)
>
> End If
>
> End If
>
> If Style = 4 Then
>
> terbilang = StrConv(Left(bilang, 1), 1) & StrConv(Mid(bilang, 2, 1000),
> 2)
>
> Else
>
> terbilang = StrConv(bilang, Style)
>
> End If
>
> terbilang = Replace(terbilang, " ", " ", 1, 1000, vbTextCompare)
>
> End Function
>
>
>
> Terimakasih sebelumnya...
>
>
>
>
>
> PRAZTMATH T
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

1d

Re: macro terbilang desimal dua angka

Thu Oct 17, 2013 8:37 pm (PDT) . Posted by:

"PRAZT" praztmath

Terima kasih bung Ade tanggapanya, yang saya inginkan memang terbaca seperti
itu

Misal 2,10 ya terbaca dua koma sepuluh bukan dua koma satu nol

Mungkin itu aturan dari saya atau bisa di bilang permintaan saya hehehe.....

PRAZTMATH T

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of M.Ade Alfarid
Sent: 18 Oktober 2013 10:07
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] macro terbilang desimal dua angka

Dear Mr Prazt,

Pembacaan nominal koma desimal yang anda lakukan adalah salah.

Pembacaan yang benar untuk digit dibelakang koma adalah dibaca angka satu
persatu, tidak dibaca dengan puluhan,ratusan,ribuan dst.

Contoh :

2,10 dibaca dua koma satu nol. Bukan dua koma sepuluh.

3,20 dibaca tiga koma dua nol.Bukan tiga koma duapuluh

5,2456 dibaca lima koma dua empat lima enam bukan lima koma duaribu
empatratus limapuluh enam

Atau memang ada aturan khusus dari Mr Prazt?

Salam,

Ade

Fri, 18 Oct 2013 09:47:26 +0700, PRAZT <praztmath@gmail.com
<mailto:praztmath@gmail.com> > wrote:

>
>
> Dear master, semoga selalu ada pada lindungan_Nya....
>
> Di sini saya mau minta solusi tentang macro terbilang untuk bilangan
> desimal
> 2 diigit dibelakang koma. Yang saya inginkan begini;
>
> Misal angka 2,10 maka terbaca dua koma sepuluh
>
> 3,20 maka terbaca tiga koma dua puluh, ext.
>
> Mohon koreksiannya macro berikut karena tidak bisa jalan sesuai harapan
> atau
> mungkin ada file dari master yang bisa langsung digunakan karena saya
> cari-cari di milisi tidak ketemu-ketemu
>
>
> Private Function KeKata(Nomor)
>
> TrjKata = Array("", "satu", "dua", "tiga", "empat", "lima", "enam",
> "tujuh",
> "delapan", "sembilan";)
>
> KeKata = TrjKata(Nomor)
>
> End Function
>
> 'Mulai penulisan Fungsi Terbilang
>
> Public Function terbilang(Nilai_Angka, Optional Style = 4, Optional
> Satuan =
> "")
>
> Angka = Fix(Abs(Nilai_Angka))
>
> 'Desimal dibelakang koma
>
> des1 = Mid(Abs(Nilai_Angka), Len(Angka) + 2, 1)
>
> des2 = Mid(Abs(Nilai_Angka), Len(Angka) + 3, 1)
>
> If des2 = "" Then
>
> If des1 = "" Or des1 = "0" Then
>
> Koma = ""
>
> Else
>
> Koma = " koma " & KeKata(des1)
>
> End If
>
> ElseIf des2 = "0" Then
>
> If des1 = "0" Then
>
> Koma = ""
>
> ElseIf des1 = "1" Then
>
> Koma = " koma sepuluh"
>
> Else
>
> Koma = " koma " & KeKata(des1) & " puluh"
>
> End If
>
> Else
>
> If des1 = "0" Then
>
> Koma = " koma nol " & KeKata(des2)
>
> ElseIf des1 = "1" Then
>
> If des2 = "1" Then
>
> Koma = " koma sebelas"
>
> Else
>
> Koma = " koma " & KeKata(des2) & " belas"
>
> End If
>
> Else
>
> Koma = " koma " & KeKata(des1) & " puluh " & KeKata(des2)
>
> End If
>
> End If
>
> 'Misahin Angka
>
> No1 = Left(Right(Angka, 1), 1)
>
> No2 = Left(Right(Angka, 2), 1)
>
> No3 = Left(Right(Angka, 3), 1)
>
> No4 = Left(Right(Angka, 4), 1)
>
> No5 = Left(Right(Angka, 5), 1)
>
> No6 = Left(Right(Angka, 6), 1)
>
> No7 = Left(Right(Angka, 7), 1)
>
> No8 = Left(Right(Angka, 8), 1)
>
> No9 = Left(Right(Angka, 9), 1)
>
> No10 = Left(Right(Angka, 10), 1)
>
> No11 = Left(Right(Angka, 11), 1)
>
> No12 = Left(Right(Angka, 12), 1)
>
> No13 = Left(Right(Angka, 13), 1)
>
> No14 = Left(Right(Angka, 14), 1)
>
> No15 = Left(Right(Angka, 15), 1)
>
> 'Satuan
>
> If Len(Angka) >= 1 Then
>
> If Len(Angka) = 1 And No1 = 1 Then
>
> Nomor1 = "satu"
>
> ElseIf Len(Angka) = 1 And No1 = 0 Then
>
> Nomor1 = "Nol"
>
> ElseIf No2 = "1" Then
>
> If No1 = "1" Then
>
> Nomor1 = "sebelas"
>
> ElseIf No1 = "0" Then
>
> Nomor1 = "sepuluh"
>
> Else
>
> Nomor1 = KeKata(No1) & " belas"
>
> End If
>
> Else
>
> Nomor1 = KeKata(No1)
>
> End If
>
> Else
>
> Nomor1 = ""
>
> End If
>
> 'Puluhan
>
> If Len(Angka) >= 2 Then
>
> If No2 = 1 Or No2 = "0" Then
>
> Nomor2 = ""
>
> Else
>
> Nomor2 = KeKata(No2) & " puluh "
>
> End If
>
> Else
>
> Nomor2 = ""
>
> End If
>
> 'Ratusan
>
> If Len(Angka) >= 3 Then
>
> If No3 = "1" Then
>
> Nomor3 = "seratus "
>
> ElseIf No3 = "0" Then
>
> Nomor3 = ""
>
> Else
>
> Nomor3 = KeKata(No3) & " ratus "
>
> End If
>
> Else
>
> Nomor3 = ""
>
> End If
>
> 'Ribuan
>
> If Len(Angka) >= 4 Then
>
> If No6 = "0" And No5 = "0" And No4 = "0" Then
>
> Nomor4 = ""
>
> ElseIf (No4 = "1" And Len(Angka) = 4) Or (No6 = "0" And No5 = "0" And
> No4 = "1") Then
>
> Nomor4 = "seribu "
>
> ElseIf No5 = "1" Then
>
> If No4 = "1" Then
>
> Nomor4 = "sebelas ribu "
>
> ElseIf No4 = "0" Then
>
> Nomor4 = "sepuluh ribu "
>
> Else
>
> Nomor4 = KeKata(No4) & " belas ribu "
>
> End If
>
> Else
>
> Nomor4 = KeKata(No4) & " ribu "
>
> End If
>
> Else
>
> Nomor4 = ""
>
> End If
>
> 'Puluhan ribu
>
> If Len(Angka) >= 5 Then
>
> If No5 = "1" Or No5 = "0" Then
>
> Nomor5 = ""
>
> Else
>
> Nomor5 = KeKata(No5) & " puluh "
>
> End If
>
> Else
>
> Nomor5 = ""
>
> End If
>
> 'Ratusan Ribu
>
> If Len(Angka) >= 6 Then
>
> If No6 = "1" Then
>
> Nomor6 = "seratus "
>
> ElseIf No6 = "0" Then
>
> Nomor6 = ""
>
> Else
>
> Nomor6 = KeKata(No6) & " ratus "
>
> End If
>
> Else
>
> Nomor6 = ""
>
> End If
>
> 'Jutaan
>
> If Len(Angka) >= 7 Then
>
> If No9 = "0" And No8 = "0" And No7 = "0" Then
>
> Nomor7 = ""
>
> ElseIf No7 = "1" And Len(Angka) = 7 Then
>
> Nomor7 = "satu juta "
>
> ElseIf No8 = "1" Then
>
> If No7 = "1" Then
>
> Nomor7 = "sebelas juta "
>
> ElseIf No7 = "0" Then
>
> Nomor7 = "sepuluh juta "
>
> Else
>
> Nomor7 = KeKata(No7) & " belas juta "
>
> End If
>
> Else
>
> Nomor7 = KeKata(No7) & " juta "
>
> End If
>
> Else
>
> Nomor7 = ""
>
> End If
>
> 'Puluhan juta
>
> If Len(Angka) >= 8 Then
>
> If No8 = "1" Or No8 = "0" Then
>
> Nomor8 = ""
>
> Else
>
> Nomor8 = KeKata(No8) & " puluh "
>
> End If
>
> Else
>
> Nomor8 = ""
>
> End If
>
> 'Ratusan juta
>
> If Len(Angka) >= 9 Then
>
> If No9 = "1" Then
>
> Nomor9 = "seratus "
>
> ElseIf No9 = "0" Then
>
> Nomor9 = ""
>
> Else
>
> Nomor9 = KeKata(No9) & " ratus "
>
> End If
>
> Else
>
> Nomor9 = ""
>
> End If
>
> 'Milyar
>
> If Len(Angka) >= 10 Then
>
> If No12 = "0" And No11 = "0" And No10 = "0" Then
>
> Nomor10 = ""
>
> ElseIf No10 = "1" And Len(Angka) = 10 Then
>
> Nomor10 = "satu milyar "
>
> ElseIf No11 = "1" Then
>
> If No10 = "1" Then
>
> Nomor10 = "sebelas milyar "
>
> ElseIf No10 = "0" Then
>
> Nomor10 = "sepuluh milyar "
>
> Else
>
> Nomor10 = KeKata(No10) & " belas milyar "
>
> End If
>
> Else
>
> Nomor10 = KeKata(No10) & " milyar "
>
> End If
>
> Else
>
> Nomor10 = ""
>
> End If
>
> 'Puluhan Milyar
>
> If Len(Angka) >= 11 Then
>
> If No11 = "1" Or No11 = "0" Then
>
> Nomor11 = ""
>
> Else
>
> Nomor11 = KeKata(No11) & " puluh "
>
> End If
>
> Else
>
> Nomor11 = ""
>
> End If
>
> 'Ratusan Milyar
>
> If Len(Angka) >= 12 Then
>
> If No12 = "1" Then
>
> Nomor12 = "seratus "
>
> ElseIf No12 = "0" Then
>
> Nomor12 = ""
>
> Else
>
> Nomor12 = KeKata(No12) & " ratus "
>
> End If
>
> Else
>
> Nomor12 = ""
>
> End If
>
> 'Triliun
>
> If Len(Angka) >= 13 Then
>
> If No15 = "0" And No14 = "0" And No13 = "0" Then
>
> Nomor13 = ""
>
> ElseIf No13 = "1" And Len(Angka) = 13 Then
>
> Nomor13 = "satu triliun "
>
> ElseIf No14 = "1" Then
>
> If No13 = "1" Then
>
> Nomor13 = "sebelas triliun "
>
> ElseIf No13 = "0" Then
>
> Nomor13 = "sepuluh triliun "
>
> Else
>
> Nomor13 = KeKata(No13) & " belas triliun "
>
> End If
>
> Else
>
> Nomor13 = KeKata(No13) & " triliun "
>
> End If
>
> Else
>
> Nomor13 = ""
>
> End If
>
> 'Puluhan triliun
>
> If Len(Angka) >= 14 Then
>
> If No14 = "1" Or No14 = "0" Then
>
> Nomor14 = ""
>
> Else
>
> Nomor14 = KeKata(No14) & " puluh "
>
> End If
>
> Else
>
> Nomor14 = ""
>
> End If
>
> 'Ratusan triliun
>
> If Len(Angka) >= 15 Then
>
> If No15 = "1" Then
>
> Nomor15 = "seratus "
>
> ElseIf No15 = "0" Then
>
> Nomor15 = ""
>
> Else
>
> Nomor15 = KeKata(No15) & " ratus "
>
> End If
>
> Else
>
> Nomor15 = ""
>
> End If
>
> If Len(Angka) > 15 Then
>
> bilang = "Digit Angka Terlalu Banyak"
>
> Else
>
> If IsNull(Nilai_Angka) Then
>
> bilang = ""
>
> ElseIf Nilai_Angka < 0 Then
>
> bilang = "minus " & Trim(Nomor15 & Nomor14 & Nomor13 & Nomor12 &
> Nomor11
> & Nomor10 & Nomor9 & Nomor8 & Nomor7 _
>
> & Nomor6 & Nomor5 & Nomor4 & Nomor3 & Nomor2 & Nomor1 & Koma & " " &
> Satuan)
>
> Else
>
> bilang = Trim(Nomor15 & Nomor14 & Nomor13 & Nomor12 & Nomor11 &
> Nomor10
> & Nomor9 & Nomor8 & Nomor7 _
>
> & Nomor6 & Nomor5 & Nomor4 & Nomor3 & Nomor2 & Nomor1 & Koma & " " &
> Satuan)
>
> End If
>
> End If
>
> If Style = 4 Then
>
> terbilang = StrConv(Left(bilang, 1), 1) & StrConv(Mid(bilang, 2, 1000),
> 2)
>
> Else
>
> terbilang = StrConv(bilang, Style)
>
> End If
>
> terbilang = Replace(terbilang, " ", " ", 1, 1000, vbTextCompare)
>
> End Function
>
>
>
> Terimakasih sebelumnya...
>
>
>
>
>
> PRAZTMATH T
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

2a

Re: Expire data pada menu login [1 Attachment]

Fri Oct 18, 2013 2:30 am (PDT) . Posted by:

"nangAgus" nangagoez

Dear Supri,

Salam Warahmatullah
Bagaimana jika Expire di letakkan di depan, sedangkan use form login
sesudahnya?
Tambahkan perintah menutup workbook jika tanggal sudah tercapai:

Private Sub Workbook_Open()
Application.Visible = False
Dim exdate As Date
exdate = "07-30-2014"
If Date > exdate Then
MsgBox ("Masa Berlaku Data Telah Berakhir Pada : " & exdate & ""),
vbInformation, "INFO"
ActiveWorkbook.Close
End If
If Date < exdate Then
MsgBox ("Masa Berlaku data: { " & exdate & " } dan masih sisa " &
exdate - Date & " hari"), vbInformation, "Note"
UserForm1.Show
End If
End Sub

Salam Warahmatullah

NangAgus

On 16/10/2013 10:43, supri anto wrote:
>
> Assalamu������alaikum warohmatullahi wabarokatuuh������
>
> ������
>
> Yth Rekan-Rekan ������BeExceller
>
> ������
>
> Mohon Bantuannya,Adakah code vba yang lebih simpel untuk membuat tgl
> expired sheet. Agar tgl 07-30-204 ini tidak berulang-ulang di ketik
> pada setiap sheet,berikut scripnya dan untuk lebih jelasnya ada pada
> file lampiran.
>
> ������
>
> Private Sub CmdPrint2_Click()
>
> Application.ScreenUpdating = False
>
> exdate = "07-30-2014"
>
> If Date < exdate Then
>
> Sheets("PRINTOUT2").Visible = xlSheetVisible
>
> Sheets("PRINTOUT2").Select
>
> Sheets("Menu").Visible = xlVeryHidden
>
> If Date > exdate Then
>
> Sheets("PRINTOUT2").Visible = xlSheetVeryHidden
>
> Sheets("PRINTOUT2").Close
>
> Sheets("Menu").Visible = xlVeryHidden
>
> Application.ScreenUpdating = True
>
> End If
>
> End If
>
> End Sub
>
> ������
>
> Private Sub CmdPrint3_Click()
>
> Application.ScreenUpdating = False
>
> exdate = "07-30-2014"
>
> If Date < exdate Then
>
> Sheets("PRINTOUT3").Visible = xlSheetVisible
>
> Sheets("PRINTOUT3").Select
>
> Sheets("Menu").Visible = xlVeryHidden
>
> If Date > exdate Then
>
> Sheets("PRINTOUT3").Visible = xlSheetVeryHidden
>
> Sheets("PRINTOUT3").Close
>
> Sheets("Menu").Visible = xlVeryHidden
>
> Application.ScreenUpdating = True
>
> End If
>
> End If
>
> End Sub
>
> ������
>
> Private Sub CmdPrint4_Click()
>
> Application.ScreenUpdating = False
>
> exdate = "07-30-2014"
>
> If Date < exdate Then
>
> Sheets("PRINTOUT4").Visible = xlSheetVisible
>
> Sheets("PRINTOUT4").Select
>
> Sheets("Menu").Visible = xlVeryHidden
>
> If Date > exdate Then
>
> Sheets("PRINTOUT4").Visible = xlSheetVeryHidden
>
> Sheets("PRINTOUT4").Close
>
> Sheets("Menu").Visible = xlVeryHidden
>
> Application.ScreenUpdating = True
>
> End If
>
> End If
>
> End Sub
>
> ������
>
> Terima kasih sebelumnya������
>
> Wassalamu������alaikum warohamtullahi wabarokatuuh������
>
> ������
>
> Hormat saya,
>
> Suprianto
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

3a

Re: Rumus If x > ...(currency) = #value!

Fri Oct 18, 2013 2:30 am (PDT) . Posted by:

"vincent Yoes" vincetgo

Dear Mr Kid and exceller

Terima kasih Mr. Kid untuk pencerahannya...
saya coba aplikasikan dengan formula

Public Function uang(X As Variant)
Dim hasil As Variant
Dim hasila As Variant
Dim hasilb As Variant
Dim hasilc As Variant
Dim hasild As Variant

If X > 500000000 Then
   X = CDec(X - 500000000)
hasila = CDec(100000000 * 5 / 100)
hasilb = CDec(500000000 * 15 / 100)
hasilc = CDec(X * 25 / 100)
hasil = CDec(hasila) + CDec(hasilb) + CDec(hasilc)
End If
uang = hasil
End Function

 
namun masih belum berubah hasilnya #value! apa ada yg salah dengan formula saya..

sebelum dan sesudahnya saya ucapkan terima kasih

Be Exceller

Vincent

On Wednesday, October 16, 2013 3:46 PM, Mr. Kid <mr.nmkid@gmail.com> wrote:

 
Hai vincent,

datatype currency ndal bisa menampung nilai diluar range berikut :
-922,337,203,685,477.5808 to 922,337,203,685,477.5807

Coba gunakan datatype double atau decimal (via variant dan fungsi cdec)

Wassalam,
Kid.

2013/10/16 vincent Yoes <vincetgo@yahoo.com>

> 
>Dear rekan2 Be Exceller
>
>macro vba dibawah ini kenapa ya hasilnya jika 500000000 kebawah currency dalam bentuk angka namun jika 500000000 keatas hasilnya tidak dalam bentuk currency namun #value!
>
>Public Function hutang(x As Currency)
>Dim hasil As Currency
>Dim hasila As Currency
>Dim hasilb As Currency
>Dim hasilc As Currency
>Dim hasild As Currency
>
>If x > 500000000 Then
>    x = x - 500000000
>   
>hasila = 25000000 * 5 / 100
>hasilb = 50000000 * 10 / 100
>hasilc = 500000000 * 15 / 100
>hasild = x * 25 / 100
>hasil = hasila + hasilb + hasilc + hasild
>End If
>hutang = hasil
>End Function
>
>berikut format excelnya saya lampirkan.
>
>mohon pencerahannya rekan2 Exceller...
>
>atas bantuannya saya ucapkan terima kasih.......
>
>BE EXCELLER
>
>Vincent

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

3b

Rumus If x > ...(currency) = #value!

Fri Oct 18, 2013 2:38 am (PDT) . Posted by:

"vincent Yoes" vincetgo

Dear Mr Kid and exceller

Terima kasih Mr. Kid untuk pencerahannya...
saya coba aplikasikan dengan formula

Public Function uang(X As Variant)
Dim hasil As Variant
Dim hasila As Variant
Dim hasilb As Variant
Dim hasilc As Variant
Dim hasild As Variant

If X > 500000000 Then
   X = CDec(X - 500000000)
hasila = CDec(100000000 * 5 / 100)
hasilb = CDec(500000000 * 15 / 100)
hasilc = CDec(X * 25 / 100)
hasil = CDec(hasila) + CDec(hasilb) + CDec(hasilc)
End If
uang = hasil
End Function

 
namun masih belum berubah hasilnya #value! apa ada yg salah dengan formula saya..

sebelum dan sesudahnya saya ucapkan terima kasih

Be Exceller

Vincent

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

4a

Data error

Fri Oct 18, 2013 2:30 am (PDT) . Posted by:

"Tuti Hartati"

Dear Mr. Kid,

Terimakasih atas infonya dan berikut saya lampirkan dari coding database
yang error.

Terimakasih,

Tuti Hartati.
PT. Fukusuke Kogyo Indonesia
Kawasan Berikat MM2100
Blok M-3-2, Cikarang Barat, Bekasi
Telp : 0218980444, 0218980315, 0218980316
Fax : 0218980311
Email : <mailto:tuti-hartati@fukusuke-kogyo.co.id>
tuti-hartati@fukusuke-kogyo.co.id

Reply to sender . Reply to group . Reply via Web Post . All Messages (5) . Top ^

5

hapus objek?????

Fri Oct 18, 2013 2:30 am (PDT) . Posted by:

"Shenly" shenly_excelmania

Assalamualaikum...
haloo temen2..mau tanya, gimana ya cara hapus objek yang banyak, dari hasil copas dari web,
saya suka hapus satu persatu, sedangkan objeknya banyak banget...jadi suka esmosi sendiri hehehe...
di antos jawabannya hehehe

 
Salam
Shenly ^^*

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

6

IF dengan Nama Hari

Fri Oct 18, 2013 2:31 am (PDT) . Posted by:

"Andy Ajhis Ramadhan" andy_ajhis37

Dear,
Be-Exceller...

Bagaimana membuat logika if dengan nama hari...
Misal Jika :
-Hari ini = Kamis, Hari ini -1 ( Agar menjadi hari Rabu )

-Hari ini = Jum'at, Hari Ini -2 ( Agar menjadi hari Rabu )
-Hari ini = Sabtu, Hari ini -3 ( Agar menjadi hari Rabu )
-Hari ini = Minggu, Hari ini -4 ( Agar menjadi hari Rabu )
-Hari ini = Senin, Hari ini -5 ( Agar menjadi hari Rabu )

-Hari ini = Selasa, Hari ini -6 ( Agar menjadi hari Rabu )

-Hari ini = Rabu, Hari ini ( Hari Ini )

Note= (,) : Maka

andy untuk menentukan if hari belum tau, mohon bantuannya dengan Now() atau Dateif atau gmn logikanya... Terima Kasih banyak...

Wassalam,
Andy

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

7

Data Error

Fri Oct 18, 2013 2:33 am (PDT) . Posted by:

"Tuti Hartati"

Dear Mr. Kid,

Terimakasih atas infonya dan berikut saya lampirkan dari coding database
yang error.

Terimakasih,

Tuti Hartati

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

8

Tidak Bisa keluar Excel, Ketika Print langsung keluar

Fri Oct 18, 2013 2:43 am (PDT) . Posted by:

"Toni Kus Indratno" tonny.kuzh@ymail.com

Selamat siang, mohon maaf mengganggu,,,saya mau membuat lembar
penilaian mahasiswa menggunakan excel, seperti yang
terlampir...Saya ingin agar mahasiswa tidak bisa close excel
sebelum dia menjawab semua soal...dan ketika mahasiswa sampai di
sheet "Hasil" maka mahasiswa menekan tombol "Cetak Hasil Ujian",
maka secara otomatis lembar excel langsung tertutup dan hasil
keluar dari printer....Mohon bantuannya, kode macronya seperti
apa...jika boleh ketika siswa masuk lagi soalnya bisa
acak...heheMohon dengan sangat bantuannya,...

 =================================
DINAR DIRHAM
Hidup Bahagia Tanpa Riba

http://tonikus.staff.uad.ac.id <http://tonikus.staff.uad.ac.id/>
=================================

*** Mods ***
lampiran dilepas karena melebihi batas yang diizinkan sebesar
250KB
*************

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

Visit Your Group

>

View All Topics

>

Create New Topic

>

4 New Members

>

We are making changes based on your feedback, Thank you !

Submit Feedback

>

The Yahoo! Groups Product Blog

Check it out!

>

GROUP FOOTER MESSAGE

=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

CHANGE SETTINGS

>

TERMS OF USE

>

UNSUBSCRIBE

>