15 New Messages
Digest #2539
Messages
Mon Sep 16, 2013 10:26 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Mr Kid semakin laju dengan kuliah VBAnya.
Sekedar usul, bagaimana kalau Master yang lain bisa memberikan tips mengenai dasar2 dan penerapan "mega formula" agar ilmu kita lebih komplit ?
Salam,
HK
________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Tuesday, 17 September 2013, 10:57
Subject: [belajar-excel] BelajarVBA : UsedRange, Intersect, Union
Dear BeExceller,
Mengenal properti UsedRange yuk.
Coretannya disini ya.
Wassalam,
Kid.
Sekedar usul, bagaimana kalau Master yang lain bisa memberikan tips mengenai dasar2 dan penerapan "mega formula" agar ilmu kita lebih komplit ?
Salam,
HK
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Tuesday, 17 September 2013, 10:57
Subject: [belajar-excel] BelajarVBA : UsedRange, Intersect, Union
Dear BeExceller,
Mengenal properti UsedRange yuk.
Coretannya disini ya.
Wassalam,
Kid.
Mon Sep 16, 2013 11:28 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pak Hendrik ndak mau mencoba ?
Konsep dasarnya adalah substitusi formula kedalam formula lain.
Coba deh.
Moga-moga Pak Anton dan mas Dwint bisa urun formula.
Wassalam,
Kid.
2013/9/17 hendrik karnadi <hendrikkarnadi@yahoo.com>
> **
>
>
> Mr Kid semakin laju dengan kuliah VBAnya.
>
> Sekedar usul, bagaimana kalau Master yang lain bisa memberikan tips
> mengenai dasar2 dan penerapan "mega formula" agar ilmu kita lebih komplit ?
>
> Salam,
> HK
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Sent:* Tuesday, 17 September 2013, 10:57
> *Subject:* [belajar-excel] BelajarVBA : UsedRange, Intersect, Union
>
>
> Dear BeExceller,
>
> Mengenal properti UsedRange yuk.
> Coretannya disini<http://b-excel.blogspot.com/2013/09/belajarvba-011-range-03.html>ya.
>
> Wassalam,
> Kid.
>
>
>
>
>
Konsep dasarnya adalah substitusi formula kedalam formula lain.
Coba deh.
Moga-moga Pak Anton dan mas Dwint bisa urun formula.
Wassalam,
Kid.
2013/9/17 hendrik karnadi <hendrikkarnadi@
> **
>
>
> Mr Kid semakin laju dengan kuliah VBAnya.
>
> Sekedar usul, bagaimana kalau Master yang lain bisa memberikan tips
> mengenai dasar2 dan penerapan "mega formula" agar ilmu kita lebih komplit ?
>
> Salam,
> HK
>
> ------------
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* BeExcel <belajar-excel@
> *Sent:* Tuesday, 17 September 2013, 10:57
> *Subject:* [belajar-excel] BelajarVBA : UsedRange, Intersect, Union
>
>
> Dear BeExceller,
>
> Mengenal properti UsedRange yuk.
> Coretannya disini<http://b-excel.
>
> Wassalam,
> Kid.
>
>
>
>
>
Mon Sep 16, 2013 11:11 pm (PDT) . Posted by:
"Mulki" mulki_akbar
Pak Bagus,
Terimakasih atas pencerahannya.
Wassalam,
Mulki
----- Original Message -----
From: Bagus
To: belajar-excel@yahoogroups.com
Sent: Tuesday, September 17, 2013 10:46 AM
Subject: Re: [belajar-excel] Mencari GW, NW, M3
Pak Mulki;
-1 Itu untuk mengambil data sebelum tanda kurun buka "("
=LEFT(SUBSTITUTE(B2," ",""),FIND("(",SUBSTITUTE(B2," ",""),1)-1)
bandingkan dengan ini
=LEFT(SUBSTITUTE(B2," ",""),FIND("(",SUBSTITUTE(B2," ",""),1))
maka akan tau bedanya..
Wassalam
~ Bagus ~
----- Original Message -----
From: Mulki
To: belajar-excel@yahoogroups.com
Sent: Tuesday, September 17, 2013 10:19 AM
Subject: Re: [belajar-excel] Mencari GW, NW, M3
Pak Bagus, terimakasih atas pencerahannya.
Mohon pencerahan penggunaan (-1) itu utk apa ya ?
Wassalam,
Mulki
----- Original Message -----
From: Bagus
To: belajar-excel@yahoogroups.com
Sent: Tuesday, September 17, 2013 9:53 AM
Subject: Re: [belajar-excel] Mencari GW, NW, M3 [1 Attachment]
Wa'alaykum salam warohmatullohi wabarokatuhu..
Pak Mulki;
File terlampir semoga sesuai harapan
Wassalam
~ Bagus ~
----- Original Message -----
From: Mulki
To: belajar-excel@yahoogroups.com
Sent: Monday, September 16, 2013 4:23 PM
Subject: [belajar-excel] Mencari GW, NW, M3 [1 Attachment]
Assalamu'alaikum Wr. Wb.,
Selamat pagi menjelang sore sobat2 B-XLers.
Mohon pencerahannya pada kasus saya dlm lampiran berikut ini.
Saya memiliki Sumber Data yg berisi Gross Weight (GW), Net Weight (NW) & Measurement (M3) pada sheet source data.
Data tersbt ingin saya masukan ke sheet List Data dg Type yg sama yg ada pada source data.
Yg jadi persoalan adalah, Type pada sheet source data dan List Data formatnya tidak selalu sama.
Contoh :
source data :
NS40
List Data
NS 40 (7 PLATES)
Kedua type tersbt maksudnya sama.
Mohon pencerahan para sobat dan guru2 disini utk mengisi data pada kolom yg dimaksud pada sheet List Data.
Note : Jumlah karakter dari Type tersbt tidak selalu seperti yg di contohkan, karna ada yg kurang bahkan ada yg lebih banyak.
Terimakasih atas waktu dan pencerahannya.
Wassalam,
Mulki
Terimakasih atas pencerahannya.
Wassalam,
Mulki
----- Original Message -----
From: Bagus
To: belajar-excel@
Sent: Tuesday, September 17, 2013 10:46 AM
Subject: Re: [belajar-excel] Mencari GW, NW, M3
Pak Mulki;
-1 Itu untuk mengambil data sebelum tanda kurun buka "("
=LEFT(SUBSTITUTE(
bandingkan dengan ini
=LEFT(SUBSTITUTE(
maka akan tau bedanya..
Wassalam
~ Bagus ~
----- Original Message -----
From: Mulki
To: belajar-excel@
Sent: Tuesday, September 17, 2013 10:19 AM
Subject: Re: [belajar-excel] Mencari GW, NW, M3
Pak Bagus, terimakasih atas pencerahannya.
Mohon pencerahan penggunaan (-1) itu utk apa ya ?
Wassalam,
Mulki
----- Original Message -----
From: Bagus
To: belajar-excel@
Sent: Tuesday, September 17, 2013 9:53 AM
Subject: Re: [belajar-excel] Mencari GW, NW, M3 [1 Attachment]
Wa'alaykum salam warohmatullohi wabarokatuhu.
Pak Mulki;
File terlampir semoga sesuai harapan
Wassalam
~ Bagus ~
----- Original Message -----
From: Mulki
To: belajar-excel@
Sent: Monday, September 16, 2013 4:23 PM
Subject: [belajar-excel] Mencari GW, NW, M3 [1 Attachment]
Assalamu'
Selamat pagi menjelang sore sobat2 B-XLers.
Mohon pencerahannya pada kasus saya dlm lampiran berikut ini.
Saya memiliki Sumber Data yg berisi Gross Weight (GW), Net Weight (NW) & Measurement (M3) pada sheet source data.
Data tersbt ingin saya masukan ke sheet List Data dg Type yg sama yg ada pada source data.
Yg jadi persoalan adalah, Type pada sheet source data dan List Data formatnya tidak selalu sama.
Contoh :
source data :
NS40
List Data
NS 40 (7 PLATES)
Kedua type tersbt maksudnya sama.
Mohon pencerahan para sobat dan guru2 disini utk mengisi data pada kolom yg dimaksud pada sheet List Data.
Note : Jumlah karakter dari Type tersbt tidak selalu seperti yg di contohkan, karna ada yg kurang bahkan ada yg lebih banyak.
Terimakasih atas waktu dan pencerahannya.
Wassalam,
Mulki
Mon Sep 16, 2013 11:36 pm (PDT) . Posted by:
"Bagus" bagus4bls
Pak Tjahya;
File terlampir adalah modifikasi dari file yg sudah ada.
Sila pilih gurunya pada cell J7
Semoga sesuai harapan
Wassalam
~ Bagus ~
----- Original Message -----
From: Tjahya Hartono
To: belajar-excel@yahoogroups.com
Sent: Tuesday, September 17, 2013 10:06 AM
Subject: [belajar-excel] Re-Memindahkan data: (Q):Bagaimana bila option dalam filteringnya bertambah? [1 Attachment]
Salam Mr Kid,
Saya kembali mau menanyakan perihal topik Memindahkan Data yg saya posting kemarin, sebenarnya sih saya sudah sangat puas dengan hasilnya.
Tetapi saya lupa bahwa dalam fatktanya datanya lebih banyak (sekarang aja udah sampe 3800-an row nya ) dan variatif (disebabkan data berganti bulan dan yang saya tanyakan kali ini guru yang bertambah/lebih dari satu).
Mungkin yang jadi pertanyaan saya kali ini: Didalam tabel saya, saya tdk menyediakan columns untuk guru, karena laporan saya buat per sheet untuk masing-masing gurunya, menurut Mr Kid apa perlu saya mencantumkannya pada tiap2 laporan. Karena saya kesulitan dalam mengaplikasikan filteringnya dengan jumlah guru yang lebih dari 1. Sebagai bahannya saya sertakan yang file MR KID sudah selesaikan.
Hormat saya,
Tjahya H
File terlampir adalah modifikasi dari file yg sudah ada.
Sila pilih gurunya pada cell J7
Semoga sesuai harapan
Wassalam
~ Bagus ~
----- Original Message -----
From: Tjahya Hartono
To: belajar-excel@
Sent: Tuesday, September 17, 2013 10:06 AM
Subject: [belajar-excel] Re-Memindahkan data: (Q):Bagaimana bila option dalam filteringnya bertambah? [1 Attachment]
Salam Mr Kid,
Saya kembali mau menanyakan perihal topik Memindahkan Data yg saya posting kemarin, sebenarnya sih saya sudah sangat puas dengan hasilnya.
Tetapi saya lupa bahwa dalam fatktanya datanya lebih banyak (sekarang aja udah sampe 3800-an row nya ) dan variatif (disebabkan data berganti bulan dan yang saya tanyakan kali ini guru yang bertambah/lebih dari satu).
Mungkin yang jadi pertanyaan saya kali ini: Didalam tabel saya, saya tdk menyediakan columns untuk guru, karena laporan saya buat per sheet untuk masing-masing gurunya, menurut Mr Kid apa perlu saya mencantumkannya pada tiap2 laporan. Karena saya kesulitan dalam mengaplikasikan filteringnya dengan jumlah guru yang lebih dari 1. Sebagai bahannya saya sertakan yang file MR KID sudah selesaikan.
Hormat saya,
Tjahya H
Mon Sep 16, 2013 11:56 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Dear Be-Excellers,
Dalam menulis macro (VBA) sering kita menemukan masalah yang kelihatannya sederhana namun tidak dapat kita pecahkan.
Dalam penulisan script, selain masalah teknis penulisan, urutan penulisannya juga memegang peranan yang sangat penting.
Sekedar uji coba, bagaimana pengaruh urutan penulisan script terhadap hasil, terlampir adalah prosedur For Each yang dikombinasikan dengan Instr untuk mencari Unique values.
Ini adalah sebagai bahan renungan untuk meningkatkan semangat kita belajar macro.
Salam,
HK
Dalam menulis macro (VBA) sering kita menemukan masalah yang kelihatannya sederhana namun tidak dapat kita pecahkan.
Dalam penulisan script, selain masalah teknis penulisan, urutan penulisannya juga memegang peranan yang sangat penting.
Sekedar uji coba, bagaimana pengaruh urutan penulisan script terhadap hasil, terlampir adalah prosedur For Each yang dikombinasikan dengan Instr untuk mencari Unique values.
Ini adalah sebagai bahan renungan untuk meningkatkan semangat kita belajar macro.
Salam,
HK
Tue Sep 17, 2013 12:49 am (PDT) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
iseng mencoba menggunakan range.removeduplicates
Sub IkutanTest()
Dim rng As Range
Set rng = Range([A1], [A1].End(xlDown))
rng.RemoveDuplicates Columns:=1
End Sub
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: Tuesday, September 17, 2013 1:57 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Mencari Unique Values [1 Attachment]
Dear Be-Excellers,
Dalam menulis macro (VBA) sering kita menemukan masalah yang kelihatannya sederhana namun tidak dapat kita pecahkan.
Dalam penulisan script, selain masalah teknis penulisan, urutan penulisannya juga memegang peranan yang sangat penting.
Sekedar uji coba, bagaimana pengaruh urutan penulisan script terhadap hasil, terlampir adalah prosedur For Each yang dikombinasikan dengan Instr untuk mencari Unique values.
Ini adalah sebagai bahan renungan untuk meningkatkan semangat kita belajar macro.
Salam,
HK
Sub IkutanTest()
Dim rng As Range
Set rng = Range([A1], [A1].End(xlDown)
rng.RemoveDuplicate
End Sub
From: belajar-excel@
Sent: Tuesday, September 17, 2013 1:57 PM
To: belajar-excel@
Subject: [belajar-excel] Mencari Unique Values [1 Attachment]
Dear Be-Excellers,
Dalam menulis macro (VBA) sering kita menemukan masalah yang kelihatannya sederhana namun tidak dapat kita pecahkan.
Dalam penulisan script, selain masalah teknis penulisan, urutan penulisannya juga memegang peranan yang sangat penting.
Sekedar uji coba, bagaimana pengaruh urutan penulisan script terhadap hasil, terlampir adalah prosedur For Each yang dikombinasikan dengan Instr untuk mencari Unique values.
Ini adalah sebagai bahan renungan untuk meningkatkan semangat kita belajar macro.
Salam,
HK
Tue Sep 17, 2013 1:23 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Unique Valuenya sdh tambah satu (terlampir).
Kolom A saya ganti dengan E dan yang ditampilkan adalah hasilnya
Siapa menyusul ?
Salam,
HK
________________________________
From: zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 17 September 2013, 14:49
Subject: RE: [belajar-excel] Mencari Unique Values
iseng mencoba menggunakan range.removeduplicates
Sub IkutanTest()
Dim rng As Range
Set rng = Range([A1], [A1].End(xlDown))
rng.RemoveDuplicates Columns:=1
End Sub
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: Tuesday, September 17, 2013 1:57 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Mencari Unique Values [1 Attachment]
Dear Be-Excellers,
Dalam menulis macro (VBA) sering kita menemukan masalah yang kelihatannya sederhana namun tidak dapat kita pecahkan.
Dalam penulisan script, selain masalah teknis penulisan, urutan penulisannya juga memegang peranan yang sangat penting.
Sekedar uji coba, bagaimana pengaruh urutan penulisan script terhadap hasil, terlampir adalah prosedur For Each yang dikombinasikan dengan Instr untuk mencari Unique values.
Ini adalah sebagai bahan renungan untuk meningkatkan semangat kita belajar macro.
Salam,
HK
Kolom A saya ganti dengan E dan yang ditampilkan adalah hasilnya
Siapa menyusul ?
Salam,
HK
____________
From: zainul_ulum[
To: belajar-excel@
Sent: Tuesday, 17 September 2013, 14:49
Subject: RE: [belajar-excel] Mencari Unique Values
iseng mencoba menggunakan range.removeduplica
Sub IkutanTest()
Dim rng As Range
Set rng = Range([A1], [A1].End(xlDown)
rng.RemoveDuplicate
End Sub
From: belajar-excel@
Sent: Tuesday, September 17, 2013 1:57 PM
To: belajar-excel@
Subject: [belajar-excel] Mencari Unique Values [1 Attachment]
Dear Be-Excellers,
Dalam menulis macro (VBA) sering kita menemukan masalah yang kelihatannya sederhana namun tidak dapat kita pecahkan.
Dalam penulisan script, selain masalah teknis penulisan, urutan penulisannya juga memegang peranan yang sangat penting.
Sekedar uji coba, bagaimana pengaruh urutan penulisan script terhadap hasil, terlampir adalah prosedur For Each yang dikombinasikan dengan Instr untuk mencari Unique values.
Ini adalah sebagai bahan renungan untuk meningkatkan semangat kita belajar macro.
Salam,
HK
Tue Sep 17, 2013 12:40 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Dear BeExceller,
Jumlah pageviews di dashboard blog milis http://b-excel.blogspot.com/ untuk
materi BelajarVBA sudah banyak yang di-klik.
Kenapa kok ndak ada yang buka thread tentang kebingungan dalam membaca
materi BelajarVBA yang masuk milis ya...
mbok yao buka topik tentang kebingungan yang menimpa dalam membaca artikel
BelajarVBA-nya dimilis.
Banyak BeExceller yang bersedia menjelaskan tentang VBA kok. Mumpung masih
materi dasar VBA. Begitu paham beneran yang dasaran tersebut, nanti yang
lebih rumit bisa dengan mudah dipahami walaupun otodidak entah darimana.
Buat yang sudah pada canggih VBA-nya, jangan bosen untuk ngoreksi ya.
Kalau cekrip-nya kelihatan gak epektip dan gak singkat, harap maklum ya...
Soale Kid lagi belajar VBA, tapi emang bisanya ya segitu juga. Namanya juga
belajaran ya....
lagipula, mumpung banyak temen BeExceller yang pengen belajar VBA, jadi
bisa sekalian belajar bersama dan saling berbagi...
OK guys, ditunggu loh topik milis tentang kebingungan yang ditemui saat
baca artikel belajar VBA ya...
Oh iya...
Sorry, artikelnya belum membahas tentang cara record macro. Soale masih
pake metode lama, dari bangun pondasi baru bangun temboknya. Kid ndak bisa
kalo bangun tembok lalu gali tanah untuk pasang ceker ayam nya. Jadinya
pelan banget deh majunya. Jadi kasihan sama yang dah gak sabaran.
Regards,
Kid.
Jumlah pageviews di dashboard blog milis http://b-excel.
materi BelajarVBA sudah banyak yang di-klik.
Kenapa kok ndak ada yang buka thread tentang kebingungan dalam membaca
materi BelajarVBA yang masuk milis ya...
mbok yao buka topik tentang kebingungan yang menimpa dalam membaca artikel
BelajarVBA-nya dimilis.
Banyak BeExceller yang bersedia menjelaskan tentang VBA kok. Mumpung masih
materi dasar VBA. Begitu paham beneran yang dasaran tersebut, nanti yang
lebih rumit bisa dengan mudah dipahami walaupun otodidak entah darimana.
Buat yang sudah pada canggih VBA-nya, jangan bosen untuk ngoreksi ya.
Kalau cekrip-nya kelihatan gak epektip dan gak singkat, harap maklum ya...
Soale Kid lagi belajar VBA, tapi emang bisanya ya segitu juga. Namanya juga
belajaran ya....
lagipula, mumpung banyak temen BeExceller yang pengen belajar VBA, jadi
bisa sekalian belajar bersama dan saling berbagi...
OK guys, ditunggu loh topik milis tentang kebingungan yang ditemui saat
baca artikel belajar VBA ya...
Oh iya...
Sorry, artikelnya belum membahas tentang cara record macro. Soale masih
pake metode lama, dari bangun pondasi baru bangun temboknya. Kid ndak bisa
kalo bangun tembok lalu gali tanah untuk pasang ceker ayam nya. Jadinya
pelan banget deh majunya. Jadi kasihan sama yang dah gak sabaran.
Regards,
Kid.
Tue Sep 17, 2013 12:59 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Yang bikin bingung barangkali waktu menceritakan kembali dongeng Mr. Kid (menulis sendiri VBA script) pada saat menghadapi dunia nyata (memecahkan kasus2) khususnya bongkar pasang (manipulasi) Variabel.
Barangkali guideline Mr. Kid perlu ditambah "pemetaan"; seperti "pemetaan"; yang dibuat oleh Leonardo Da Vinci untuk melukis, jadi tinggal ceplok sana ceplok sini jadilah karya besar seperti monalisa. Barangkali, ini yang membuat para pemerhati VBA semakin lama semakin bingung karena belum mendapat "pola" nya (kayak tukang jahit gitu...).
Maaf, kebanyakan 'barangkali" karena hanya menduga-duga.
Salam,
HK
________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Tuesday, 17 September 2013, 14:39
Subject: [belajar-excel] Belajar VBA
Dear BeExceller,
Jumlah pageviews di dashboard blog milis http://b-excel.blogspot.com/ untuk materi BelajarVBA sudah banyak yang di-klik.
Kenapa kok ndak ada yang buka thread tentang kebingungan dalam membaca materi BelajarVBA yang masuk milis ya...
mbok yao buka topik tentang kebingungan yang menimpa dalam membaca artikel BelajarVBA-nya dimilis.
Banyak BeExceller yang bersedia menjelaskan tentang VBA kok. Mumpung masih materi dasar VBA. Begitu paham beneran yang dasaran tersebut, nanti yang lebih rumit bisa dengan mudah dipahami walaupun otodidak entah darimana.
Buat yang sudah pada canggih VBA-nya, jangan bosen untuk ngoreksi ya.
Kalau cekrip-nya kelihatan gak epektip dan gak singkat, harap maklum ya...
Soale Kid lagi belajar VBA, tapi emang bisanya ya segitu juga. Namanya juga belajaran ya....
lagipula, mumpung banyak temen BeExceller yang pengen belajar VBA, jadi bisa sekalian belajar bersama dan saling berbagi...
OK guys, ditunggu loh topik milis tentang kebingungan yang ditemui saat baca artikel belajar VBA ya...
Oh iya...
Sorry, artikelnya belum membahas tentang cara record macro. Soale masih pake metode lama, dari bangun pondasi baru bangun temboknya. Kid ndak bisa kalo bangun tembok lalu gali tanah untuk pasang ceker ayam nya. Jadinya pelan banget deh majunya. Jadi kasihan sama yang dah gak sabaran.
Regards,
Kid.
Barangkali guideline Mr. Kid perlu ditambah "pemetaan"
Maaf, kebanyakan 'barangkali&quo
Salam,
HK
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Tuesday, 17 September 2013, 14:39
Subject: [belajar-excel] Belajar VBA
Dear BeExceller,
Jumlah pageviews di dashboard blog milis http://b-excel.
Kenapa kok ndak ada yang buka thread tentang kebingungan dalam membaca materi BelajarVBA yang masuk milis ya...
mbok yao buka topik tentang kebingungan yang menimpa dalam membaca artikel BelajarVBA-nya dimilis.
Banyak BeExceller yang bersedia menjelaskan tentang VBA kok. Mumpung masih materi dasar VBA. Begitu paham beneran yang dasaran tersebut, nanti yang lebih rumit bisa dengan mudah dipahami walaupun otodidak entah darimana.
Buat yang sudah pada canggih VBA-nya, jangan bosen untuk ngoreksi ya.
Kalau cekrip-nya kelihatan gak epektip dan gak singkat, harap maklum ya...
Soale Kid lagi belajar VBA, tapi emang bisanya ya segitu juga. Namanya juga belajaran ya....
lagipula, mumpung banyak temen BeExceller yang pengen belajar VBA, jadi bisa sekalian belajar bersama dan saling berbagi...
OK guys, ditunggu loh topik milis tentang kebingungan yang ditemui saat baca artikel belajar VBA ya...
Oh iya...
Sorry, artikelnya belum membahas tentang cara record macro. Soale masih pake metode lama, dari bangun pondasi baru bangun temboknya. Kid ndak bisa kalo bangun tembok lalu gali tanah untuk pasang ceker ayam nya. Jadinya pelan banget deh majunya. Jadi kasihan sama yang dah gak sabaran.
Regards,
Kid.
Tue Sep 17, 2013 2:06 am (PDT) . Posted by:
"Bagus" bagus4bls
Kemarin seluruh materi di blog milis http://b-excel.blogspot.com/ sudah di print (utk dibaca dirumah)..
dan juga dijadikan file pdf (utk dibaca dikantor).. JJ
sekalian praktek (maklum dirumah g punya komputer).
Baru mulai belajar VBA
Buat Mr. Kid, Qobiltu Ilmu VBA nya..
Wassalam
~ Bagus ~
----- Original Message -----
From: Mr. Kid
To: BeExcel
Sent: Tuesday, September 17, 2013 2:39 PM
Subject: [belajar-excel] Belajar VBA
Dear BeExceller,
Jumlah pageviews di dashboard blog milis http://b-excel.blogspot.com/ untuk materi BelajarVBA sudah banyak yang di-klik.
Kenapa kok ndak ada yang buka thread tentang kebingungan dalam membaca materi BelajarVBA yang masuk milis ya...
mbok yao buka topik tentang kebingungan yang menimpa dalam membaca artikel BelajarVBA-nya dimilis.
Banyak BeExceller yang bersedia menjelaskan tentang VBA kok. Mumpung masih materi dasar VBA. Begitu paham beneran yang dasaran tersebut, nanti yang lebih rumit bisa dengan mudah dipahami walaupun otodidak entah darimana.
Buat yang sudah pada canggih VBA-nya, jangan bosen untuk ngoreksi ya.
Kalau cekrip-nya kelihatan gak epektip dan gak singkat, harap maklum ya...
Soale Kid lagi belajar VBA, tapi emang bisanya ya segitu juga. Namanya juga belajaran ya....
lagipula, mumpung banyak temen BeExceller yang pengen belajar VBA, jadi bisa sekalian belajar bersama dan saling berbagi...
OK guys, ditunggu loh topik milis tentang kebingungan yang ditemui saat baca artikel belajar VBA ya...
Oh iya...
Sorry, artikelnya belum membahas tentang cara record macro. Soale masih pake metode lama, dari bangun pondasi baru bangun temboknya. Kid ndak bisa kalo bangun tembok lalu gali tanah untuk pasang ceker ayam nya. Jadinya pelan banget deh majunya. Jadi kasihan sama yang dah gak sabaran.
Regards,
Kid.
dan juga dijadikan file pdf (utk dibaca dikantor).. JJ
sekalian praktek (maklum dirumah g punya komputer).
Baru mulai belajar VBA
Buat Mr. Kid, Qobiltu Ilmu VBA nya..
Wassalam
~ Bagus ~
----- Original Message -----
From: Mr. Kid
To: BeExcel
Sent: Tuesday, September 17, 2013 2:39 PM
Subject: [belajar-excel] Belajar VBA
Dear BeExceller,
Jumlah pageviews di dashboard blog milis http://b-excel.
Kenapa kok ndak ada yang buka thread tentang kebingungan dalam membaca materi BelajarVBA yang masuk milis ya...
mbok yao buka topik tentang kebingungan yang menimpa dalam membaca artikel BelajarVBA-nya dimilis.
Banyak BeExceller yang bersedia menjelaskan tentang VBA kok. Mumpung masih materi dasar VBA. Begitu paham beneran yang dasaran tersebut, nanti yang lebih rumit bisa dengan mudah dipahami walaupun otodidak entah darimana.
Buat yang sudah pada canggih VBA-nya, jangan bosen untuk ngoreksi ya.
Kalau cekrip-nya kelihatan gak epektip dan gak singkat, harap maklum ya...
Soale Kid lagi belajar VBA, tapi emang bisanya ya segitu juga. Namanya juga belajaran ya....
lagipula, mumpung banyak temen BeExceller yang pengen belajar VBA, jadi bisa sekalian belajar bersama dan saling berbagi...
OK guys, ditunggu loh topik milis tentang kebingungan yang ditemui saat baca artikel belajar VBA ya...
Oh iya...
Sorry, artikelnya belum membahas tentang cara record macro. Soale masih pake metode lama, dari bangun pondasi baru bangun temboknya. Kid ndak bisa kalo bangun tembok lalu gali tanah untuk pasang ceker ayam nya. Jadinya pelan banget deh majunya. Jadi kasihan sama yang dah gak sabaran.
Regards,
Kid.
Tue Sep 17, 2013 1:02 am (PDT) . Posted by:
"him mah"
Assalamuálaikum Wr. Wb.
ceritanya saya mau buat soal atau kuis cari kata
misal seperti ini
1. Soal berada di kolom A (terdiri dari kumpulan kata)
2. kolom jawaban ada di range D3..S22
3. soal berada di kolom A akan dipetakan secara acak di range Jawaban
Dengan Posisi yang acak juga
Bisa dari kiri kekanan
dari kanan ke kiri
dari atas kebawah
dari bawah ke atas
atau secara diagonal
4. setelah soal dipetakan dalam range jawaban, kemudian untuk cell
yang masih kosong
diisi dengan huruf yang diambil secara acak
5. kalau yang seperti ini, kira-kira VBA nya seperti apa ya
Terima kasih (file terlampir)
ceritanya saya mau buat soal atau kuis cari kata
misal seperti ini
1. Soal berada di kolom A (terdiri dari kumpulan kata)
2. kolom jawaban ada di range D3..S22
3. soal berada di kolom A akan dipetakan secara acak di range Jawaban
Dengan Posisi yang acak juga
Bisa dari kiri kekanan
dari kanan ke kiri
dari atas kebawah
dari bawah ke atas
atau secara diagonal
4. setelah soal dipetakan dalam range jawaban, kemudian untuk cell
yang masih kosong
diisi dengan huruf yang diambil secara acak
5. kalau yang seperti ini, kira-kira VBA nya seperti apa ya
Terima kasih (file terlampir)
Tue Sep 17, 2013 2:11 am (PDT) . Posted by:
"M.Ade Alfarid" aderyo
Dear Nora,
bisa dengan "format cell"
contoh terlampir
Ade
On Mon, 16 Sep 2013 16:35:24 +0700, Nora Ismanti <noraismanti@yahoo.com>
wrote:
> Wahai para master excel dan segenap member.
>
> Mohon saya dibantu. Saya mau menambahkan tanda petik tunggal ( ' ) di
> depan tanggal pada kolom E4 sampai dengan E10. Selengkapnya mohondilihat
> lampiran. Saya sudah coba pake rumus ="'"&e4 di kolom K4 tetapiyang
> muncul bilangan serial 40178. Saya pun coba melakukan pem-format-anpada
> cell yang berisi bilangan 40178 itu, tetapi gak ngefek gitu.
>
>
> Terima kasih atas bantuannya.
>
>
> Salam
bisa dengan "format cell"
contoh terlampir
Ade
On Mon, 16 Sep 2013 16:35:24 +0700, Nora Ismanti <noraismanti@
wrote:
> Wahai para master excel dan segenap member.
>
> Mohon saya dibantu. Saya mau menambahkan tanda petik tunggal ( ' ) di
> depan tanggal pada kolom E4 sampai dengan E10. Selengkapnya mohondilihat
> lampiran. Saya sudah coba pake rumus ="'
> muncul bilangan serial 40178. Saya pun coba melakukan pem-format-anpada
> cell yang berisi bilangan 40178 itu, tetapi gak ngefek gitu.
>
>
> Terima kasih atas bantuannya.
>
>
> Salam
Tue Sep 17, 2013 2:29 am (PDT) . Posted by:
"Andre Rahmaidy Teeza" andre_teeza_bn
Dear Beexceller
saya mau tanya mengenai aplikasi macro untuk menghitung tarif penyusutan untuk fixed aset berdasarkan saldo garis lurus dan metode saldo menurun ganda.
kira2 ada Beexceller yang punya referensi untuk perhitungan fixed asset terhadap 2 metode tersebut di atas..
Wassalam
Andree
saya mau tanya mengenai aplikasi macro untuk menghitung tarif penyusutan untuk fixed aset berdasarkan saldo garis lurus dan metode saldo menurun ganda.
kira2 ada Beexceller yang punya referensi untuk perhitungan fixed asset terhadap 2 metode tersebut di atas..
Wassalam
Andree
Tue Sep 17, 2013 2:30 am (PDT) . Posted by:
"Berni Karanza" karanza.berni
Dear,
Sebagai tambahan, kalo boleh saya tahu mengapa baris perintah berikut
tampaknya tidak berfungsi?
Range("f6").End(xlDown).End(xlToRight).ClearContents
Akibatnya, Jika program dieksekusi lebih dari satu kali (untuk refresh jika
terjadi perubahan data), pada
kolom EGI (data setelah konversi), terjadi pengulangan data sebelumnya.
seperti berikut:
NRP NAME EGI 1K01037 ARIS ARIYANTO P124, HD785, P380, HD465, 4, P124,
HD785, P380, HD465 1K01039 PURWOKO BUDI SANTOSO PC750, D375, PC800, D155,
4, PC750, D375, PC800, D155
Salam,
Berni_K
2013/9/17 Berni Karanza <karanza.berni@gmail.com>
> Dear Master Excel,
>
> Pak Dwint terimakasih atas bantuan nya, hasilnya sempurna persis seperti
> yang saya harapkan..serta salut terhadap algoritma yang bisa dibuat
> sederhana. Untuk rekan-rekan yang lain terimakasih atas penjelasannya.
> Mohon maaf ada sedikit kekeliruan sample yang saya berikan, seperti yang
> pak dwint jelaskan bahwa data pertama pada kolom C menunjukan banyak data
> yang berurut di bawahnya, dengan asumsi bahwa seluruh data memiliki pola
> yang sama, cuma ke bawahnya pada sample terlihat pola yang tidak konsisten,
> dan benar yang saya maksud adalah untuk setiap data pertama yang
> ditemukan (Jumlah EGI tiap NRP) tidak dilakukan penulisan ke kolom EGI.
> berikut juga saya lampirkan sample yang seharusnya.
>
> Awalnya agak bingung dengan syntax yang dibuat, namun dari penjelasan yang
> rekan-rekan berikan akhirnya dapat saya pahami.
>
> Salam
>
> Berni_K
>
>
>
>
>
> 2013/9/16 Mr. Kid <mr.nmkid@gmail.com>
>
> **
>>
>>
>> Justru kalau ada data baru (id baru) yang tidak punya baris jumlah (yang
>> dikuning), maka akan kekurangan 1 item.
>> Sedangkan jika ada id lama tapi membentuk blok data baru yang disertai
>> baris jumlah data (maksudnya seperti yang dikuning itu), maka nilai jumlah
>> data akan masuk ke hasilnya.
>> tapi itu juga cuman dugaan, karena dalam script yang ada adalah
>> pencabangan proses menjadi 2 arah saja, yaitu :
>> arah 1 : belum ada id tersebut dalam tabel hasil, maka akan tulis hasil
>> saat pembacaan pertama di item baru itu. Kemudian lanjut ke baris data
>> berikutnya.
>> arah 2 : sudah ada id tersebut di hasil, maka ambil datanya (meskipun itu
>> baris jumlah subtotal count record di blok data tersebut) untuk
>> digandengkan dengan nilai hasil yang ada di tabel hasil untuk id tersebut.
>>
>> imo,
>> data contohnya tidak mewakili bentuk asli kasusnya.
>> data yang dikuning pun tidak diketahui sudah bawaan dari sana atau hasil
>> pengolahan menggunakan fitur subtotal.
>> dengan kalimat penanya yang menyatakan ada banyak data, bisa diartikan
>> ada banyak record, ada banyak unique id, maupun ada banyak keduanya.
>> bisa jadi data aslinya ndak punya baris-baris yang ada cell kuningnya.
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2013/9/16 De Premor <de@premor.net>
>>
>>> **
>>>
>>>
>>> sebenernya bukan kebetulan, silahkan dicek kodenya lagi
>>>
>>> For Each NRP In rgNrp
>>> Set rgFind = Range("f:f").Find(NRP.Value)
>>>
>>> If rgFind Is Nothing Then
>>> lData = Cells(Rows.Count, 6).End(xlUp).Row + 1
>>> * Cells(lData, 6).Value = NRP.Value**
>>> ** Cells(lData, 7).Value = NRP.Offset(, 1).Value*
>>> *
>>> * Else
>>> lData = rgFind.Row
>>> * If Cells(lData, 8).Value = "" Then**
>>> *
>>> * Cells(lData, 8).Value = NRP.Offset(, 2).Value**
>>> ** Else**
>>> ** Cells(lData, 8).Value = Cells(lData, 8).Value & ", "
>>> & NRP.Offset(, 2).Value**
>>> ** End If**
>>> * End If
>>> Next NRP
>>>
>>> dibagian yang diwarna merah, adalah routine buat menuliskan Nomor NRP
>>> dan Nama jika NRP dan Nama belum ada pada kolom hasil, dimana pada routine
>>> tersebut terjadi looping untuk membaca baris per baris, sehingga terlewat 1
>>> baris nilai EGI untuk diisikan pada Cells(lData,8) karena memang tidak ada
>>> routine untuk itu jika ada pemunculan nama baru.
>>>
>>> On 16-09-2013 12:03, hendrik karnadi wrote:
>>>
>>>
>>> Pak Dwint,
>>>
>>> Sy sudah coba copas dan jalankan macronya pada file yang dilampirkan
>>> pak Berni .
>>> Jumlah EGI = 71 item, data 73 item. Ada selisih 2 item yang tidak masuk
>>> (seharusnya memang tidak masuk), yaitu angka "8" dan "5".
>>>
>>> Yang pasti bukan kebetulan.
>>>
>>> Mungkin perlu dijelaskan sedikit oleh Pak Dwint, pada bagian (code)
>>> yang mana angka "8" dan "5" dilewati.
>>>
>>> Workbook hasil testing terlampir.
>>>
>>> Salam,
>>> HK
>>>
>>>
>>> ------------------------------
>>> *From:* dwint ruswanto <dwint.ruswanto@gmail.com><dwint.ruswanto@gmail.com>
>>> *To:* belajar-excel@yahoogroups.com
>>> *Sent:* Monday, 16 September 2013, 10:37
>>> *Subject:* Re: [belajar-excel] Cara konversi data vertikal menjadi
>>> horizantal
>>>
>>>
>>> coba bantu dengan menggunakan vba,
>>>
>>> asumsi, data pertama adalah menyatakan jumlah data yang ada, karena
>>> berdasarkan sampel seperti itu adanya
>>>
>>> buka VBE modul dengan cara sebagai berikut (pilih salah satu saja)
>>> # klik kanan di sheet dan pilih View Code
>>> # tekan tombol Alt F11
>>> # >> hanya ada di excel 2003, sudah lupa tapi cari sesuatu yang berbunyi
>>> Macro
>>>
>>> buka sebuah modul baru dengan cara Insert >> Module
>>>
>>> pada modul yang terbuka tadi.. copas script berikut ini:
>>>
>>> Sub Konversi()
>>> Dim rgNrp As Range, Nrp As Range, rgFind As Range
>>> Dim LastRow As Long, lData As Long
>>>
>>> Application.ScreenUpdating = False
>>> Range("f6").End(xlDown).End(xlToRight).ClearContents
>>> LastRow = Cells(Rows.Count, 1).End(xlUp).Row
>>> Set rgNrp = Range(Cells(6, 1), Cells(LastRow, 1))
>>> For Each Nrp In rgNrp
>>> Set rgFind = Range("f:f").Find(Nrp.Value)
>>> If rgFind Is Nothing Then
>>> lData = Cells(Rows.Count, 6).End(xlUp).Row + 1
>>> Cells(lData, 6).Value = Nrp.Value
>>> Cells(lData, 7).Value = Nrp.Offset(, 1).Value
>>> Else
>>> lData = rgFind.Row
>>> If Cells(lData, 8).Value = "" Then
>>> Cells(lData, 8).Value = Nrp.Offset(, 2).Value
>>> Else
>>> Cells(lData, 8).Value = Cells(lData, 8).Value & ", " &
>>> Nrp.Offset(, 2).Value
>>> End If
>>> End If
>>> Next Nrp
>>> Application.ScreenUpdating = True
>>> End Sub
>>>
>>> buat sebuah tombol di worksheet.. bisa menggunakan command button,
>>> shape, atau kalo mau sedikit narsis boleh pakai foto diri
>>>
>>> # jika menggunakan command button: copas script ini
>>> call Konversi
>>>
>>> # jika menggunakan shape atau foto: panggil macro tersebut dengan cara
>>> klik kanan >> assign macro, dan pilih nama macronya di atas.
>>>
>>> maaf belum bisa melampirkan workbook solusi..
>>>
>>> Wassalamu'alaikum wr. wb.,
>>>
>>> -dwint-
>>>
>>>
>>>
>>> Pada 15 September 2013 13.56, Berni Karanza <karanza.berni@gmail.com>menulis:
>>>
>>>
>>> Dear Master Excel,,
>>>
>>> Mohon pencerahannya bagaimana cara mengkonversi data vertikal menjadi
>>> horizontal secara cepat , serta menggabungkan kesemua data tersebut
>>> kedalam satu cell dengan separator koma (,) .kalo bisa dengan
>>> menggunakan perintah makro, seperti pada sampel berikut:
>>>
>>> *Data sebelum konversi:*
>>>
>>> NRP NAME EGI 1B93010 DARMI SYARIF 8 1B93010 DARMI SYARIF PC750
>>> 1B93010 DARMI SYARIF D25KS 1B93010 DARMI SYARIF GD825 1B93010 DARMI
>>> SYARIF PC800 1B93010 DARMI SYARIF D245 1B93010 DARMI SYARIF D50KS
>>> 1B93010 DARMI SYARIF CHA1500 1B93010 DARMI SYARIF CHA1100
>>> *Data setelah konversi:*
>>>
>>> NRP NAME EGI 1B93010 DARMI SYARIF PC750, D25KS, GD825, PC800,
>>> D245, D50KS, CHA1500, CHA1100
>>>
>>> Baris data yang akan digunakan sangat banyak, Lebih detail nya
>>> seperti lampiran yang saya sertakan berikut
>>>
>>> Sekali lagi, mohon bantuan master sekalian, dan terima kasih atas
>>> pencerahannya
>>>
>>> Salam,
>>>
>>> Berni_K
>>>
>>>
>>>
>>>
>>>
>>>
>>
>>
>
>
Sebagai tambahan, kalo boleh saya tahu mengapa baris perintah berikut
tampaknya tidak berfungsi?
Range("
Akibatnya, Jika program dieksekusi lebih dari satu kali (untuk refresh jika
terjadi perubahan data), pada
kolom EGI (data setelah konversi), terjadi pengulangan data sebelumnya.
seperti berikut:
NRP NAME EGI 1K01037 ARIS ARIYANTO P124, HD785, P380, HD465, 4, P124,
HD785, P380, HD465 1K01039 PURWOKO BUDI SANTOSO PC750, D375, PC800, D155,
4, PC750, D375, PC800, D155
Salam,
Berni_K
2013/9/17 Berni Karanza <karanza.berni@
> Dear Master Excel,
>
> Pak Dwint terimakasih atas bantuan nya, hasilnya sempurna persis seperti
> yang saya harapkan..serta salut terhadap algoritma yang bisa dibuat
> sederhana. Untuk rekan-rekan yang lain terimakasih atas penjelasannya.
> Mohon maaf ada sedikit kekeliruan sample yang saya berikan, seperti yang
> pak dwint jelaskan bahwa data pertama pada kolom C menunjukan banyak data
> yang berurut di bawahnya, dengan asumsi bahwa seluruh data memiliki pola
> yang sama, cuma ke bawahnya pada sample terlihat pola yang tidak konsisten,
> dan benar yang saya maksud adalah untuk setiap data pertama yang
> ditemukan (Jumlah EGI tiap NRP) tidak dilakukan penulisan ke kolom EGI.
> berikut juga saya lampirkan sample yang seharusnya.
>
> Awalnya agak bingung dengan syntax yang dibuat, namun dari penjelasan yang
> rekan-rekan berikan akhirnya dapat saya pahami.
>
> Salam
>
> Berni_K
>
>
>
>
>
> 2013/9/16 Mr. Kid <mr.nmkid@gmail.
>
> **
>>
>>
>> Justru kalau ada data baru (id baru) yang tidak punya baris jumlah (yang
>> dikuning), maka akan kekurangan 1 item.
>> Sedangkan jika ada id lama tapi membentuk blok data baru yang disertai
>> baris jumlah data (maksudnya seperti yang dikuning itu), maka nilai jumlah
>> data akan masuk ke hasilnya.
>> tapi itu juga cuman dugaan, karena dalam script yang ada adalah
>> pencabangan proses menjadi 2 arah saja, yaitu :
>> arah 1 : belum ada id tersebut dalam tabel hasil, maka akan tulis hasil
>> saat pembacaan pertama di item baru itu. Kemudian lanjut ke baris data
>> berikutnya.
>> arah 2 : sudah ada id tersebut di hasil, maka ambil datanya (meskipun itu
>> baris jumlah subtotal count record di blok data tersebut) untuk
>> digandengkan dengan nilai hasil yang ada di tabel hasil untuk id tersebut.
>>
>> imo,
>> data contohnya tidak mewakili bentuk asli kasusnya.
>> data yang dikuning pun tidak diketahui sudah bawaan dari sana atau hasil
>> pengolahan menggunakan fitur subtotal.
>> dengan kalimat penanya yang menyatakan ada banyak data, bisa diartikan
>> ada banyak record, ada banyak unique id, maupun ada banyak keduanya.
>> bisa jadi data aslinya ndak punya baris-baris yang ada cell kuningnya.
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2013/9/16 De Premor <de@premor.net>
>>
>>> **
>>>
>>>
>>> sebenernya bukan kebetulan, silahkan dicek kodenya lagi
>>>
>>> For Each NRP In rgNrp
>>> Set rgFind = Range("
>>>
>>> If rgFind Is Nothing Then
>>> lData = Cells(Rows.Count, 6).End(xlUp)
>>> * Cells(lData, 6).Value = NRP.Value**
>>> ** Cells(lData, 7).Value = NRP.Offset(, 1).Value*
>>> *
>>> * Else
>>> lData = rgFind.Row
>>> * If Cells(lData, 8).Value = "" Then**
>>> *
>>> * Cells(lData, 8).Value = NRP.Offset(, 2).Value**
>>> ** Else**
>>> ** Cells(lData, 8).Value = Cells(lData, 8).Value & ", "
>>> & NRP.Offset(, 2).Value**
>>> ** End If**
>>> * End If
>>> Next NRP
>>>
>>> dibagian yang diwarna merah, adalah routine buat menuliskan Nomor NRP
>>> dan Nama jika NRP dan Nama belum ada pada kolom hasil, dimana pada routine
>>> tersebut terjadi looping untuk membaca baris per baris, sehingga terlewat 1
>>> baris nilai EGI untuk diisikan pada Cells(lData,
>>> routine untuk itu jika ada pemunculan nama baru.
>>>
>>> On 16-09-2013 12:03, hendrik karnadi wrote:
>>>
>>>
>>> Pak Dwint,
>>>
>>> Sy sudah coba copas dan jalankan macronya pada file yang dilampirkan
>>> pak Berni .
>>> Jumlah EGI = 71 item, data 73 item. Ada selisih 2 item yang tidak masuk
>>> (seharusnya memang tidak masuk), yaitu angka "8" dan "5"
>>>
>>> Yang pasti bukan kebetulan.
>>>
>>> Mungkin perlu dijelaskan sedikit oleh Pak Dwint, pada bagian (code)
>>> yang mana angka "8" dan "5" dilewati.
>>>
>>> Workbook hasil testing terlampir.
>>>
>>> Salam,
>>> HK
>>>
>>>
>>> ------------
>>> *From:* dwint ruswanto <dwint.ruswanto@
>>> *To:* belajar-excel@
>>> *Sent:* Monday, 16 September 2013, 10:37
>>> *Subject:* Re: [belajar-excel] Cara konversi data vertikal menjadi
>>> horizantal
>>>
>>>
>>> coba bantu dengan menggunakan vba,
>>>
>>> asumsi, data pertama adalah menyatakan jumlah data yang ada, karena
>>> berdasarkan sampel seperti itu adanya
>>>
>>> buka VBE modul dengan cara sebagai berikut (pilih salah satu saja)
>>> # klik kanan di sheet dan pilih View Code
>>> # tekan tombol Alt F11
>>> # >> hanya ada di excel 2003, sudah lupa tapi cari sesuatu yang berbunyi
>>> Macro
>>>
>>> buka sebuah modul baru dengan cara Insert >> Module
>>>
>>> pada modul yang terbuka tadi.. copas script berikut ini:
>>>
>>> Sub Konversi()
>>> Dim rgNrp As Range, Nrp As Range, rgFind As Range
>>> Dim LastRow As Long, lData As Long
>>>
>>> Application.
>>> Range("
>>> LastRow = Cells(Rows.Count, 1).End(xlUp)
>>> Set rgNrp = Range(Cells(
>>> For Each Nrp In rgNrp
>>> Set rgFind = Range("
>>> If rgFind Is Nothing Then
>>> lData = Cells(Rows.Count, 6).End(xlUp)
>>> Cells(lData, 6).Value = Nrp.Value
>>> Cells(lData, 7).Value = Nrp.Offset(, 1).Value
>>> Else
>>> lData = rgFind.Row
>>> If Cells(lData, 8).Value = "" Then
>>> Cells(lData, 8).Value = Nrp.Offset(, 2).Value
>>> Else
>>> Cells(lData, 8).Value = Cells(lData, 8).Value & ", " &
>>> Nrp.Offset(, 2).Value
>>> End If
>>> End If
>>> Next Nrp
>>> Application.
>>> End Sub
>>>
>>> buat sebuah tombol di worksheet.. bisa menggunakan command button,
>>> shape, atau kalo mau sedikit narsis boleh pakai foto diri
>>>
>>> # jika menggunakan command button: copas script ini
>>> call Konversi
>>>
>>> # jika menggunakan shape atau foto: panggil macro tersebut dengan cara
>>> klik kanan >> assign macro, dan pilih nama macronya di atas.
>>>
>>> maaf belum bisa melampirkan workbook solusi..
>>>
>>> Wassalamu'
>>>
>>> -dwint-
>>>
>>>
>>>
>>> Pada 15 September 2013 13.56, Berni Karanza <karanza.berni@
>>>
>>>
>>> Dear Master Excel,,
>>>
>>> Mohon pencerahannya bagaimana cara mengkonversi data vertikal menjadi
>>> horizontal secara cepat , serta menggabungkan kesemua data tersebut
>>> kedalam satu cell dengan separator koma (,) .kalo bisa dengan
>>> menggunakan perintah makro, seperti pada sampel berikut:
>>>
>>> *Data sebelum konversi:*
>>>
>>> NRP NAME EGI 1B93010 DARMI SYARIF 8 1B93010 DARMI SYARIF PC750
>>> 1B93010 DARMI SYARIF D25KS 1B93010 DARMI SYARIF GD825 1B93010 DARMI
>>> SYARIF PC800 1B93010 DARMI SYARIF D245 1B93010 DARMI SYARIF D50KS
>>> 1B93010 DARMI SYARIF CHA1500 1B93010 DARMI SYARIF CHA1100
>>> *Data setelah konversi:*
>>>
>>> NRP NAME EGI 1B93010 DARMI SYARIF PC750, D25KS, GD825, PC800,
>>> D245, D50KS, CHA1500, CHA1100
>>>
>>> Baris data yang akan digunakan sangat banyak, Lebih detail nya
>>> seperti lampiran yang saya sertakan berikut
>>>
>>> Sekali lagi, mohon bantuan master sekalian, dan terima kasih atas
>>> pencerahannya
>>>
>>> Salam,
>>>
>>> Berni_K
>>>
>>>
>>>
>>>
>>>
>>>
>>
>>
>
>
Tue Sep 17, 2013 3:12 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
seharusnya,
Range("F6", Range("F6").End(xlDown).End(xlToRight)).ClearContents
Kurang yang warna merah.
Salam,
HK
________________________________
From: Berni Karanza <karanza.berni@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 17 September 2013, 14:25
Subject: Re: [belajar-excel] Cara konversi data vertikal menjadi horizantal
Dear,
Sebagai tambahan, kalo boleh saya tahu mengapa baris perintah berikut tampaknya tidak berfungsi?
Range("f6").End(xlDown).End(xlToRight).ClearContents
Akibatnya, Jika program dieksekusi lebih dari satu kali (untuk refresh jika terjadi perubahan data), pada
kolom EGI (data setelah konversi), terjadi pengulangan data sebelumnya. seperti berikut:
NRP NAME EGI
1K01037 ARIS ARIYANTO P124, HD785, P380, HD465, 4, P124, HD785, P380, HD465
1K01039 PURWOKO BUDI SANTOSO PC750, D375, PC800, D155, 4, PC750, D375, PC800, D155
Salam,
Berni_K
2013/9/17 Berni Karanza <karanza.berni@gmail.com>
Dear Master Excel,
>
>
>Pak Dwint terimakasih atas bantuan nya, hasilnya sempurna persis seperti yang saya harapkan..serta salut terhadap algoritma yang bisa dibuat sederhana. Untuk rekan-rekan yang lain terimakasih atas penjelasannya. Mohon maaf ada sedikit kekeliruan sample yang saya berikan, seperti yang pak dwint jelaskan bahwa data pertama pada kolom C menunjukan banyak data yang berurut di bawahnya, dengan asumsi bahwa seluruh data memiliki pola yang sama, cuma ke bawahnya pada sample terlihat pola yang tidak konsisten, dan benar yang saya maksud adalah untuk setiap data pertama yang ditemukan (Jumlah EGI tiap NRP) tidak dilakukan penulisan ke kolom EGI. berikut juga saya lampirkan sample yang seharusnya.
>
>
>Awalnya agak bingung dengan syntax yang dibuat, namun dari penjelasan yang rekan-rekan berikan akhirnya dapat saya pahami.
>
>
>Salam
>
>
>
>Berni_K
>
>
>
>
>
>
>
>
>
>2013/9/16 Mr. Kid <mr.nmkid@gmail.com>
>
>
>
>>
>>Justru kalau ada data baru (id baru) yang tidak punya baris jumlah (yang dikuning), maka akan kekurangan 1 item.
>>
>>Sedangkan jika ada id lama tapi membentuk blok data baru yang disertai baris jumlah data (maksudnya seperti yang dikuning itu), maka nilai jumlah data akan masuk ke hasilnya.
>>
>>tapi itu juga cuman dugaan, karena dalam script yang ada adalah pencabangan proses menjadi 2 arah saja, yaitu :
>>
>>arah 1 : belum ada id tersebut dalam tabel hasil, maka akan tulis hasil saat pembacaan pertama di item baru itu. Kemudian lanjut ke baris data berikutnya.
>>
>>arah 2 : sudah ada id tersebut di hasil, maka ambil datanya (meskipun itu baris jumlah subtotal count record di blok data tersebut) untuk digandengkan dengan nilai hasil yang ada di tabel hasil untuk id tersebut.
>>
>>imo,
>>data contohnya tidak mewakili bentuk asli kasusnya.
>>data yang dikuning pun tidak diketahui sudah bawaan dari sana atau hasil pengolahan menggunakan fitur subtotal.
>>dengan kalimat penanya yang menyatakan ada banyak data, bisa diartikan ada banyak record, ada banyak unique id, maupun ada banyak keduanya.
>>
>>bisa jadi data aslinya ndak punya baris-baris yang ada cell kuningnya.
>>
>>
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>
>>2013/9/16 De Premor <de@premor.net>
>>
>>
>>>
>>>sebenernya bukan kebetulan, silahkan dicek kodenya lagi
>>>
>>> For Each NRP In rgNrp
>>> Set rgFind = Range("f:f").Find(NRP.Value)
>>>
>>> If rgFind Is Nothing Then
>>> lData = Cells(Rows.Count, 6).End(xlUp).Row + 1
>>> Cells(lData, 6).Value = NRP.Value
>>> Cells(lData, 7).Value = NRP.Offset(, 1).Value
>>>
>>> Else
>>> lData = rgFind.Row
>>> If Cells(lData, 8).Value = "" Then
>>> Cells(lData, 8).Value = NRP.Offset(, 2).Value
>>> Else
>>> Cells(lData, 8).Value = Cells(lData, 8).Value & ", " & NRP.Offset(, 2).Value
>>> End If
>>> End If
>>> Next NRP
>>>
>>>dibagian yang diwarna merah, adalah routine buat menuliskan Nomor
NRP dan Nama jika NRP dan Nama belum ada pada kolom hasil, dimana
pada routine tersebut terjadi looping untuk membaca baris per baris,
sehingga terlewat 1 baris nilai EGI untuk diisikan pada
Cells(lData,8) karena memang tidak ada routine untuk itu jika ada
pemunculan nama baru.
>>>
>>>
>>>On 16-09-2013 12:03, hendrik karnadi wrote:
>>>
>>>
>>>>Pak Dwint,
>>>>
>>>>
>>>>Sy sudah coba copas dan jalankan macronya pada file yang dilampirkan pak Berni .
>>>>Jumlah EGI = 71 item, data 73 item. Ada selisih 2 item yang tidak masuk (seharusnya memang tidak masuk), yaitu angka "8" dan "5".
>>>>
>>>>
>>>>Yang pasti bukan kebetulan.
>>>>
>>>>
>>>>Mungkin perlu dijelaskan sedikit oleh Pak Dwint, pada bagian (code) yang mana angka "8" dan "5" dilewati.
>>>>
>>>>
>>>>Workbook hasil testing terlampir.
>>>>
>>>>
>>>>Salam,
>>>>HK
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>________________________________
>>>> From: dwint ruswanto <dwint.ruswanto@gmail.com>
>>>>To: belajar-excel@yahoogroups.com
>>>>Sent: Monday, 16 September 2013, 10:37
>>>>Subject: Re: [belajar-excel] Cara konversi data vertikal menjadi horizantal
>>>>
>>>>
>>>>
>>>>
>>>>coba bantu dengan menggunakan vba,
>>>>
>>>>
>>>>asumsi, data pertama adalah menyatakan jumlah data yang ada, karena berdasarkan sampel seperti itu adanya
>>>>
>>>>
>>>>
>>>>buka VBE modul dengan cara sebagai berikut (pilih salah satu saja)
>>>># klik kanan di sheet dan pilih View Code
>>>># tekan tombol Alt F11
>>>># >> hanya ada di excel 2003, sudah lupa tapi cari sesuatu yang berbunyi Macro
>>>>
>>>>
>>>>buka sebuah modul baru dengan cara Insert >> Module
>>>>
>>>>
>>>>pada modul yang terbuka tadi.. copas script berikut ini:
>>>>
>>>>
>>>>Sub Konversi()
>>>> Dim rgNrp As Range, Nrp As Range, rgFind As Range
>>>> Dim LastRow As Long, lData As Long
>>>>
>>>> Application.ScreenUpdating = False
>>>> Range("f6").End(xlDown).End(xlToRight).ClearContents
>>>> LastRow = Cells(Rows.Count, 1).End(xlUp).Row
>>>> Set rgNrp = Range(Cells(6, 1), Cells(LastRow, 1))
>>>> For Each Nrp In rgNrp
>>>> Set rgFind = Range("f:f").Find(Nrp.Value)
>>>> If rgFind Is Nothing Then
>>>> lData = Cells(Rows.Count, 6).End(xlUp).Row + 1
>>>> Cells(lData, 6).Value = Nrp.Value
>>>> Cells(lData, 7).Value = Nrp.Offset(, 1).Value
>>>> Else
>>>> lData = rgFind.Row
>>>> If Cells(lData, 8).Value = "" Then
>>>> Cells(lData, 8).Value = Nrp.Offset(, 2).Value
>>>> Else
>>>> Cells(lData, 8).Value = Cells(lData, 8).Value & ", " & Nrp.Offset(, 2).Value
>>>> End If
>>>> End If
>>>> Next Nrp
>>>> Application.ScreenUpdating = True
>>>>End Sub
>>>>
>>>>
>>>>buat sebuah tombol di worksheet.. bisa menggunakan command button, shape, atau kalo mau sedikit narsis boleh pakai foto diri
>>>>
>>>>
>>>># jika menggunakan command button: copas script ini
>>>>call Konversi
>>>>
>>>>
>>>># jika menggunakan shape atau foto: panggil macro tersebut dengan cara klik kanan >> assign macro, dan pilih nama macronya di atas.
>>>>
>>>>
>>>>maaf belum bisa melampirkan workbook solusi..
>>>>
>>>>
>>>>Wassalamu'alaikum wr. wb.,
>>>>
>>>>
>>>>-dwint-
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>Pada 15 September 2013 13.56, Berni Karanza <karanza.berni@gmail.com> menulis:
>>>>
>>>>
>>>>>Dear Master Excel,,
>>>>>
>>>>>
>>>>>Mohon pencerahannya bagaimana cara mengkonversi data vertikal menjadi horizontal secara cepat , serta menggabungkan kesemua data tersebut
>>>>>kedalam satu cell dengan separator koma (,) .kalo bisa dengan menggunakan perintah makro, seperti pada sampel berikut:
>>>>>
>>>>>
>>>>>Data sebelum konversi:
>>>>>
>>>>>
>>>>>NRP NAME EGI
>>>>>1B93010 DARMI SYARIF 8
>>>>>1B93010 DARMI SYARIF PC750
>>>>>1B93010 DARMI SYARIF D25KS
>>>>>1B93010 DARMI SYARIF GD825
>>>>>1B93010 DARMI SYARIF PC800
>>>>>1B93010 DARMI SYARIF D245
>>>>>1B93010 DARMI SYARIF D50KS
>>>>>1B93010 DARMI SYARIF CHA1500
>>>>>1B93010 DARMI SYARIF CHA1100
>>>>>
>>>>>Data setelah konversi:
>>>>>
>>>>>
>>>>>NRP NAME EGI
>>>>>1B93010 DARMI SYARIF PC750, D25KS, GD825, PC800, D245, D50KS, CHA1500, CHA1100
>>>>>
>>>>>
>>>>>Baris data yang akan digunakan sangat banyak, Lebih detail nya seperti lampiran yang saya sertakan berikut
>>>>>
>>>>>
>>>>>
>>>>>Sekali lagi, mohon bantuan master sekalian, dan terima kasih atas pencerahannya
>>>>>
>>>>>
>>>>>Salam,
>>>>>
>>>>>
>>>>>Berni_K
>>>>
>>>>
>>>>
>>>
>>
>
Range("
Kurang yang warna merah.
Salam,
HK
____________
From: Berni Karanza <karanza.berni@
To: belajar-excel@
Sent: Tuesday, 17 September 2013, 14:25
Subject: Re: [belajar-excel] Cara konversi data vertikal menjadi horizantal
Dear,
Sebagai tambahan, kalo boleh saya tahu mengapa baris perintah berikut tampaknya tidak berfungsi?
Range("
Akibatnya, Jika program dieksekusi lebih dari satu kali (untuk refresh jika terjadi perubahan data), pada
kolom EGI (data setelah konversi), terjadi pengulangan data sebelumnya. seperti berikut:
NRP NAME EGI
1K01037 ARIS ARIYANTO P124, HD785, P380, HD465, 4, P124, HD785, P380, HD465
1K01039 PURWOKO BUDI SANTOSO PC750, D375, PC800, D155, 4, PC750, D375, PC800, D155
Salam,
Berni_K
2013/9/17 Berni Karanza <karanza.berni@
Dear Master Excel,
>
>
>Pak Dwint terimakasih atas bantuan nya, hasilnya sempurna persis seperti yang saya harapkan..serta salut terhadap algoritma yang bisa dibuat sederhana. Untuk rekan-rekan yang lain terimakasih atas penjelasannya. Mohon maaf ada sedikit kekeliruan sample yang saya berikan, seperti yang pak dwint jelaskan bahwa data pertama pada kolom C menunjukan banyak data yang berurut di bawahnya, dengan asumsi bahwa seluruh data memiliki pola yang sama, cuma ke bawahnya pada sample terlihat pola yang tidak konsisten, dan benar yang saya maksud adalah untuk setiap data pertama yang ditemukan (Jumlah EGI tiap NRP) tidak dilakukan penulisan ke kolom EGI. berikut juga saya lampirkan sample yang seharusnya.
>
>
>Awalnya agak bingung dengan syntax yang dibuat, namun dari penjelasan yang rekan-rekan berikan akhirnya dapat saya pahami.
>
>
>Salam
>
>
>
>Berni_K
>
>
>
>
>
>
>
>
>
>2013/9/16 Mr. Kid <mr.nmkid@gmail.
>
>
>
>>
>>Justru kalau ada data baru (id baru) yang tidak punya baris jumlah (yang dikuning), maka akan kekurangan 1 item.
>>
>>Sedangkan jika ada id lama tapi membentuk blok data baru yang disertai baris jumlah data (maksudnya seperti yang dikuning itu), maka nilai jumlah data akan masuk ke hasilnya.
>>
>>tapi itu juga cuman dugaan, karena dalam script yang ada adalah pencabangan proses menjadi 2 arah saja, yaitu :
>>
>>arah 1 : belum ada id tersebut dalam tabel hasil, maka akan tulis hasil saat pembacaan pertama di item baru itu. Kemudian lanjut ke baris data berikutnya.
>>
>>arah 2 : sudah ada id tersebut di hasil, maka ambil datanya (meskipun itu baris jumlah subtotal count record di blok data tersebut) untuk digandengkan dengan nilai hasil yang ada di tabel hasil untuk id tersebut.
>>
>>imo,
>>data contohnya tidak mewakili bentuk asli kasusnya.
>>data yang dikuning pun tidak diketahui sudah bawaan dari sana atau hasil pengolahan menggunakan fitur subtotal.
>>dengan kalimat penanya yang menyatakan ada banyak data, bisa diartikan ada banyak record, ada banyak unique id, maupun ada banyak keduanya.
>>
>>bisa jadi data aslinya ndak punya baris-baris yang ada cell kuningnya.
>>
>>
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>
>>2013/
>>
>>
>>>
>>>
>>>
>>> For Each NRP In rgNrp
>>> Set rgFind = Range("
>>>
>>> If rgFind Is Nothing Then
>>> lData = Cells(Rows.Count, 6).End(xlUp)
>>> Cells(lData, 6).Value = NRP.Value
>>> Cells(lData, 7).Value = NRP.Offset(, 1).Value
>>>
>>> Else
>>> lData = rgFind.Row
>>> If Cells(lData, 8).Value = "" Then
>>> Cells(lData, 8).Value = NRP.Offset(, 2).Value
>>> Else
>>> Cells(lData, 8).Value = Cells(lData, 8).Value & ", " & NRP.Offset(, 2).Value
>>> End If
>>> End If
>>> Next NRP
>>>
>>>
NRP dan Nama jika NRP dan Nama belum ada pada kolom hasil, dimana
pada routine tersebut terjadi looping untuk membaca baris per baris,
sehingga terlewat 1 baris nilai EGI untuk diisikan pada
Cells(lData,
pemunculan nama baru.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
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