[belajar-excel] Digest Number 2598

Milis Belajar Microsoft Excel Group

11 New Messages

Digest #2598

1a

Re: Rumus If x > ...(currency) = #value! by "Mr. Kid" nmkid.family@ymail.com

2a

Re: Data error [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com

3a

Re: hapus objek????? by "Mr. Kid" nmkid.family@ymail.com

4a

Re: IF dengan Nama Hari by "Mr. Kid" nmkid.family@ymail.com

5a

Re: macro terbilang desimal dua angka by "Mr. Kid" nmkid.family@ymail.com

5b

Re: macro terbilang desimal dua angka by "prazt math" praztmath

5c

Re: macro terbilang desimal dua angka by "Mr. Kid" nmkid.family@ymail.com

5d

Re: macro terbilang desimal dua angka by "prazt math" praztmath

6a

Data error by "Tuti Hartati"

6b

Re: Data error by "Mr. Kid" nmkid.family@ymail.com

7a

Re: Expire data pada menu login [1 Attachment] by "supri anto"

Messages

1a

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

Fri Oct 18, 2013 3:39 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Oh mungkin pakai double bisa kali ya.

selain itu,
coba proses pembagian dilakukan lebih dulu sebelum perkalian, sehingga
nilainya turun dulu akibat pembagian baru nanti naik lagi akibat perkalian.

misal
100000000 * 5 / 100 bisa berupa 100000000 / 100 * 5
dsb

Wassalam
Kid.

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

> **
>
>
> 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 (5) . Top ^

2a

Re: Data error [1 Attachment]

Fri Oct 18, 2013 3:53 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Bu Tuti,

Bagian yang dihapus dari prosedur TabelInput :
Worksheets("Tabel").OnEntry = "DirectInput&quot;
Worksheets("Tabel").OnSheetDeactivate = "SheetBack&quot;

Kemudian, buat prosedur sub event milik worksheet bernama Tabel (coba ke
bagian Events dalam object Worksheet
disini<http://b-excel.blogspot.com/2013/08/belajarvba-007-property-methods-events.html>)
1. pilih event Change lalu isi dalam blok prosedur tersebut DirectInput
'ini nama prosedur yang harus dipanggil akibat proses entry kan

2. pilih event DeActivate lalu isi dalam blok prosedur tersebut SheetBack
'ini nama prosedur yang harus dipanggil akibat penonaktifan sheet

Wassalam,
Kid.

2013/10/17 Tuti Hartati <tuti-hartati@fukusuke-kogyo.co.id>

> **
>
>
> 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 : tuti-hartati@fukusuke-kogyo.co.id****
>
> ** **
>
>
>

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

3a

Re: hapus objek?????

Fri Oct 18, 2013 3:56 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Wa'alaikumussalam Wr. Wb.

Coba CTRL G -> klik Special -> pilih Objects -> tekan OK -> tekan Delete
"pilih yang spesial yaitu objects, kemudian di Delete"

Wassalam,
Kid.

2013/10/18 Shenly <shenly_excelmania@yahoo.co.id>

> **
>
>
> 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 (2) . Top ^

4a

Re: IF dengan Nama Hari

Fri Oct 18, 2013 4:00 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Andy,

Coba :
=Floor( Today() - 2 , 7 ) + 4

Wassalam,
Kid.

2013/10/18 Andy Ajhis Ramadhan <andyajhisramadhan@ymail.com>

> **
>
>
> 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 (2) . Top ^

5a

Re: macro terbilang desimal dua angka

Fri Oct 18, 2013 4:39 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Pakai Fungsi terbilang yang sudah tersebar dimana saja itu

misal A1 berisi 17.561 akan diambil sampai 2 digit dibelakang koma.
Di B1 diberi formula dengan fungsi terbilang
=terbilang( int( a1 ) ) & if( mod( a1 , 1 ) , "koma " & terbilang( int(mod(
a1,1) * 100) ) , "" )

Wassalam,
Kid.

2013/10/18 PRAZT <praztmath@gmail.com>

> **
>
>
> 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 ™****
>
> ** **
>
> *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> 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 (8) . Top ^

5b

Re: macro terbilang desimal dua angka

Fri Oct 18, 2013 8:18 pm (PDT) . Posted by:

"prazt math" praztmath

Trimakasih MK, udah bisa jalan dengan fungsi dari mr Kid tapi masih ada
kendala sewaktu saya memasukkan angka 1,01kok terbaca "satu koma satu",
yang saya inginkan misal 1,01 terbaca "satu koma nol satu". Mohon
pencerahan mr.Kid
Pada 19 Okt 2013 06:41, "Mr. Kid" <mr.nmkid@gmail.com> menulis:

> **
>
>
> Pakai Fungsi terbilang yang sudah tersebar dimana saja itu
>
> misal A1 berisi 17.561 akan diambil sampai 2 digit dibelakang koma.
> Di B1 diberi formula dengan fungsi terbilang
> =terbilang( int( a1 ) ) & if( mod( a1 , 1 ) , "koma " & terbilang(
> int(mod( a1,1) * 100) ) , "" )
>
> Wassalam,
> Kid.
>
>
>
> 2013/10/18 PRAZT <praztmath@gmail.com>
>
>> **
>>
>>
>> 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 ™****
>>
>> ** **
>>
>> *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> 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 (8) . Top ^

5c

Re: macro terbilang desimal dua angka

Fri Oct 18, 2013 9:39 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

=terbilang( int( a1 ) ) & if( mod( a1 , 1 ) , "koma " & rept("nol ",
int(mod( a1,1) * 100) <10 ) & terbilang( int(mod( a1,1) * 100) ) , "" )

gitu kali ya

2013/10/19 prazt math <praztmath@gmail.com>

> **
>
>
> Trimakasih MK, udah bisa jalan dengan fungsi dari mr Kid tapi masih ada
> kendala sewaktu saya memasukkan angka 1,01kok terbaca "satu koma satu",
> yang saya inginkan misal 1,01 terbaca "satu koma nol satu". Mohon
> pencerahan mr.Kid
> Pada 19 Okt 2013 06:41, "Mr. Kid" <mr.nmkid@gmail.com> menulis:
>
> **
>>
>>
>> Pakai Fungsi terbilang yang sudah tersebar dimana saja itu
>>
>> misal A1 berisi 17.561 akan diambil sampai 2 digit dibelakang koma.
>> Di B1 diberi formula dengan fungsi terbilang
>> =terbilang( int( a1 ) ) & if( mod( a1 , 1 ) , "koma " & terbilang(
>> int(mod( a1,1) * 100) ) , "" )
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> 2013/10/18 PRAZT <praztmath@gmail.com>
>>
>>> **
>>>
>>>
>>> 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 ™****
>>>
>>> ** **
>>>
>>> *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> 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 (8) . Top ^

5d

Re: macro terbilang desimal dua angka

Fri Oct 18, 2013 11:28 pm (PDT) . Posted by:

"prazt math" praztmath

Manjur MK obatnya...jos ganjos....makasih MK...
Fungsi tersebut kalo disisipkan ke macro terbilang yang kemarin saya
cancumkan kira" gmn ya mr. Kid? Hehehe
Pada 19 Okt 2013 11:39, "Mr. Kid" <mr.nmkid@gmail.com> menulis:

> **
>
>
> =terbilang( int( a1 ) ) & if( mod( a1 , 1 ) , "koma " & rept("nol ",
> int(mod( a1,1) * 100) <10 ) & terbilang( int(mod( a1,1) * 100) ) , "" )
>
> gitu kali ya
>
>
> 2013/10/19 prazt math <praztmath@gmail.com>
>
>> **
>>
>>
>> Trimakasih MK, udah bisa jalan dengan fungsi dari mr Kid tapi masih ada
>> kendala sewaktu saya memasukkan angka 1,01kok terbaca "satu koma satu",
>> yang saya inginkan misal 1,01 terbaca "satu koma nol satu". Mohon
>> pencerahan mr.Kid
>> Pada 19 Okt 2013 06:41, "Mr. Kid" <mr.nmkid@gmail.com> menulis:
>>
>> **
>>>
>>>
>>> Pakai Fungsi terbilang yang sudah tersebar dimana saja itu
>>>
>>> misal A1 berisi 17.561 akan diambil sampai 2 digit dibelakang koma.
>>> Di B1 diberi formula dengan fungsi terbilang
>>> =terbilang( int( a1 ) ) & if( mod( a1 , 1 ) , "koma " & terbilang(
>>> int(mod( a1,1) * 100) ) , "" )
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>>
>>> 2013/10/18 PRAZT <praztmath@gmail.com>
>>>
>>>> **
>>>>
>>>>
>>>> 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 ™****
>>>>
>>>> ** **
>>>>
>>>> *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> 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 (8) . Top ^

6a

Data error

Fri Oct 18, 2013 7:52 pm (PDT) . Posted by:

"Tuti Hartati"

Dear Mr. Kid,
Terimakasih atas infonya tetapi masih saja error ya mr. Kid belum bisa
dijalankan. Dan errornya masih tetap sama.

Terimakasih,
Tuti Hartati

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

6b

Re: Data error

Fri Oct 18, 2013 7:53 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Boleh di share seperti apa hasil pengubahan dan bentuk seluruh script di
file tersebut ?

2013/10/19 Tuti Hartati <hartatituti16@yahoo.com>

> **
>
>
> **
>
> Dear Mr. Kid,
>
> Terimakasih atas infonya tetapi masih saja error ya mr. Kid belum bisa
> dijalankan. Dan errornya masih tetap sama.
>
> Terimakasih,
>
> Tuti Hartati
>
>
>

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

7a

Re: Expire data pada menu login [1 Attachment]

Fri Oct 18, 2013 7:52 pm (PDT) . Posted by:

"supri anto"

sebelumnya mohon Maaf saudara NangAgus. Maksud saya adalah bagaimana scrip
simple dari
tanggal "07-30-2014" agar saya tidak perlu lagi memasukan tanggal per sheet
jadi,mungkin menjadi seperti (misalnya):

exdate = "07-30-2014"
If Date < exdate Then
Sheets("PRINTOUT2")
Sheets("PRINTOUT3")
Sheets("PRINTOUT4")
Sheets("PRINTOUT5")
Sheets("PRINTOUT6") dst...

2013/10/17 nangAgus <nangagoez@yahoo.co.id>

> **
>
>
> 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 (3) . 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

>