15 New Messages
Digest #2313
2a
Macro find untuk tarik data dari satu sheet ke lain sheet by "freddy heru soermin" freddy.soermin
2b
Re: Macro find untuk tarik data dari satu sheet ke lain sheet by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
5b
Re: {Disarmed} Formula Excel Konversi Rupiah dari Angka ke Huruf by "Mr. Kid" nmkid.family@ymail.com
7b
Re: {Disarmed} Re: [belajar-excel] {Disarmed} Formula Excel Konversi by "Mr. Kid" nmkid.family@ymail.com
Messages
Wed May 22, 2013 11:48 pm (PDT) . Posted by:
"sin.ur4t" sin.ur4t
Makasih respon positifnya, Pak MrKid.
sedikit banyak saya bisa faham maksud dari saran bpk. fitur pivot tabel bisa digunakan untuk meletakkan data tsb pada posisinya dgn akurat dan mudah. Pun msh segar di ingatan saya bbrp wkt lalu pak kid mengajarkan ilmu PivotCache yg irit memory :)
Namun demikian, untuk kasus ini sepertinya penggunaan pivottabel agak kurang pas. Data mmg bisa dimasukkan dengan cermat, tapi itu berarti setiap saat tabel data tsb harus "terganggu". sbnrnya ini salah saya sendiri sih, tidak cukup jelas dalam menguraikan masalah/pertanyaan.
dalam kasus nyata yg saya hadapi, Tabel B (Penampung Hasil Data Inputan) sbnrnya adalah mmg "Benar-benar Tabel Raw Data". Jadi data yang akan diinput itu sifatnya utk meng-update.
izinkan saya 'curhat', maaf kalo membosankan hehe..
berkali-kali saya teringat tulisan pak MrKid tentang "Perlunya membangun tabel data yang baik", yang secara implisit saya terjemahkan bhw sebaiknya pola pengisian tabel mengarah "ke bawah". Namun dalam kasus saya, sepertinya cara yg paling efisien pola pengisiannya justu mengarah "ke bawah dan ke samping". Jika ada record baru, maka dicatat arah ke bawah. namun jika ingin meng-update data record yang telah exist, maka dilakukan ke arah samping.
nah, pertanyaan saya ini adalah untuk mengupdate data. Jadi, jika angka offsetnya 3, itu berarti sel pertama dan kedua sudah berisi data, sehingga updating saat ini ditujukan ke sel ketiga. selama ini hal tsb saya lakukan secara manual, dan terasa sangat rumit karena recordnya ada ribuan baris.
Seandainya proses updating itu bisa dilakukan sekaligus, oh alangkah indahnya hehe. tinggal memfilter tabel data untuk memilih semua record yang akan diupdate, lalu mengetik update-annya di sebuah tabel bantu (katakanlah di sheet temporary seperti yang prnh bpk ajarkan), lalu mengirim kembali data terupdate itu ke dalam raw tabel.
semoga pak MrKid dan para pakar berkenan memberi pencerahan bagaimana caranya. terima kasih sebelumnya
Wassalam
Sinurat
--- In belajar-excel@yahoogroups.com , "Mr. Kid" <mr.nmkid@...> wrote:
>
> Pak Imam,
>
> ini omongannya orang yang ndak mudengan loh ya, jadi jangan terlalu dipikir
> serius
>
> Bagaimana kalau
> 1. input seperti sheet input range A7 sampai D sekiun
> 2. disimpan di sheet data pada baris kosong pertama yang ada, yang tabelnya
> persis seperti input tadi
> 3. beri nama range di sheet data termasuk headernya (misal diberi nama yang
> tetap berbunyi _myData_
> 4. dibuat sheet output dan sheet tersebut diisi pivot table untuk
> manampilkan semua data yang ada di sheet data alias sumbernya dari nama
> range yang dibuat di nomor 3 (jadi sumber data untuk pivot table diisi nama
> range bernama _myData_)
>
> Setelah hal diatas dibuat, barulah disusun proses otomasinya, yaitu pada
> tombol simpan di sheet input bisa diisi proses :
> 1. copy area input
> 2. menuju baris kosong pertama di kolom A pada sheet Data
> 3. paste special values
> 4. blok seluruh data di sheet data lalu beri nama range yang tetap yang
> menjadi sumber data pivot, yaitu berbunyi _myData_
> 5. refresh pivot table yang ada di sheet output
>
> Kira-kira bentuk susunan input, data, output adalah seperti file terlampir.
> Proses otomasi-nya bisa dicoba dibuat sendiri kan ya...
>
> Apakah keuntungan penyusunan data seperti sheet Data di file terlampir ?
>
> Wassalam,
> Kid.
>
>
>
> 2013/5/22 Imam Sinurat <sin.ur4t@...>
>
> > **
> >
> >
> >
> > Yth para pakar dan rekan2 excellers,
> >
> > Mohon berkenan memberi pencerahan ttg kasus ini:
> > Bagaimana cara memasukkan data dari suatu tempat sekaligus ke dlm tabel
> > tujuan.
> >
> > Letak penempatan data di dlm tabel tujuannya diatur oleh 'angka offset
> > kolom' yg sudah ditentukan, pada baris yg sesuai nama dan kategorinya.
> > File Detail terlampir.
> >
> > Sekali lagi mohon dibantu, terima kasih sblmnya.
> >
> > Wassalam
> > Imam Sinurat
> >
> >
>
sedikit banyak saya bisa faham maksud dari saran bpk. fitur pivot tabel bisa digunakan untuk meletakkan data tsb pada posisinya dgn akurat dan mudah. Pun msh segar di ingatan saya bbrp wkt lalu pak kid mengajarkan ilmu PivotCache yg irit memory :)
Namun demikian, untuk kasus ini sepertinya penggunaan pivottabel agak kurang pas. Data mmg bisa dimasukkan dengan cermat, tapi itu berarti setiap saat tabel data tsb harus "terganggu&quo
dalam kasus nyata yg saya hadapi, Tabel B (Penampung Hasil Data Inputan) sbnrnya adalah mmg "Benar-
izinkan saya 'curhat&#
berkali-kali saya teringat tulisan pak MrKid tentang "Perlunya membangun tabel data yang baik", yang secara implisit saya terjemahkan bhw sebaiknya pola pengisian tabel mengarah "ke bawah". Namun dalam kasus saya, sepertinya cara yg paling efisien pola pengisiannya justu mengarah "ke bawah dan ke samping"
nah, pertanyaan saya ini adalah untuk mengupdate data. Jadi, jika angka offsetnya 3, itu berarti sel pertama dan kedua sudah berisi data, sehingga updating saat ini ditujukan ke sel ketiga. selama ini hal tsb saya lakukan secara manual, dan terasa sangat rumit karena recordnya ada ribuan baris.
Seandainya proses updating itu bisa dilakukan sekaligus, oh alangkah indahnya hehe. tinggal memfilter tabel data untuk memilih semua record yang akan diupdate, lalu mengetik update-annya di sebuah tabel bantu (katakanlah di sheet temporary seperti yang prnh bpk ajarkan), lalu mengirim kembali data terupdate itu ke dalam raw tabel.
semoga pak MrKid dan para pakar berkenan memberi pencerahan bagaimana caranya. terima kasih sebelumnya
Wassalam
Sinurat
--- In belajar-excel@
>
> Pak Imam,
>
> ini omongannya orang yang ndak mudengan loh ya, jadi jangan terlalu dipikir
> serius
>
> Bagaimana kalau
> 1. input seperti sheet input range A7 sampai D sekiun
> 2. disimpan di sheet data pada baris kosong pertama yang ada, yang tabelnya
> persis seperti input tadi
> 3. beri nama range di sheet data termasuk headernya (misal diberi nama yang
> tetap berbunyi _myData_
> 4. dibuat sheet output dan sheet tersebut diisi pivot table untuk
> manampilkan semua data yang ada di sheet data alias sumbernya dari nama
> range yang dibuat di nomor 3 (jadi sumber data untuk pivot table diisi nama
> range bernama _myData_)
>
> Setelah hal diatas dibuat, barulah disusun proses otomasinya, yaitu pada
> tombol simpan di sheet input bisa diisi proses :
> 1. copy area input
> 2. menuju baris kosong pertama di kolom A pada sheet Data
> 3. paste special values
> 4. blok seluruh data di sheet data lalu beri nama range yang tetap yang
> menjadi sumber data pivot, yaitu berbunyi _myData_
> 5. refresh pivot table yang ada di sheet output
>
> Kira-kira bentuk susunan input, data, output adalah seperti file terlampir.
> Proses otomasi-nya bisa dicoba dibuat sendiri kan ya...
>
> Apakah keuntungan penyusunan data seperti sheet Data di file terlampir ?
>
> Wassalam,
> Kid.
>
>
>
> 2013/5/22 Imam Sinurat <sin.ur4t@
>
> > **
> >
> >
> >
> > Yth para pakar dan rekan2 excellers,
> >
> > Mohon berkenan memberi pencerahan ttg kasus ini:
> > Bagaimana cara memasukkan data dari suatu tempat sekaligus ke dlm tabel
> > tujuan.
> >
> > Letak penempatan data di dlm tabel tujuannya diatur oleh 'angka offset
> > kolom' yg sudah ditentukan, pada baris yg sesuai nama dan kategorinya.
> > File Detail terlampir.
> >
> > Sekali lagi mohon dibantu, terima kasih sblmnya.
> >
> > Wassalam
> > Imam Sinurat
> >
> >
>
Wed May 22, 2013 11:48 pm (PDT) . Posted by:
"freddy heru soermin" freddy.soermin
Dear Exceler,
Mohon Bantuannya untuk mengisi tabel disamping secara otomatis�
saya hanya memasukan data di kolom (A7:A12), kemudian saya tekan Button find
dan secara otomatis data dari sheet "data asli" langsung berpindah ke posisi kolom A7:G12
�
Terima kasih banyak
Mohon Bantuannya untuk mengisi tabel disamping secara otomatis�
saya hanya memasukan data di kolom (A7:A12), kemudian saya tekan Button find
dan secara otomatis data dari sheet "data asli" langsung berpindah ke posisi kolom A7:G12
�
Terima kasih banyak
Thu May 23, 2013 12:23 am (PDT) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
saya coba bantu dengan mungkin yang lain bisa menyempurnakan
1. inserts rows untuk membuat nama field di sheet [Data Asli] dan sheet
[taRIK] sehingga sesuai dengan kaidah table database.
2. Kalo tanpa macro Proses penarikan data dari sheet [Data asli] bisa
menggunakan perintah AdvanceFilter.
3. Jika menggunakan macro, silahkan dicoba macro berikut:
Sub TarikData()
Const namaSheetAsal As String = "Data Asli"
Const namaSheetTarget As String = "taRIK"
'1. mengeset range data asli
Dim rgAwal As Range, rgData As Range
Set rgAwal = Worksheets(namaSheetAsal).Range("A4")
'1.1. memperluas range sesuai jumlah baris dan kolom tabel
Set rgData = Range(rgAwal, rgAwal.End(xlToRight)) 'block kolom
Set rgData = Range(rgData, rgData.End(xlDown)) 'blok kolom & baris
'2. mengeset range filter dan target
Dim rgFilter As Range, rgTarget As Range
Set rgFilter = Worksheets(namaSheetTarget).Range("A7")
Set rgFilter = Range(rgFilter, rgFilter.End(xlDown))
Set rgTarget = Range(rgFilter, rgFilter.End(xlToRight))
'3. melakukan advance filter
rgData.AdvancedFilter xlFilterCopy, rgFilter, rgTarget
End Sub
selamat mencoba
wassalam,
-zainul-
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of freddy heru soermin
Sent: Thursday, May 23, 2013 9:42 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Macro find untuk tarik data dari satu sheet ke lain
sheet
Dear Exceler,
Mohon Bantuannya untuk mengisi tabel disamping secara otomatis�
saya hanya memasukan data di kolom (A7:A12), kemudian saya tekan Button find
dan secara otomatis data dari sheet "data asli" langsung berpindah ke posisi
kolom A7:G12
�
Terima kasih banyak
1. inserts rows untuk membuat nama field di sheet [Data Asli] dan sheet
[taRIK] sehingga sesuai dengan kaidah table database.
2. Kalo tanpa macro Proses penarikan data dari sheet [Data asli] bisa
menggunakan perintah AdvanceFilter.
3. Jika menggunakan macro, silahkan dicoba macro berikut:
Sub TarikData()
Const namaSheetAsal As String = "Data Asli"
Const namaSheetTarget As String = "taRIK"
'1. mengeset range data asli
Dim rgAwal As Range, rgData As Range
Set rgAwal = Worksheets(namaShee
'1.1. memperluas range sesuai jumlah baris dan kolom tabel
Set rgData = Range(rgAwal, rgAwal.End(xlToRigh
Set rgData = Range(rgData, rgData.End(xlDown)
'2. mengeset range filter dan target
Dim rgFilter As Range, rgTarget As Range
Set rgFilter = Worksheets(namaShee
Set rgFilter = Range(rgFilter, rgFilter.End(
Set rgTarget = Range(rgFilter, rgFilter.End(
'3. melakukan advance filter
rgData.AdvancedFilt
End Sub
selamat mencoba
wassalam,
-zainul-
From: belajar-excel@
On Behalf Of freddy heru soermin
Sent: Thursday, May 23, 2013 9:42 AM
To: belajar-excel@
Subject: [belajar-excel] Macro find untuk tarik data dari satu sheet ke lain
sheet
Dear Exceler,
Mohon Bantuannya untuk mengisi tabel disamping secara otomatis�
saya hanya memasukan data di kolom (A7:A12), kemudian saya tekan Button find
dan secara otomatis data dari sheet "data asli" langsung berpindah ke posisi
kolom A7:G12
�
Terima kasih banyak
Wed May 22, 2013 11:48 pm (PDT) . Posted by:
"didit prast" didit_monk
dear mr Kid,
ohh tdk cocok menggunakan formula index dan match yaa master,
G9="SEMUA";, sebenarnya kolom tersebut diisi penjumlahan dari A+B+C.
berarti saya harus mengisikan bagaimana?...
terima kasih
didit
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: BeExcel <belajar-excel@yahoogroups.com >
Sent: Wednesday, 22 May 2013, 23:10
Subject: Re: [belajar-excel] LOOK UP DENGAN KONDISI CAMPURAN
Coba pada cell H9 diberi formula :
=SUMPRODUCT(($J$9:$J$13=C9)*($K$9:$K$13=D9)*($L$9:$L$13=E9)*($M$9:$M$13=F9)*(COUNTIF(G9,"*"&$N$8:$P$8&"("&$N$7:$P$7&")*")+(G9="SEMUA"))*$N$9:$P$13)
copy ke bawah
jika regional setting komputer setempat adalah Indonesia, ganti seluruh karakter koma dalam formula menjadi karakter titik koma.
Wassalam,
Kid.
2013/5/22 didit prast <didit_monk@yahoo.com >
>
>Dear para master,
>
>
>minta tolong bagaimana mengisi formula bertanda merah.
>
>
>terima kasih
>
>
>didit p
>
ohh tdk cocok menggunakan formula index dan match yaa master,
G9="SEMUA"
berarti saya harus mengisikan bagaimana?..
terima kasih
didit
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Wednesday, 22 May 2013, 23:10
Subject: Re: [belajar-excel] LOOK UP DENGAN KONDISI CAMPURAN
Coba pada cell H9 diberi formula :
=SUMPRODUCT(
copy ke bawah
jika regional setting komputer setempat adalah Indonesia, ganti seluruh karakter koma dalam formula menjadi karakter titik koma.
Wassalam,
Kid.
2013/5/22 didit prast <didit_monk@yahoo.
>
>Dear para master,
>
>
>minta tolong bagaimana mengisi formula bertanda merah.
>
>
>terima kasih
>
>
>didit p
>
Thu May 23, 2013 12:14 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
hehehe..
Nilai kolom G :
Jika A(1)+C(2) untuk A kondisi 1 ditambah dengan C kondisi 2
Jika SEMUA maka setara dengan A(1)+B(1)+C(2) agar terjadi A kondisi 1
ditambah B kondisi 1 ditambah C kondisi 2.
Jadi nilai G bisa dipilih untuk diisi teks berbunyi SEMUA atau
A(1)+B(1)+C(2)
Ketika menggunakan Index Match berarti harus index terhadap array nilai
hasil yang sudah dipengaruhi kondisi yang diinginkan oleh kolom G.
Kira-kira bunyinya seperti ini : (bukan array formula)
=SUM(INDEX((COUNTIF(G9,"*"&$N$8:$P$8&"("&$N$7:$P$7&")*")+(G9="SEMUA"))*$N$9:$P$13,MATCH(1,INDEX(($J$9:$J$13=C9)*($K$9:$K$13=D9)*($L$9:$L$13=E9)*($M$9:$M$13=F9),0),0),0))
Wassalam,
Kid.
2013/5/23 didit prast <didit_monk@yahoo.com >
> **
>
>
> dear mr Kid,
>
> ohh tdk cocok menggunakan formula index dan match yaa master,
> G9="SEMUA";, sebenarnya kolom tersebut diisi penjumlahan dari A+B+C.
> berarti saya harus mengisikan bagaimana?...
>
> terima kasih
>
> didit
>
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* BeExcel <belajar-excel@yahoogroups.com >
> *Sent:* Wednesday, 22 May 2013, 23:10
> *Subject:* Re: [belajar-excel] LOOK UP DENGAN KONDISI CAMPURAN
>
>
> Coba pada cell H9 diberi formula :
>
> =SUMPRODUCT(($J$9:$J$13=C9)*($K$9:$K$13=D9)*($L$9:$L$13=E9)*($M$9:$M$13=F9)*(COUNTIF(G9,"*"&$N$8:$P$8&"("&$N$7:$P$7&")*")+
> (G9="SEMUA"))*$N$9:$P$13)
> copy ke bawah
>
> jika regional setting komputer setempat adalah Indonesia, ganti seluruh
> karakter koma dalam formula menjadi karakter titik koma.
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/5/22 didit prast <didit_monk@yahoo.com >
>
> **
>
> Dear para master,
>
> minta tolong bagaimana mengisi formula bertanda merah.
>
> terima kasih
>
> didit p
>
>
>
>
>
>
Nilai kolom G :
Jika A(1)+C(2) untuk A kondisi 1 ditambah dengan C kondisi 2
Jika SEMUA maka setara dengan A(1)+B(1)+C(
ditambah B kondisi 1 ditambah C kondisi 2.
Jadi nilai G bisa dipilih untuk diisi teks berbunyi SEMUA atau
A(1)+B(1)+C(
Ketika menggunakan Index Match berarti harus index terhadap array nilai
hasil yang sudah dipengaruhi kondisi yang diinginkan oleh kolom G.
Kira-kira bunyinya seperti ini : (bukan array formula)
=SUM(INDEX((
Wassalam,
Kid.
2013/5/23 didit prast <didit_monk@yahoo.
> **
>
>
> dear mr Kid,
>
> ohh tdk cocok menggunakan formula index dan match yaa master,
> G9="SEMUA"
> berarti saya harus mengisikan bagaimana?..
>
> terima kasih
>
> didit
>
>
> ------------
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* BeExcel <belajar-excel@
> *Sent:* Wednesday, 22 May 2013, 23:10
> *Subject:* Re: [belajar-excel] LOOK UP DENGAN KONDISI CAMPURAN
>
>
> Coba pada cell H9 diberi formula :
>
> =SUMPRODUCT(
> (G9="SEMUA&quo
> copy ke bawah
>
> jika regional setting komputer setempat adalah Indonesia, ganti seluruh
> karakter koma dalam formula menjadi karakter titik koma.
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/5/22 didit prast <didit_monk@yahoo.
>
> **
>
> Dear para master,
>
> minta tolong bagaimana mengisi formula bertanda merah.
>
> terima kasih
>
> didit p
>
>
>
>
>
>
Thu May 23, 2013 2:44 am (PDT) . Posted by:
"didit prast" didit_monk
dear mr kid,
Weww, mantab @_@
mau tanya, arti penjabaran dari formula countif apa yaa master? *huruf hijau,
bingung menjabarkan formulanya master, klo diaplikasikan dengan kasus saya.
pertanyaan kedua, apa arti tanda ( & ) dan ( " ), pada formula tersebut
makasy yaa master,
terima kasih
didit
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: BeExcel <belajar-excel@yahoogroups.com >
Sent: Thursday, 23 May 2013, 14:14
Subject: Re: [belajar-excel] LOOK UP DENGAN KONDISI CAMPURAN
hehehe..
Nilai kolom G :
Jika A(1)+C(2) untuk A kondisi 1 ditambah dengan C kondisi 2
Jika SEMUA maka setara dengan A(1)+B(1)+C(2) agar terjadi A kondisi 1 ditambah B kondisi 1 ditambah C kondisi 2.
Jadi nilai G bisa dipilih untuk diisi teks berbunyi SEMUA atau A(1)+B(1)+C(2)
Ketika menggunakan Index Match berarti harus index terhadap array nilai hasil yang sudah dipengaruhi kondisi yang diinginkan oleh kolom G.
Kira-kira bunyinya seperti ini : (bukan array formula)
=SUM(INDEX((COUNTIF(G9,"*"&$N$8:$P$8&"("&$N$7:$P$7&")*")+(G9="SEMUA"))*$N$9:$P$13,MATCH(1,INDEX(($J$9:$J$13=C9)*($K$9:$K$13=D9)*($L$9:$L$13=E9)*($M$9:$M$13=F9),0),0),0))
Wassalam,
Kid.
2013/5/23 didit prast <didit_monk@yahoo.com >
>
>dear mr Kid,
>
>ohh tdk cocok menggunakan formula index dan match yaa master,
>G9="SEMUA", sebenarnya kolom tersebut diisi penjumlahan dari A+B+C.
>berarti saya harus mengisikan bagaimana?...
>
>terima kasih
>
>didit
>
>
>
>
>
>
>________________________________
> From: Mr. Kid <mr.nmkid@gmail.com >
>To: BeExcel <belajar-excel@yahoogroups.com >
>Sent: Wednesday, 22 May 2013, 23:10
>Subject: Re: [belajar-excel] LOOK UP DENGAN KONDISI CAMPURAN
>
>
>
>
>Coba pada cell H9 diberi formula :
>=SUMPRODUCT(($J$9:$J$13=C9)*($K$9:$K$13=D9)*($L$9:$L$13=E9)*($M$9:$M$13=F9)*(COUNTIF(G9,"*"&$N$8:$P$8&"("&$N$7:$P$7&")*")+(G9="SEMUA"))*$N$9:$P$13)
>copy ke bawah
>
>jika regional setting komputer setempat adalah Indonesia, ganti seluruh karakter koma dalam formula menjadi karakter titik koma.
>
>Wassalam,
>Kid.
>
>
>
>
>
>
>
>2013/5/22 didit prast <didit_monk@yahoo.com >
>
>
>>
>>Dear para master,
>>
>>
>>minta tolong bagaimana mengisi formula bertanda merah.
>>
>>
>>terima kasih
>>
>>
>>didit p
>>
>
>
>
Weww, mantab @_@
mau tanya, arti penjabaran dari formula countif apa yaa master? *huruf hijau,
bingung menjabarkan formulanya master, klo diaplikasikan dengan kasus saya.
pertanyaan kedua, apa arti tanda ( & ) dan ( " ), pada formula tersebut
makasy yaa master,
terima kasih
didit
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Thursday, 23 May 2013, 14:14
Subject: Re: [belajar-excel] LOOK UP DENGAN KONDISI CAMPURAN
hehehe..
Nilai kolom G :
Jika A(1)+C(2) untuk A kondisi 1 ditambah dengan C kondisi 2
Jika SEMUA maka setara dengan A(1)+B(1)+C(
Jadi nilai G bisa dipilih untuk diisi teks berbunyi SEMUA atau A(1)+B(1)+C(
Ketika menggunakan Index Match berarti harus index terhadap array nilai hasil yang sudah dipengaruhi kondisi yang diinginkan oleh kolom G.
Kira-kira bunyinya seperti ini : (bukan array formula)
=SUM(INDEX((
Wassalam,
Kid.
2013/5/23 didit prast <didit_monk@yahoo.
>
>dear mr Kid,
>
>ohh tdk cocok menggunakan formula index dan match yaa master,
>G9="
>berarti saya harus mengisikan bagaimana?..
>
>terima kasih
>
>didit
>
>
>
>
>
>
>________
> From: Mr. Kid <mr.nmkid@gmail.
>To: BeExcel <belajar-excel@
>Sent: Wednesday, 22 May 2013, 23:10
>Subject: Re: [belajar-excel] LOOK UP DENGAN KONDISI CAMPURAN
>
>
>
>
>Coba pada cell H9 diberi formula :
>=SUMPRODUCT(
>copy ke bawah
>
>jika regional setting komputer setempat adalah Indonesia, ganti seluruh karakter koma dalam formula menjadi karakter titik koma.
>
>Wassalam,
>Kid.
>
>
>
>
>
>
>
>2013/5/22 didit prast <didit_monk@yahoo.
>
>
>>
>>Dear para master,
>>
>>
>>minta tolong bagaimana mengisi formula bertanda merah.
>>
>>
>>terima kasih
>>
>>
>>didit p
>>
>
>
>
Wed May 22, 2013 11:48 pm (PDT) . Posted by:
"Shenly Ruchman" shenly_excelmania
Terima kasih sekali atas pencerahan paras master..mengenai masalah Vlookup saya
dan 1 lagi pertanyaan saya yang sebelumnya mengenai CTRL + SHIFT , jika ada diantara para master yang mengetahui tolong dibantu lagi penjelasanya
original pesan saya lampirkan juga di bawah ^^
----- Pesan yang Diteruskan -----
Dari: Shenly Ruchman <shenly_excelmania@
Kepada: "belajar-excel@
Dikirim: Selasa, 21 Mei 2013 10:10
Judul: [belajar-excel] ctrl + shift ?????
mau tanya.....ada beberapa gabungan rumus yang harus diakhiri dengan menekan tombol CTRL + SHIFT + ENTER ,
saya masih bingung dengan maksud CTRL + SHIFT itu apa????
mohon penjelasan dari para master... terima kasih ^^
Shenly ^-^
Thu May 23, 2013 12:00 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
CTRL SHIFT ENTER ketika ditekan untuk menggantikan proses menekan ENTER
dalam penulisan formula adalah untuk mengubah formula menjadi array formula.
Coba jalan-jalan ke
sini<http://excel-mr-kid.blogspot.com/2011/03/array-formula-kenalan-yuuuk.html >
.
Wassalam,
Kid.
2013/5/23 Shenly Ruchman <shenly_excelmania@yahoo.co.id >
> **
>
>
>
> Terima kasih sekali atas pencerahan paras master..mengenai masalah Vlookup
> saya
> dan 1 lagi pertanyaan saya yang sebelumnya mengenai CTRL + SHIFT , jika
> ada diantara para master yang mengetahui tolong dibantu lagi penjelasanya
>
> original pesan saya lampirkan juga di bawah ^^
>
>
> ----- Pesan yang Diteruskan -----
> *Dari:* Shenly Ruchman <shenly_excelmania@yahoo.co.id >
> *Kepada:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Dikirim:* Selasa, 21 Mei 2013 10:10
> *Judul:* [belajar-excel] ctrl + shift ?????
>
>
> mau tanya.....ada beberapa gabungan rumus yang harus diakhiri dengan
> menekan tombol CTRL + SHIFT + ENTER ,
> saya masih bingung dengan maksud CTRL + SHIFT itu apa????
> mohon penjelasan dari para master... terima kasih ^^
>
>
> Shenly ^-^
>
>
>
>
dalam penulisan formula adalah untuk mengubah formula menjadi array formula.
Coba jalan-jalan ke
sini<http://excel-
.
Wassalam,
Kid.
2013/5/23 Shenly Ruchman <shenly_excelmania@
> **
>
>
>
> Terima kasih sekali atas pencerahan paras master..mengenai masalah Vlookup
> saya
> dan 1 lagi pertanyaan saya yang sebelumnya mengenai CTRL + SHIFT , jika
> ada diantara para master yang mengetahui tolong dibantu lagi penjelasanya
>
> original pesan saya lampirkan juga di bawah ^^
>
>
> ----- Pesan yang Diteruskan -----
> *Dari:* Shenly Ruchman <shenly_excelmania@
> *Kepada:* "belajar-excel@
> *Dikirim:* Selasa, 21 Mei 2013 10:10
> *Judul:* [belajar-excel] ctrl + shift ?????
>
>
> mau tanya.....ada beberapa gabungan rumus yang harus diakhiri dengan
> menekan tombol CTRL + SHIFT + ENTER ,
> saya masih bingung dengan maksud CTRL + SHIFT itu apa????
> mohon penjelasan dari para master... terima kasih ^^
>
>
> Shenly ^-^
>
>
>
>
Thu May 23, 2013 1:31 am (PDT) . Posted by:
"Shenly Ruchman" shenly_excelmania
terima kasih mr. kid atas penjelasannya ^^
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com >
Kepada: BeExcel <belajar-excel@yahoogroups.com >
Dikirim: Kamis, 23 Mei 2013 14:59
Judul: Re: [belajar-excel] ctrl + shift ?????
CTRL SHIFT ENTER ketika ditekan untuk menggantikan proses menekan ENTER dalam penulisan formula adalah untuk mengubah formula menjadi array formula.
Coba jalan-jalan ke sini.
Wassalam,
Kid.
2013/5/23 Shenly Ruchman <shenly_excelmania@yahoo.co.id >
>
>
>
>Terima kasih sekali atas pencerahan paras master..mengenai masalah Vlookup saya
>dan 1 lagi pertanyaan saya yang sebelumnya mengenai CTRL + SHIFT , jika ada diantara para master yang mengetahui tolong dibantu lagi penjelasanya
>
>
>original pesan saya lampirkan juga di bawah ^^
>
>
>
>
>----- Pesan yang Diteruskan -----
>Dari: Shenly Ruchman <shenly_excelmania@yahoo.co.id >
>Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>Dikirim: Selasa, 21 Mei 2013 10:10
>Judul: [belajar-excel] ctrl + shift ?????
>
>
>
>
>mau tanya.....ada beberapa gabungan rumus yang harus diakhiri dengan menekan tombol CTRL + SHIFT + ENTER ,
>
>saya masih bingung dengan maksud CTRL + SHIFT itu apa????
>mohon penjelasan dari para master... terima kasih ^^
>
>
>
>
>Shenly ^-^
>
>
>
____________
Dari: Mr. Kid <mr.nmkid@gmail.
Kepada: BeExcel <belajar-excel@
Dikirim: Kamis, 23 Mei 2013 14:59
Judul: Re: [belajar-excel] ctrl + shift ?????
CTRL SHIFT ENTER ketika ditekan untuk menggantikan proses menekan ENTER dalam penulisan formula adalah untuk mengubah formula menjadi array formula.
Coba jalan-jalan ke sini.
Wassalam,
Kid.
2013/5/23 Shenly Ruchman <shenly_excelmania@
>
>
>
>Terima kasih sekali atas pencerahan paras master..mengenai masalah Vlookup saya
>dan 1 lagi pertanyaan saya yang sebelumnya mengenai CTRL + SHIFT , jika ada diantara para master yang mengetahui tolong dibantu lagi penjelasanya
>
>
>original pesan saya lampirkan juga di bawah ^^
>
>
>
>
>----- Pesan yang Diteruskan -----
>Dari: Shenly Ruchman <shenly_excelmania@
>Kepada: "belajar-excel@
>Dikirim: Selasa, 21 Mei 2013 10:10
>Judul: [belajar-excel] ctrl + shift ?????
>
>
>
>
>mau tanya.....ada beberapa gabungan rumus yang harus diakhiri dengan menekan tombol CTRL + SHIFT + ENTER ,
>
>saya masih bingung dengan maksud CTRL + SHIFT itu apa????
>mohon penjelasan dari para master... terima kasih ^^
>
>
>
>
>Shenly ^-^
>
>
>
Thu May 23, 2013 2:40 am (PDT) . Posted by:
"Yvonne"
Waktu itu sudah pernah dibahas di milis cara konversi angka ke huruf namun melalui makro.
Kalo boleh, saya minta share contoh formula biasa saja tanpa makro untuk konversi angka ke huruf karena saya kesulitan untuk buka web mencari file email di database milis.
Terima kasih.
----- Original Message -----
From: Haps
To: belajar-excel@yahoogroups.com
Sent: Sunday, December 11, 2011 5:57 AM
Subject: Re: [belajar-excel] Macro Excel Konversi Rupiah dari Angka ke Huruf
Terima kasih links nya,
Sebenarnya tidak perlu jauh-jauh, di milis ini juga sudah sering dibicarakan mengenai
"'TERBILANG" (=istilah untuk "proses mengkonversi ANGKA ke KATA-KATA , MISAL 1
MENJADI "SATU")
File nya pun sebagian besar sudah di 'awetkan' di Link FILES. Tidak di proteksi karena
memang diberikan sebagai pembelajaran
Selain proses penterjemahannya dgn MAKRO (seperti *.XLA yg di tunjuk oleh pak Kuswo)
di milis ini malah sudah sering pula membicarakan * TERBILANG TANPA MAKRO
( = langsung dengan FORMULA, baik dengan ataupun tanpa dibantu Define Name )
* Terbilang dlm Bahasa Inggris
* Terbilang khsus 999,99 (terbilang nilai rapor)
Barangkali pak Kuswo perlu melihat-lihat sebentar, sebagai perbandingan...
http://tech.groups.yahoo.com/group/belajar-excel/files/
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Terbilang-Nilai-untuk-memudahkan-penulisan-Rapor-td4337673.html
dan manyak lagi...
Btw.., file yg kami unduh dari link tunjukan pak Kuswo ternyata VBAProjectnya di LOCKED.
Rupanya si pembuat hanya memberikan alat, bukan termasuk pembelajarannya.
Tetapi setelah dilihat "dengan cara mengintip"nya; kelihatan vba-code (makro)nya hanya
seperti ini (ditayangkan di sini bermaksud sebagai pembelajaran)
'---------- modul standar----------------------
Option Explicit
Dim strHasil As String
Public Function Kwitansi(ByVal nNilai As Currency) As String
Dim Grade As Variant
Dim strTerbilang As String
Dim strPart As String
Dim iGrade As Byte
Grade = Array("Milyar ", "Juta ", "Ribu ", "")
strTerbilang = ""
If Len(CStr(nNilai)) > 12 Then
strTerbilang = "Melewati batas konversi"
Else
strPart = Format(nNilai, String(12, "0"))
For iGrade = 1 To 4
If Val(Mid(strPart, (iGrade - 1) * 3 + 1, 3)) > 0 Then
strHasil = ""
Call GetRatus(Mid(strPart, (iGrade - 1) * 3 + 1, 3), iGrade)
strTerbilang = strTerbilang & strHasil
strTerbilang = strTerbilang & Grade(iGrade - 1)
End If
Next iGrade
End If
Kwitansi = strTerbilang & " Rupiah"
End Function
Sub GetRatus(ByVal strPart As String, ByVal iGrade As Byte)
Dim Angka1 As Variant, Angka2 As Variant
Dim i As Integer
Dim nTemp As Byte
Angka1 = Array("Satu ", "Dua ", "Tiga ", "Empat ", _
"Lima ", "Enam ", "Tujuh ", "Delapan ", "Sembilan ")
Angka2 = Array("Ratus ", "Puluh ", "")
For i = 1 To 3
nTemp = Val(Mid(strPart, i, 1))
If nTemp = 1 Then
If i = 1 Then
strHasil = "Seratus "
ElseIf i = 2 Then
i = i + 1
nTemp = Val(Mid(strPart, i, 1))
If nTemp = 0 Then
strHasil = strHasil & "Sepuluh "
ElseIf nTemp = 1 Then
strHasil = strHasil & "Sebelas "
Else
strHasil = strHasil & Angka1(nTemp - 1) & "Belas "
End If
ElseIf Val(strPart) = 1 And iGrade = 3 Then
strHasil = strHasil & "Se"
Else
strHasil = strHasil & "Satu "
End If
ElseIf nTemp <> 0 Then
strHasil = strHasil + Angka1(nTemp - 1) + Angka2(i - 1)
End If
Next i
End Sub
Public Function KwitansiUcase(ByVal nNilai As Currency)
KwitansiUcase = UCase(Kwitansi(nNilai))
End Function
'----------------------------
Sedikit kesimpulan:
[] Max angka (bilangan) yg dapat diproses = 999 999 999 999 (belum bisa
menangai bilangan ordo trilyun), tidak menterjemhkan bagian pecahan (angka
setelah tanda_pemisah_Desimal)
[] bagian bilangan pecahan dibulatkan ke satuan penuh
[] penyebutan 1000 = ("Seribu") tertulisnya ("SeRibu")
[] karena kata "Rupiah" sudah di hardcoded di vba-code nya maka jika Anda
ingin menterjemahkan: 189765 yang bukan menunjukkan nilai dalam Rupiah
anda akan mengalami sedikit kesulitan
=Substitute(Kwitansi(189765), "Rupiah", "Pikul")
2011/12/10 Udi Kusworo <udikusworo@yahoo.com >
> Bagi yang sering kerjanya berkaitan dengan keuangan dan menggunakan excel, coba baca artikel ini, barangkali bermanfaat.
> http://exceltrik.wordpress.com/2011/12/10/macro-excel-konversi-rupiah-dari-angka-ke-huruf/
Kalo boleh, saya minta share contoh formula biasa saja tanpa makro untuk konversi angka ke huruf karena saya kesulitan untuk buka web mencari file email di database milis.
Terima kasih.
----- Original Message -----
From: Haps
To: belajar-excel@
Sent: Sunday, December 11, 2011 5:57 AM
Subject: Re: [belajar-excel] Macro Excel Konversi Rupiah dari Angka ke Huruf
Terima kasih links nya,
Sebenarnya tidak perlu jauh-jauh, di milis ini juga sudah sering dibicarakan mengenai
"'TERBILAN
MENJADI "SATU"
File nya pun sebagian besar sudah di 'awetkan&#
memang diberikan sebagai pembelajaran
Selain proses penterjemahannya dgn MAKRO (seperti *.XLA yg di tunjuk oleh pak Kuswo)
di milis ini malah sudah sering pula membicarakan * TERBILANG TANPA MAKRO
( = langsung dengan FORMULA, baik dengan ataupun tanpa dibantu Define Name )
* Terbilang dlm Bahasa Inggris
* Terbilang khsus 999,99 (terbilang nilai rapor)
Barangkali pak Kuswo perlu melihat-lihat sebentar, sebagai perbandingan.
http://tech.
http://milis-
dan manyak lagi...
Btw.., file yg kami unduh dari link tunjukan pak Kuswo ternyata VBAProjectnya di LOCKED.
Rupanya si pembuat hanya memberikan alat, bukan termasuk pembelajarannya.
Tetapi setelah dilihat "dengan cara mengintip"
seperti ini (ditayangkan di sini bermaksud sebagai pembelajaran)
'-------
Option Explicit
Dim strHasil As String
Public Function Kwitansi(ByVal nNilai As Currency) As String
Dim Grade As Variant
Dim strTerbilang As String
Dim strPart As String
Dim iGrade As Byte
Grade = Array("
strTerbilang = ""
If Len(CStr(nNilai)
strTerbilang = "Melewati batas konversi"
Else
strPart = Format(nNilai, String(12, "0"
For iGrade = 1 To 4
If Val(Mid(strPart, (iGrade - 1) * 3 + 1, 3)) > 0 Then
strHasil = ""
Call GetRatus(Mid(
strTerbilang = strTerbilang & strHasil
strTerbilang = strTerbilang & Grade(iGrade - 1)
End If
Next iGrade
End If
Kwitansi = strTerbilang & " Rupiah"
End Function
Sub GetRatus(ByVal strPart As String, ByVal iGrade As Byte)
Dim Angka1 As Variant, Angka2 As Variant
Dim i As Integer
Dim nTemp As Byte
Angka1 = Array("
"Lima ", "Enam ", "Tujuh ", "Delapan ", "Sembilan ")
Angka2 = Array("
For i = 1 To 3
nTemp = Val(Mid(strPart, i, 1))
If nTemp = 1 Then
If i = 1 Then
strHasil = "Seratus "
ElseIf i = 2 Then
i = i + 1
nTemp = Val(Mid(strPart, i, 1))
If nTemp = 0 Then
strHasil = strHasil & "Sepuluh "
ElseIf nTemp = 1 Then
strHasil = strHasil & "Sebelas "
Else
strHasil = strHasil & Angka1(nTemp - 1) & "Belas "
End If
ElseIf Val(strPart) = 1 And iGrade = 3 Then
strHasil = strHasil & "Se"
Else
strHasil = strHasil & "Satu "
End If
ElseIf nTemp <> 0 Then
strHasil = strHasil + Angka1(nTemp - 1) + Angka2(i - 1)
End If
Next i
End Sub
Public Function KwitansiUcase(
KwitansiUcase = UCase(Kwitansi(
End Function
'-------
Sedikit kesimpulan:
[] Max angka (bilangan) yg dapat diproses = 999 999 999 999 (belum bisa
menangai bilangan ordo trilyun), tidak menterjemhkan bagian pecahan (angka
setelah tanda_pemisah_
[] bagian bilangan pecahan dibulatkan ke satuan penuh
[] penyebutan 1000 = ("Seribu"
[] karena kata "Rupiah" sudah di hardcoded di vba-code nya maka jika Anda
ingin menterjemahkan: 189765 yang bukan menunjukkan nilai dalam Rupiah
anda akan mengalami sedikit kesulitan
=Substitute(
2011/12/10 Udi Kusworo <udikusworo@yahoo.
> Bagi yang sering kerjanya berkaitan dengan keuangan dan menggunakan excel, coba baca artikel ini, barangkali bermanfaat.
> http://exceltrik.
Thu May 23, 2013 3:35 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba berkunjung ke website milis, dan masuk ke folder files (butuh YahooID)
:
http://tech.groups.yahoo.com/group/belajar-excel/files/
kemudian unduh file bernama :
TerbilangTanpaMakro_1.zip<http://f1.grp.yahoofs.com/v1/XPCdUZmxOAnPHuOcjDshS_3WGm82YuJ7d_i0vkcDLSsSXEqPCMc6kn8Y2LoWw9SfRK3UGr1lFSBYvY1Wh7ogfA/TerbilangTanpaMakro_1.zip >
Wassalam,
Kid.
2013/5/23 Yvonne <yvonne@astridogroup.com >
> **
>
>
> **
> Waktu itu sudah pernah dibahas di milis cara konversi angka ke huruf namun
> melalui makro.
>
> Kalo boleh, saya minta share contoh formula biasa saja tanpa makro untuk
> konversi angka ke huruf karena saya kesulitan untuk buka web mencari file
> email di database milis.
>
> Terima kasih.
>
>
> ----- Original Message -----
> *From:* Haps <hapsari.stlizbeth@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Sunday, December 11, 2011 5:57 AM
> *Subject:* Re: [belajar-excel] Macro Excel Konversi Rupiah dari Angka ke
> Huruf
>
>
>
> Terima kasih links nya,
>
> Sebenarnya tidak perlu jauh-jauh, di milis ini juga sudah sering
> dibicarakan mengenai
> "'TERBILANG" (=istilah untuk "proses mengkonversi ANGKA ke KATA-KATA ,
> MISAL 1
> MENJADI "SATU")
> File nya pun sebagian besar sudah di 'awetkan' di Link FILES. Tidak di
> proteksi karena
> memang diberikan sebagai pembelajaran
>
> Selain proses penterjemahannya dgn MAKRO (seperti *.XLA yg di tunjuk oleh
> pak Kuswo)
> di milis ini malah sudah sering pula membicarakan * *TERBILANG TANPA MAKRO
> *
> ( = langsung dengan FORMULA, baik dengan ataupun tanpa dibantu Define Name
> )
> * Terbilang dlm Bahasa Inggris
> * Terbilang khsus 999,99 (terbilang nilai rapor)
> Barangkali pak Kuswo perlu melihat-lihat sebentar, sebagai perbandingan...
> http://tech.groups.yahoo.com/group/belajar-excel/files/
>
> http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Terbilang-Nilai-untuk-memudahkan-penulisan-Rapor-td4337673.html
> dan manyak lagi...
>
> Btw.., file yg kami unduh dari link tunjukan pak Kuswo ternyata
> VBAProjectnya di LOCKED.
> Rupanya si pembuat hanya memberikan alat, bukan termasuk pembelajarannya.
> Tetapi setelah dilihat "dengan cara mengintip"nya; kelihatan vba-code (
> makro)nya hanya
> seperti ini (ditayangkan di sini bermaksud sebagai pembelajaran)
>
>
>
> '---------- modul standar----------------------
> Option Explicit
> Dim strHasil As String
>
> Public Function Kwitansi(ByVal nNilai As Currency) As String
> Dim Grade As Variant
> Dim strTerbilang As String
> Dim strPart As String
> Dim iGrade As Byte
>
> Grade = Array("Milyar ", "Juta ", "Ribu ", "")
> strTerbilang = ""
>
> If Len(CStr(nNilai)) > 12 Then
> strTerbilang = "Melewati batas konversi"
> Else
> strPart = Format(nNilai, String(12, "0"))
> For iGrade = 1 To 4
> If Val(Mid(strPart, (iGrade - 1) * 3 + 1, 3)) > 0 Then
> strHasil = ""
> Call GetRatus(Mid(strPart, (iGrade - 1) * 3 + 1, 3), iGrade)
> strTerbilang = strTerbilang & strHasil
> strTerbilang = strTerbilang & Grade(iGrade - 1)
> End If
> Next iGrade
> End If
>
> Kwitansi = strTerbilang & " Rupiah"
>
> End Function
>
> Sub GetRatus(ByVal strPart As String, ByVal iGrade As Byte)
> Dim Angka1 As Variant, Angka2 As Variant
> Dim i As Integer
> Dim nTemp As Byte
>
> Angka1 = Array("Satu ", "Dua ", "Tiga ", "Empat ", _
> "Lima ", "Enam ", "Tujuh ", "Delapan ", "Sembilan ")
> Angka2 = Array("Ratus ", "Puluh ", "")
>
> For i = 1 To 3
> nTemp = Val(Mid(strPart, i, 1))
> If nTemp = 1 Then
> If i = 1 Then
> strHasil = "Seratus "
> ElseIf i = 2 Then
> i = i + 1
> nTemp = Val(Mid(strPart, i, 1))
> If nTemp = 0 Then
> strHasil = strHasil & "Sepuluh "
> ElseIf nTemp = 1 Then
> strHasil = strHasil & "Sebelas "
> Else
> strHasil = strHasil & Angka1(nTemp - 1) & "Belas "
> End If
> ElseIf Val(strPart) = 1 And iGrade = 3 Then
> strHasil = strHasil & "Se"
> Else
> strHasil = strHasil & "Satu "
> End If
>
> ElseIf nTemp <> 0 Then
> strHasil = strHasil + Angka1(nTemp - 1) + Angka2(i - 1)
> End If
> Next i
> End Sub
>
> Public Function KwitansiUcase(ByVal nNilai As Currency)
> KwitansiUcase = UCase(Kwitansi(nNilai))
> End Function
> '----------------------------
>
> *Sedikit kesimpulan:*
> [] Max angka (bilangan) yg dapat diproses = 999 999 999 999 (belum bisa
> menangai bilangan ordo trilyun), tidak menterjemhkan bagian pecahan
> (angka
> setelah tanda_pemisah_Desimal)
> [] bagian bilangan pecahan dibulatkan ke satuan penuh
> [] penyebutan 1000 = ("Seribu") tertulisnya ("SeRibu")
> [] karena kata "Rupiah" sudah di hardcoded di vba-code nya maka jika Anda
> ingin menterjemahkan: 189765 yang bukan menunjukkan nilai dalam Rupiah
> anda akan mengalami sedikit kesulitan
> =Substitute(Kwitansi(189765), "Rupiah", "Pikul")
>
>
>
> 2011/12/10 Udi Kusworo <udikusworo@yahoo.com >
> > Bagi yang sering kerjanya berkaitan dengan keuangan dan menggunakan
> excel, coba baca artikel ini, barangkali bermanfaat.
> >
> http://exceltrik.wordpress.com/2011/12/10/macro-excel-konversi-rupiah-dari-angka-ke-huruf/
>
>
>
:
http://tech.
kemudian unduh file bernama :
TerbilangTanpaMakro
Wassalam,
Kid.
2013/5/23 Yvonne <yvonne@astridogroup
> **
>
>
> **
> Waktu itu sudah pernah dibahas di milis cara konversi angka ke huruf namun
> melalui makro.
>
> Kalo boleh, saya minta share contoh formula biasa saja tanpa makro untuk
> konversi angka ke huruf karena saya kesulitan untuk buka web mencari file
> email di database milis.
>
> Terima kasih.
>
>
> ----- Original Message -----
> *From:* Haps <hapsari.stlizbeth@
> *To:* belajar-excel@
> *Sent:* Sunday, December 11, 2011 5:57 AM
> *Subject:* Re: [belajar-excel] Macro Excel Konversi Rupiah dari Angka ke
> Huruf
>
>
>
> Terima kasih links nya,
>
> Sebenarnya tidak perlu jauh-jauh, di milis ini juga sudah sering
> dibicarakan mengenai
> "'TERBILAN
> MISAL 1
> MENJADI "SATU"
> File nya pun sebagian besar sudah di 'awetkan&#
> proteksi karena
> memang diberikan sebagai pembelajaran
>
> Selain proses penterjemahannya dgn MAKRO (seperti *.XLA yg di tunjuk oleh
> pak Kuswo)
> di milis ini malah sudah sering pula membicarakan * *TERBILANG TANPA MAKRO
> *
> ( = langsung dengan FORMULA, baik dengan ataupun tanpa dibantu Define Name
> )
> * Terbilang dlm Bahasa Inggris
> * Terbilang khsus 999,99 (terbilang nilai rapor)
> Barangkali pak Kuswo perlu melihat-lihat sebentar, sebagai perbandingan.
> http://tech.
>
> http://milis-
> dan manyak lagi...
>
> Btw.., file yg kami unduh dari link tunjukan pak Kuswo ternyata
> VBAProjectnya di LOCKED.
> Rupanya si pembuat hanya memberikan alat, bukan termasuk pembelajarannya.
> Tetapi setelah dilihat "dengan cara mengintip"
> makro)nya hanya
> seperti ini (ditayangkan di sini bermaksud sebagai pembelajaran)
>
>
>
> '-------
> Option Explicit
> Dim strHasil As String
>
> Public Function Kwitansi(ByVal nNilai As Currency) As String
> Dim Grade As Variant
> Dim strTerbilang As String
> Dim strPart As String
> Dim iGrade As Byte
>
> Grade = Array("
> strTerbilang = ""
>
> If Len(CStr(nNilai)
> strTerbilang = "Melewati batas konversi"
> Else
> strPart = Format(nNilai, String(12, "0"
> For iGrade = 1 To 4
> If Val(Mid(strPart, (iGrade - 1) * 3 + 1, 3)) > 0 Then
> strHasil = ""
> Call GetRatus(Mid(
> strTerbilang = strTerbilang & strHasil
> strTerbilang = strTerbilang & Grade(iGrade - 1)
> End If
> Next iGrade
> End If
>
> Kwitansi = strTerbilang & " Rupiah"
>
> End Function
>
> Sub GetRatus(ByVal strPart As String, ByVal iGrade As Byte)
> Dim Angka1 As Variant, Angka2 As Variant
> Dim i As Integer
> Dim nTemp As Byte
>
> Angka1 = Array("
> "Lima ", "Enam ", "Tujuh ", "Delapan ", "Sembilan ")
> Angka2 = Array("
>
> For i = 1 To 3
> nTemp = Val(Mid(strPart, i, 1))
> If nTemp = 1 Then
> If i = 1 Then
> strHasil = "Seratus "
> ElseIf i = 2 Then
> i = i + 1
> nTemp = Val(Mid(strPart, i, 1))
> If nTemp = 0 Then
> strHasil = strHasil & "Sepuluh "
> ElseIf nTemp = 1 Then
> strHasil = strHasil & "Sebelas "
> Else
> strHasil = strHasil & Angka1(nTemp - 1) & "Belas "
> End If
> ElseIf Val(strPart) = 1 And iGrade = 3 Then
> strHasil = strHasil & "Se"
> Else
> strHasil = strHasil & "Satu "
> End If
>
> ElseIf nTemp <> 0 Then
> strHasil = strHasil + Angka1(nTemp - 1) + Angka2(i - 1)
> End If
> Next i
> End Sub
>
> Public Function KwitansiUcase(
> KwitansiUcase = UCase(Kwitansi(
> End Function
> '-------
>
> *Sedikit kesimpulan:*
> [] Max angka (bilangan) yg dapat diproses = 999 999 999 999 (belum bisa
> menangai bilangan ordo trilyun), tidak menterjemhkan bagian pecahan
> (angka
> setelah tanda_pemisah_
> [] bagian bilangan pecahan dibulatkan ke satuan penuh
> [] penyebutan 1000 = ("Seribu"
> [] karena kata "Rupiah" sudah di hardcoded di vba-code nya maka jika Anda
> ingin menterjemahkan: 189765 yang bukan menunjukkan nilai dalam Rupiah
> anda akan mengalami sedikit kesulitan
> =Substitute(
>
>
>
> 2011/12/10 Udi Kusworo <udikusworo@yahoo.
> > Bagi yang sering kerjanya berkaitan dengan keuangan dan menggunakan
> excel, coba baca artikel ini, barangkali bermanfaat.
> >
> http://exceltrik.
>
>
>
Thu May 23, 2013 3:05 am (PDT) . Posted by:
"Fachry Ass" p4ch_m4n
Mohon oencerahan dari para suhu master excel. Data terlampir. Terima kasih
atas bantuannya.
atas bantuannya.
Thu May 23, 2013 4:09 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
File terlampir berusaha memanfaatkan arti kata worksheet.
1. Tabel input dibentuk persis sama dengan tabel penyimpanan data di sheet
rekapan.
2. kolom-kolom pembentuk kesamaan persis tersebut diisi dengan formula dan
di hide kolomnya
Selain itu, jika invoice berisi angka saja, maka biarkan tipedatanya adalah
numerik, sehingga bisa disusun penomoran invoice yang otomatis tapi
sederhana formulanya.
Hindari juga penggunaan merge-cell, karena pada kondisi tertentu akan
mempersulit pengolahan dengan VBA atau array formula.
Manfaatkan custom number format untuk membentuk titik dua diakhir label
suatu field inputan.
Tabel target di sheet rekapan dibuat dimulai dari baris 1 (wadah header)
dengan record pertama di baris 2, mulai kolom A
Kolom nomor urut tidaklah terlalu penting, maka sebaiknya dibuang saja.
Kecuali jika setiap item yang disimpan harus memiliki nomor urut tersendiri
untuk memudahkan sorting dalam penampilan (output). Artinya, setiap proses
simpan, nomor urut akan dimulai lagi dari 1.
Wassalamu'alaikum Wr. Wb.
Kid.
2013/5/23 Fachry Ass <p4ch.m4n@gmail.com >
> **
>
>
> Mohon oencerahan dari para suhu master excel. Data terlampir. Terima kasih
> atas bantuannya.
>
>
>
1. Tabel input dibentuk persis sama dengan tabel penyimpanan data di sheet
rekapan.
2. kolom-kolom pembentuk kesamaan persis tersebut diisi dengan formula dan
di hide kolomnya
Selain itu, jika invoice berisi angka saja, maka biarkan tipedatanya adalah
numerik, sehingga bisa disusun penomoran invoice yang otomatis tapi
sederhana formulanya.
Hindari juga penggunaan merge-cell, karena pada kondisi tertentu akan
mempersulit pengolahan dengan VBA atau array formula.
Manfaatkan custom number format untuk membentuk titik dua diakhir label
suatu field inputan.
Tabel target di sheet rekapan dibuat dimulai dari baris 1 (wadah header)
dengan record pertama di baris 2, mulai kolom A
Kolom nomor urut tidaklah terlalu penting, maka sebaiknya dibuang saja.
Kecuali jika setiap item yang disimpan harus memiliki nomor urut tersendiri
untuk memudahkan sorting dalam penampilan (output). Artinya, setiap proses
simpan, nomor urut akan dimulai lagi dari 1.
Wassalamu'
Kid.
2013/5/23 Fachry Ass <p4ch.m4n@gmail.
> **
>
>
> Mohon oencerahan dari para suhu master excel. Data terlampir. Terima kasih
> atas bantuannya.
>
>
>
Thu May 23, 2013 4:16 am (PDT) . Posted by:
"Yvonne"
Maaf Mr. Kid,
kalo boleh saya mnt dikirimkan attachmentnya saja karena saya tidak bisa buka internet di kantor.
Terima kasih.
----- Original Message -----
From: Mr. Kid
To: BeExcel
Sent: Thursday, May 23, 2013 5:34 PM
Subject: Re: [belajar-excel] {Disarmed} Formula Excel Konversi Rupiah dari Angka ke Huruf
Coba berkunjung ke website milis, dan masuk ke folder files (butuh YahooID) :
http://tech.groups.yahoo.com/group/belajar-excel/files/
kemudian unduh file bernama :
TerbilangTanpaMakro_1.zip
Wassalam,
Kid.
2013/5/23 Yvonne <yvonne@astridogroup.com >
Waktu itu sudah pernah dibahas di milis cara konversi angka ke huruf namun melalui makro.
Kalo boleh, saya minta share contoh formula biasa saja tanpa makro untuk konversi angka ke huruf karena saya kesulitan untuk buka web mencari file email di database milis.
Terima kasih.
----- Original Message -----
From: Haps
To: belajar-excel@yahoogroups.com
Sent: Sunday, December 11, 2011 5:57 AM
Subject: Re: [belajar-excel] Macro Excel Konversi Rupiah dari Angka ke Huruf
Terima kasih links nya,
Sebenarnya tidak perlu jauh-jauh, di milis ini juga sudah sering dibicarakan mengenai
"'TERBILANG" (=istilah untuk "proses mengkonversi ANGKA ke KATA-KATA , MISAL 1
MENJADI "SATU")
File nya pun sebagian besar sudah di 'awetkan' di Link FILES. Tidak di proteksi karena
memang diberikan sebagai pembelajaran
Selain proses penterjemahannya dgn MAKRO (seperti *.XLA yg di tunjuk oleh pak Kuswo)
di milis ini malah sudah sering pula membicarakan * TERBILANG TANPA MAKRO
( = langsung dengan FORMULA, baik dengan ataupun tanpa dibantu Define Name )
* Terbilang dlm Bahasa Inggris
* Terbilang khsus 999,99 (terbilang nilai rapor)
Barangkali pak Kuswo perlu melihat-lihat sebentar, sebagai perbandingan...
http://tech.groups.yahoo.com/group/belajar-excel/files/
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Terbilang-Nilai-untuk-memudahkan-penulisan-Rapor-td4337673.html
dan manyak lagi...
Btw.., file yg kami unduh dari link tunjukan pak Kuswo ternyata VBAProjectnya di LOCKED.
Rupanya si pembuat hanya memberikan alat, bukan termasuk pembelajarannya.
Tetapi setelah dilihat "dengan cara mengintip"nya; kelihatan vba-code (makro)nya hanya
seperti ini (ditayangkan di sini bermaksud sebagai pembelajaran)
'---------- modul standar----------------------
Option Explicit
Dim strHasil As String
Public Function Kwitansi(ByVal nNilai As Currency) As String
Dim Grade As Variant
Dim strTerbilang As String
Dim strPart As String
Dim iGrade As Byte
Grade = Array("Milyar ", "Juta ", "Ribu ", "")
strTerbilang = ""
If Len(CStr(nNilai)) > 12 Then
strTerbilang = "Melewati batas konversi"
Else
strPart = Format(nNilai, String(12, "0"))
For iGrade = 1 To 4
If Val(Mid(strPart, (iGrade - 1) * 3 + 1, 3)) > 0 Then
strHasil = ""
Call GetRatus(Mid(strPart, (iGrade - 1) * 3 + 1, 3), iGrade)
strTerbilang = strTerbilang & strHasil
strTerbilang = strTerbilang & Grade(iGrade - 1)
End If
Next iGrade
End If
Kwitansi = strTerbilang & " Rupiah"
End Function
Sub GetRatus(ByVal strPart As String, ByVal iGrade As Byte)
Dim Angka1 As Variant, Angka2 As Variant
Dim i As Integer
Dim nTemp As Byte
Angka1 = Array("Satu ", "Dua ", "Tiga ", "Empat ", _
"Lima ", "Enam ", "Tujuh ", "Delapan ", "Sembilan ")
Angka2 = Array("Ratus ", "Puluh ", "")
For i = 1 To 3
nTemp = Val(Mid(strPart, i, 1))
If nTemp = 1 Then
If i = 1 Then
strHasil = "Seratus "
ElseIf i = 2 Then
i = i + 1
nTemp = Val(Mid(strPart, i, 1))
If nTemp = 0 Then
strHasil = strHasil & "Sepuluh "
ElseIf nTemp = 1 Then
strHasil = strHasil & "Sebelas "
Else
strHasil = strHasil & Angka1(nTemp - 1) & "Belas "
End If
ElseIf Val(strPart) = 1 And iGrade = 3 Then
strHasil = strHasil & "Se"
Else
strHasil = strHasil & "Satu "
End If
ElseIf nTemp <> 0 Then
strHasil = strHasil + Angka1(nTemp - 1) + Angka2(i - 1)
End If
Next i
End Sub
Public Function KwitansiUcase(ByVal nNilai As Currency)
KwitansiUcase = UCase(Kwitansi(nNilai))
End Function
'----------------------------
Sedikit kesimpulan:
[] Max angka (bilangan) yg dapat diproses = 999 999 999 999 (belum bisa
menangai bilangan ordo trilyun), tidak menterjemhkan bagian pecahan (angka
setelah tanda_pemisah_Desimal)
[] bagian bilangan pecahan dibulatkan ke satuan penuh
[] penyebutan 1000 = ("Seribu") tertulisnya ("SeRibu")
[] karena kata "Rupiah" sudah di hardcoded di vba-code nya maka jika Anda
ingin menterjemahkan: 189765 yang bukan menunjukkan nilai dalam Rupiah
anda akan mengalami sedikit kesulitan
=Substitute(Kwitansi(189765), "Rupiah", "Pikul")
2011/12/10 Udi Kusworo <udikusworo@yahoo.com >
> Bagi yang sering kerjanya berkaitan dengan keuangan dan menggunakan excel, coba baca artikel ini, barangkali bermanfaat.
> http://exceltrik.wordpress.com/2011/12/10/macro-excel-konversi-rupiah-dari-angka-ke-huruf/
kalo boleh saya mnt dikirimkan attachmentnya saja karena saya tidak bisa buka internet di kantor.
Terima kasih.
----- Original Message -----
From: Mr. Kid
To: BeExcel
Sent: Thursday, May 23, 2013 5:34 PM
Subject: Re: [belajar-excel] {Disarmed} Formula Excel Konversi Rupiah dari Angka ke Huruf
Coba berkunjung ke website milis, dan masuk ke folder files (butuh YahooID) :
http://tech.
kemudian unduh file bernama :
TerbilangTanpaMakro
Wassalam,
Kid.
2013/5/23 Yvonne <yvonne@astridogroup
Waktu itu sudah pernah dibahas di milis cara konversi angka ke huruf namun melalui makro.
Kalo boleh, saya minta share contoh formula biasa saja tanpa makro untuk konversi angka ke huruf karena saya kesulitan untuk buka web mencari file email di database milis.
Terima kasih.
----- Original Message -----
From: Haps
To: belajar-excel@
Sent: Sunday, December 11, 2011 5:57 AM
Subject: Re: [belajar-excel] Macro Excel Konversi Rupiah dari Angka ke Huruf
Terima kasih links nya,
Sebenarnya tidak perlu jauh-jauh, di milis ini juga sudah sering dibicarakan mengenai
"'TERBILAN
MENJADI "SATU"
File nya pun sebagian besar sudah di 'awetkan&#
memang diberikan sebagai pembelajaran
Selain proses penterjemahannya dgn MAKRO (seperti *.XLA yg di tunjuk oleh pak Kuswo)
di milis ini malah sudah sering pula membicarakan * TERBILANG TANPA MAKRO
( = langsung dengan FORMULA, baik dengan ataupun tanpa dibantu Define Name )
* Terbilang dlm Bahasa Inggris
* Terbilang khsus 999,99 (terbilang nilai rapor)
Barangkali pak Kuswo perlu melihat-lihat sebentar, sebagai perbandingan.
http://tech.
http://milis-
dan manyak lagi...
Btw.., file yg kami unduh dari link tunjukan pak Kuswo ternyata VBAProjectnya di LOCKED.
Rupanya si pembuat hanya memberikan alat, bukan termasuk pembelajarannya.
Tetapi setelah dilihat "dengan cara mengintip"
seperti ini (ditayangkan di sini bermaksud sebagai pembelajaran)
'-------
Option Explicit
Dim strHasil As String
Public Function Kwitansi(ByVal nNilai As Currency) As String
Dim Grade As Variant
Dim strTerbilang As String
Dim strPart As String
Dim iGrade As Byte
Grade = Array("
strTerbilang = ""
If Len(CStr(nNilai)
strTerbilang = "Melewati batas konversi"
Else
strPart = Format(nNilai, String(12, "0"
For iGrade = 1 To 4
If Val(Mid(strPart, (iGrade - 1) * 3 + 1, 3)) > 0 Then
strHasil = ""
Call GetRatus(Mid(
strTerbilang = strTerbilang & strHasil
strTerbilang = strTerbilang & Grade(iGrade - 1)
End If
Next iGrade
End If
Kwitansi = strTerbilang & " Rupiah"
End Function
Sub GetRatus(ByVal strPart As String, ByVal iGrade As Byte)
Dim Angka1 As Variant, Angka2 As Variant
Dim i As Integer
Dim nTemp As Byte
Angka1 = Array("
"Lima ", "Enam ", "Tujuh ", "Delapan ", "Sembilan ")
Angka2 = Array("
For i = 1 To 3
nTemp = Val(Mid(strPart, i, 1))
If nTemp = 1 Then
If i = 1 Then
strHasil = "Seratus "
ElseIf i = 2 Then
i = i + 1
nTemp = Val(Mid(strPart, i, 1))
If nTemp = 0 Then
strHasil = strHasil & "Sepuluh "
ElseIf nTemp = 1 Then
strHasil = strHasil & "Sebelas "
Else
strHasil = strHasil & Angka1(nTemp - 1) & "Belas "
End If
ElseIf Val(strPart) = 1 And iGrade = 3 Then
strHasil = strHasil & "Se"
Else
strHasil = strHasil & "Satu "
End If
ElseIf nTemp <> 0 Then
strHasil = strHasil + Angka1(nTemp - 1) + Angka2(i - 1)
End If
Next i
End Sub
Public Function KwitansiUcase(
KwitansiUcase = UCase(Kwitansi(
End Function
'-------
Sedikit kesimpulan:
[] Max angka (bilangan) yg dapat diproses = 999 999 999 999 (belum bisa
menangai bilangan ordo trilyun), tidak menterjemhkan bagian pecahan (angka
setelah tanda_pemisah_
[] bagian bilangan pecahan dibulatkan ke satuan penuh
[] penyebutan 1000 = ("Seribu"
[] karena kata "Rupiah" sudah di hardcoded di vba-code nya maka jika Anda
ingin menterjemahkan: 189765 yang bukan menunjukkan nilai dalam Rupiah
anda akan mengalami sedikit kesulitan
=Substitute(
2011/12/10 Udi Kusworo <udikusworo@yahoo.
> Bagi yang sering kerjanya berkaitan dengan keuangan dan menggunakan excel, coba baca artikel ini, barangkali bermanfaat.
> http://exceltrik.
Thu May 23, 2013 4:19 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
2013/5/23 Yvonne <yvonne@astridogroup.com >
> **
>
>
> **
> Maaf Mr. Kid,
>
> kalo boleh saya mnt dikirimkan attachmentnya saja karena saya tidak bisa
> buka internet di kantor.
>
> Terima kasih.
>
>
> ----- Original Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* BeExcel <belajar-excel@yahoogroups.com >
> *Sent:* Thursday, May 23, 2013 5:34 PM
> *Subject:* Re: [belajar-excel] {Disarmed} Formula Excel Konversi Rupiah
> dari Angka ke Huruf
>
>
>
> Coba berkunjung ke website milis, dan masuk ke folder files (butuh
> YahooID) :
> http://tech.groups.yahoo.com/group/belajar-excel/files/
> kemudian unduh file bernama :
> TerbilangTanpaMakro_1.zip<http://f1.grp.yahoofs.com/v1/XPCdUZmxOAnPHuOcjDshS_3WGm82YuJ7d_i0vkcDLSsSXEqPCMc6kn8Y2LoWw9SfRK3UGr1lFSBYvY1Wh7ogfA/TerbilangTanpaMakro_1.zip >
>
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/5/23 Yvonne <yvonne@astridogroup.com >
>
>> **
>>
>>
>> **
>> Waktu itu sudah pernah dibahas di milis cara konversi angka ke huruf
>> namun melalui makro.
>>
>> Kalo boleh, saya minta share contoh formula biasa saja tanpa makro untuk
>> konversi angka ke huruf karena saya kesulitan untuk buka web mencari file
>> email di database milis.
>>
>> Terima kasih.
>>
>>
>> ----- Original Message -----
>> *From:* Haps <hapsari.stlizbeth@gmail.com >
>> *To:* belajar-excel@yahoogroups.com
>> *Sent:* Sunday, December 11, 2011 5:57 AM
>> *Subject:* Re: [belajar-excel] Macro Excel Konversi Rupiah dari Angka ke
>> Huruf
>>
>>
>>
>> Terima kasih links nya,
>>
>> Sebenarnya tidak perlu jauh-jauh, di milis ini juga sudah sering
>> dibicarakan mengenai
>> "'TERBILANG" (=istilah untuk "proses mengkonversi ANGKA ke KATA-KATA ,
>> MISAL 1
>> MENJADI "SATU")
>> File nya pun sebagian besar sudah di 'awetkan' di Link FILES. Tidak di
>> proteksi karena
>> memang diberikan sebagai pembelajaran
>>
>> Selain proses penterjemahannya dgn MAKRO (seperti *.XLA yg di tunjuk oleh
>> pak Kuswo)
>> di milis ini malah sudah sering pula membicarakan * *TERBILANG TANPA
>> MAKRO*
>> ( = langsung dengan FORMULA, baik dengan ataupun tanpa dibantu Define
>> Name )
>> * Terbilang dlm Bahasa Inggris
>> * Terbilang khsus 999,99 (terbilang nilai rapor)
>> Barangkali pak Kuswo perlu melihat-lihat sebentar, sebagai perbandingan...
>> http://tech.groups.yahoo.com/group/belajar-excel/files/
>>
>> http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Terbilang-Nilai-untuk-memudahkan-penulisan-Rapor-td4337673.html
>> dan manyak lagi...
>>
>> Btw.., file yg kami unduh dari link tunjukan pak Kuswo ternyata
>> VBAProjectnya di LOCKED.
>> Rupanya si pembuat hanya memberikan alat, bukan termasuk pembelajarannya.
>> Tetapi setelah dilihat "dengan cara mengintip"nya; kelihatan vba-code (
>> makro)nya hanya
>> seperti ini (ditayangkan di sini bermaksud sebagai pembelajaran)
>>
>>
>>
>> '---------- modul standar----------------------
>> Option Explicit
>> Dim strHasil As String
>>
>> Public Function Kwitansi(ByVal nNilai As Currency) As String
>> Dim Grade As Variant
>> Dim strTerbilang As String
>> Dim strPart As String
>> Dim iGrade As Byte
>>
>> Grade = Array("Milyar ", "Juta ", "Ribu ", "")
>> strTerbilang = ""
>>
>> If Len(CStr(nNilai)) > 12 Then
>> strTerbilang = "Melewati batas konversi"
>> Else
>> strPart = Format(nNilai, String(12, "0"))
>> For iGrade = 1 To 4
>> If Val(Mid(strPart, (iGrade - 1) * 3 + 1, 3)) > 0 Then
>> strHasil = ""
>> Call GetRatus(Mid(strPart, (iGrade - 1) * 3 + 1, 3), iGrade)
>> strTerbilang = strTerbilang & strHasil
>> strTerbilang = strTerbilang & Grade(iGrade - 1)
>> End If
>> Next iGrade
>> End If
>>
>> Kwitansi = strTerbilang & " Rupiah"
>>
>> End Function
>>
>> Sub GetRatus(ByVal strPart As String, ByVal iGrade As Byte)
>> Dim Angka1 As Variant, Angka2 As Variant
>> Dim i As Integer
>> Dim nTemp As Byte
>>
>> Angka1 = Array("Satu ", "Dua ", "Tiga ", "Empat ", _
>> "Lima ", "Enam ", "Tujuh ", "Delapan ", "Sembilan ")
>> Angka2 = Array("Ratus ", "Puluh ", "")
>>
>> For i = 1 To 3
>> nTemp = Val(Mid(strPart, i, 1))
>> If nTemp = 1 Then
>> If i = 1 Then
>> strHasil = "Seratus "
>> ElseIf i = 2 Then
>> i = i + 1
>> nTemp = Val(Mid(strPart, i, 1))
>> If nTemp = 0 Then
>> strHasil = strHasil & "Sepuluh "
>> ElseIf nTemp = 1 Then
>> strHasil = strHasil & "Sebelas "
>> Else
>> strHasil = strHasil & Angka1(nTemp - 1) & "Belas "
>> End If
>> ElseIf Val(strPart) = 1 And iGrade = 3 Then
>> strHasil = strHasil & "Se"
>> Else
>> strHasil = strHasil & "Satu "
>> End If
>>
>> ElseIf nTemp <> 0 Then
>> strHasil = strHasil + Angka1(nTemp - 1) + Angka2(i - 1)
>> End If
>> Next i
>> End Sub
>>
>> Public Function KwitansiUcase(ByVal nNilai As Currency)
>> KwitansiUcase = UCase(Kwitansi(nNilai))
>> End Function
>> '----------------------------
>>
>> *Sedikit kesimpulan:*
>> [] Max angka (bilangan) yg dapat diproses = 999 999 999 999 (belum bisa
>> menangai bilangan ordo trilyun), tidak menterjemhkan bagian pecahan
>> (angka
>> setelah tanda_pemisah_Desimal)
>> [] bagian bilangan pecahan dibulatkan ke satuan penuh
>> [] penyebutan 1000 = ("Seribu") tertulisnya ("SeRibu")
>> [] karena kata "Rupiah" sudah di hardcoded di vba-code nya maka jika Anda
>> ingin menterjemahkan: 189765 yang bukan menunjukkan nilai dalam Rupiah
>> anda akan mengalami sedikit kesulitan
>> =Substitute(Kwitansi(189765), "Rupiah", "Pikul")
>>
>>
>>
>> 2011/12/10 Udi Kusworo <udikusworo@yahoo.com >
>> > Bagi yang sering kerjanya berkaitan dengan keuangan dan menggunakan
>> excel, coba baca artikel ini, barangkali bermanfaat.
>> >
>> http://exceltrik.wordpress.com/2011/12/10/macro-excel-konversi-rupiah-dari-angka-ke-huruf/
>>
>>
>
>
> **
>
>
> **
> Maaf Mr. Kid,
>
> kalo boleh saya mnt dikirimkan attachmentnya saja karena saya tidak bisa
> buka internet di kantor.
>
> Terima kasih.
>
>
> ----- Original Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* BeExcel <belajar-excel@
> *Sent:* Thursday, May 23, 2013 5:34 PM
> *Subject:* Re: [belajar-excel] {Disarmed} Formula Excel Konversi Rupiah
> dari Angka ke Huruf
>
>
>
> Coba berkunjung ke website milis, dan masuk ke folder files (butuh
> YahooID) :
> http://tech.
> kemudian unduh file bernama :
> TerbilangTanpaMakro
>
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/5/23 Yvonne <yvonne@astridogroup
>
>> **
>>
>>
>> **
>> Waktu itu sudah pernah dibahas di milis cara konversi angka ke huruf
>> namun melalui makro.
>>
>> Kalo boleh, saya minta share contoh formula biasa saja tanpa makro untuk
>> konversi angka ke huruf karena saya kesulitan untuk buka web mencari file
>> email di database milis.
>>
>> Terima kasih.
>>
>>
>> ----- Original Message -----
>> *From:* Haps <hapsari.stlizbeth@
>> *To:* belajar-excel@
>> *Sent:* Sunday, December 11, 2011 5:57 AM
>> *Subject:* Re: [belajar-excel] Macro Excel Konversi Rupiah dari Angka ke
>> Huruf
>>
>>
>>
>> Terima kasih links nya,
>>
>> Sebenarnya tidak perlu jauh-jauh, di milis ini juga sudah sering
>> dibicarakan mengenai
>> "'TERBILAN
>> MISAL 1
>> MENJADI "SATU"
>> File nya pun sebagian besar sudah di 'awetkan&#
>> proteksi karena
>> memang diberikan sebagai pembelajaran
>>
>> Selain proses penterjemahannya dgn MAKRO (seperti *.XLA yg di tunjuk oleh
>> pak Kuswo)
>> di milis ini malah sudah sering pula membicarakan * *TERBILANG TANPA
>> MAKRO*
>> ( = langsung dengan FORMULA, baik dengan ataupun tanpa dibantu Define
>> Name )
>> * Terbilang dlm Bahasa Inggris
>> * Terbilang khsus 999,99 (terbilang nilai rapor)
>> Barangkali pak Kuswo perlu melihat-lihat sebentar, sebagai perbandingan.
>> http://tech.
>>
>> http://milis-
>> dan manyak lagi...
>>
>> Btw.., file yg kami unduh dari link tunjukan pak Kuswo ternyata
>> VBAProjectnya di LOCKED.
>> Rupanya si pembuat hanya memberikan alat, bukan termasuk pembelajarannya.
>> Tetapi setelah dilihat "dengan cara mengintip"
>> makro)nya hanya
>> seperti ini (ditayangkan di sini bermaksud sebagai pembelajaran)
>>
>>
>>
>> '-------
>> Option Explicit
>> Dim strHasil As String
>>
>> Public Function Kwitansi(ByVal nNilai As Currency) As String
>> Dim Grade As Variant
>> Dim strTerbilang As String
>> Dim strPart As String
>> Dim iGrade As Byte
>>
>> Grade = Array("
>> strTerbilang = ""
>>
>> If Len(CStr(nNilai)
>> strTerbilang = "Melewati batas konversi"
>> Else
>> strPart = Format(nNilai, String(12, "0"
>> For iGrade = 1 To 4
>> If Val(Mid(strPart, (iGrade - 1) * 3 + 1, 3)) > 0 Then
>> strHasil = ""
>> Call GetRatus(Mid(
>> strTerbilang = strTerbilang & strHasil
>> strTerbilang = strTerbilang & Grade(iGrade - 1)
>> End If
>> Next iGrade
>> End If
>>
>> Kwitansi = strTerbilang & " Rupiah"
>>
>> End Function
>>
>> Sub GetRatus(ByVal strPart As String, ByVal iGrade As Byte)
>> Dim Angka1 As Variant, Angka2 As Variant
>> Dim i As Integer
>> Dim nTemp As Byte
>>
>> Angka1 = Array("
>> "Lima ", "Enam ", "Tujuh ", "Delapan ", "Sembilan ")
>> Angka2 = Array("
>>
>> For i = 1 To 3
>> nTemp = Val(Mid(strPart, i, 1))
>> If nTemp = 1 Then
>> If i = 1 Then
>> strHasil = "Seratus "
>> ElseIf i = 2 Then
>> i = i + 1
>> nTemp = Val(Mid(strPart, i, 1))
>> If nTemp = 0 Then
>> strHasil = strHasil & "Sepuluh "
>> ElseIf nTemp = 1 Then
>> strHasil = strHasil & "Sebelas "
>> Else
>> strHasil = strHasil & Angka1(nTemp - 1) & "Belas "
>> End If
>> ElseIf Val(strPart) = 1 And iGrade = 3 Then
>> strHasil = strHasil & "Se"
>> Else
>> strHasil = strHasil & "Satu "
>> End If
>>
>> ElseIf nTemp <> 0 Then
>> strHasil = strHasil + Angka1(nTemp - 1) + Angka2(i - 1)
>> End If
>> Next i
>> End Sub
>>
>> Public Function KwitansiUcase(
>> KwitansiUcase = UCase(Kwitansi(
>> End Function
>> '-------
>>
>> *Sedikit kesimpulan:*
>> [] Max angka (bilangan) yg dapat diproses = 999 999 999 999 (belum bisa
>> menangai bilangan ordo trilyun), tidak menterjemhkan bagian pecahan
>> (angka
>> setelah tanda_pemisah_
>> [] bagian bilangan pecahan dibulatkan ke satuan penuh
>> [] penyebutan 1000 = ("Seribu"
>> [] karena kata "Rupiah" sudah di hardcoded di vba-code nya maka jika Anda
>> ingin menterjemahkan: 189765 yang bukan menunjukkan nilai dalam Rupiah
>> anda akan mengalami sedikit kesulitan
>> =Substitute(
>>
>>
>>
>> 2011/12/10 Udi Kusworo <udikusworo@yahoo.
>> > Bagi yang sering kerjanya berkaitan dengan keuangan dan menggunakan
>> excel, coba baca artikel ini, barangkali bermanfaat.
>> >
>> http://exceltrik.
>>
>>
>
>
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
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar