Senin, 04 Februari 2013

[belajar-excel] Digest Number 2062

15 New Messages

Digest #2062
2a
Re: Mengambil Data Terakhir Inputan by "Mr. Kid" nmkid.family@ymail.com
4.2
Re: Ask : Klarifikasi dengan Fungsi IF, SUMIF by "Mr. Kid" nmkid.family@ymail.com
5a
Re: Menggabungkan Macro Excel dan Visio by "Mr. Kid" nmkid.family@ymail.com
6a
Format date by "Johanes Wawan" johaneswawan
6b
Re: Format date by "Mr. Kid" nmkid.family@ymail.com
6c
Re: Format date by "Mr. Kid" nmkid.family@ymail.com
6d
Re: Format date by "Eka Subyantara"
6e
Re: Format date by "Eka Subyantara"
6f
Re: Format date by johaneswawan

Messages

Mon Feb 4, 2013 1:01 am (PST) . Posted by:

"cindhi dwi" cindhi.nouvie

Assalamualaikum MasTer dan MbaTer....

Saya sedang mencoba membuat macro excel yang bisa mengolah data untuk menentukan nilai tertinggi dari suatu objek yang diambil/unduh dari internet explorer.
Ada ratusan data ber-extensi file *.csv yang harus saya unduh/ambil dari internet explorer, kemudian mengolahnya satu-persatu, Oleh karena itu saya mencoba untuk membuat macronya.

Kendala saya saat ini adalah bagaimana cara untuk mengunduh data excel tersebut secara otomatis dengan menggunakan macro excel.
Setelah saya perhatikan, setiap data *.csv yang saya unduh memiliki alamat yang sama, namun berbeda di table_id nya saja, seperti gambar di bawah ini.

Untuk memasuki alamat di atas memerlukan username dan password (misalkan Username : Cindhi dan password : 12345).

Sebelumnya saya sudah mencoba fasilitas di menu toolbar Data --> From Web, namun gagal.

Selesai semua file diunduh, file tersebut diolah satu persatu untuk dicari nilai maksimumnya seperti gambar di bawah ini.

Kemudian setelah mendapatkan nilai maksimum dari setiap file, maka nilai maksimum tersebut di satukan di tabel berikut ini :

Mohon bantuannya untuk permasalahan saya ini ya MasTer & MbaTer
Contoh file terlampir.
Terimakasih....

Regards,
Cindhi Dwi

Mon Feb 4, 2013 3:15 am (PST) . Posted by:

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

Wa'alaikumussalam Wr. Wb.

Untuk download file, coba lihat disini :
http://www.cpearson.com/Excel/DownloadFile.aspx
atau
http://social.msdn.microsoft.com/Forums/en/isvvba/thread/bd0ee306-7bb5-4ce4-8341-edd9475f84ad

Biasanya, jika harus ada login ke website tujuan, lakukan login melalui IE
dan biarkan tetap aktif, baru jalankan VBA untuk download-nya.
Untuk pengolahan file hasil download, coba search di posting terdahulu di
milis. Sepertinya ada banyak kasus tentang buka tutup file.

Memanfaatkan Web Query :
Andaikan di website bisa muncul bentuk tabel (tanpa perlu download file),
maka usai login dengan IE, bisa dilakukan proses get external data web
query.
Setiap sheet berisi satu koneksi juga bisa. DIatur dengan VBA lalu copas ke
sheet temporary juga bisa.

Wassalam,
Kid.

2013/2/4 cindhi dwi cindhi.nouvie@yahoo.com>

> Assalamualaikum MasTer dan MbaTer....
>
>
> Saya sedang mencoba membuat macro excel yang bisa mengolah data untuk
> menentukan nilai tertinggi dari suatu objek yang diambil/unduh dari
> internet explorer.
> Ada ratusan data ber-extensi file *.csv yang harus saya unduh/ambil dari
> internet explorer, kemudian mengolahnya satu-persatu, Oleh karena itu saya
> mencoba untuk membuat macronya.
>
> Kendala saya saat ini adalah bagaimana cara untuk mengunduh data excel
> tersebut secara otomatis dengan menggunakan macro excel.
> Setelah saya perhatikan, setiap data *.csv yang saya unduh memiliki alamat
> yang sama, namun berbeda di table_id nya saja, seperti gambar di bawah ini.
>
> [image: Inline image 2]
>
> [image: Inline image 3]
>
> Untuk memasuki alamat di atas memerlukan username dan password (misalkan
> Username : Cindhi dan password : 12345).
>
> Sebelumnya saya sudah mencoba fasilitas di menu toolbar Data --> From Web,
> namun gagal.
>
>
> Selesai semua file diunduh, file tersebut diolah satu persatu untuk dicari
> nilai maksimumnya seperti gambar di bawah ini.
> [image: Inline image 6]
>
> Kemudian setelah mendapatkan nilai maksimum dari setiap file, maka nilai
> maksimum tersebut di satukan di tabel berikut ini :
> [image: Inline image 7]
>
>
>
> Mohon bantuannya untuk permasalahan saya ini ya MasTer & MbaTer
> Contoh file terlampir.
> Terimakasih....
>
>
>
> Regards,
> Cindhi Dwi
>
>
>
>

Mon Feb 4, 2013 1:14 am (PST) . Posted by:

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

Berarti ada salah ketik pada penulisan formula ke-3.
Harusnya ketiganya menghasilkan nilai yang sama

Wassalam,
Kid.

2013/2/4 Maya Pada mayapada471@yahoo.com>

> **
>
>
> Siipp...thx Mas Kid...formulanya mantap semua kecuali yang terakhir
> hasilnya tulisan TRUE aja..tp 2 formula cocok...
>
> Salam > Maya
>
> ------------------------------
> *From:* Mr. Kid mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, February 4, 2013 12:21 PM
> *Subject:* Re: [belajar-excel] Mengambil Data Terakhir Inputan
>
>
>
> Wa'alaikumussalam Wr. Wb.
>
> Misal area input data di A2 sampai A456
> yang terinput baru sampai baris A234 dan ada cell kosong diantaranya.
> Data yang diinput selalu bertipe numerik.
> Nilai data terakhir yang diinput :
> =LookUp( 9^9 , $a$2:$a$456 )
> atau
> =VLookUp( 9^9 , $a$2:$a$456 , 1 )
> atau
> =Index( $a$2:$a$456 , Match( 9^9 , $a$2:$a$456 , 1 ) )
>
> dan masih banyak cara lain.
>
> Wassalam,
> Kid.
>
> 2013/2/4 Maya Pada mayapada471@yahoo.com>
>
> **
>
> Assalamu'alalikum wrwb
>
> Hmm nambah lagi nih...pertanyaan..bisa dibantu untukmendapatkan data
> terakhir yang dinput sperti attch berikut.
>
> Salam > Maya
>
>
>
>
>
>
>
>

Mon Feb 4, 2013 1:21 am (PST) . Posted by:

"Jan Raisin"

Wa'alaikumsalam wr. wb.,

bagaimana jika memanfaat fitur Pivot Table-nya Excel aja?
file terlampir

wassalam,

-Miss Jan Raisin-

Pada 4 Februari 2013 15.33, Maya Pada mayapada471@yahoo.com> menulis:

> **
>
>
> Assalamu'alaikum wrwb
>
> Malu nih...mau tambah lagi pertnyaan...lagi semangat belajar..
> Gimana cara menjumlahkan dengan syarat dijumlah dalam hari yang sama
> seperti terlampir..
>
> Wasalam > Maya
>
>
>

Mon Feb 4, 2013 2:52 am (PST) . Posted by:

"Bagus" bagus4bls

Dear Maya;

Mungkin begini:
=IF(A3=A4,"",SUMIF(A$3:A3,A3,C$3:C3))
Copy ke bawah
perhatikan tanda $ nya

Wassalam

~ Bagus ~

----- Original Message -----
From: Maya Pada
To: belajar-excel@yahoogroups.com
Sent: Monday, February 04, 2013 3:33 PM
Subject: [belajar-excel] Menjumlah Dengan Syarat Hari Sama

Assalamu'alaikum wrwb

Malu nih...mau tambah lagi pertnyaan...lagi semangat belajar..
Gimana cara menjumlahkan dengan syarat dijumlah dalam hari yang sama seperti terlampir..

Wasalam > Maya

Mon Feb 4, 2013 3:01 am (PST) . Posted by:

"Eka Subyantara"

Hallo Maya,

Saya gunakan fungsi SUMIF untuk menjumlahkan pada tanggal yang sama,
dan fungsi IF untuk menempatkan jumlah tersebut pada tanggal
perbatasan sebelum pindah tanggal.

Untuk jelasnya silakan dibedah lampirannya ...

= eka =
Berbagi sebisa mungkin

>> Assalamu'alaikum wrwb
>>
>> Malu nih...mau tambah lagi pertnyaan...lagi semangat belajar..
>> Gimana cara menjumlahkan dengan syarat dijumlah dalam hari yang sama
>> seperti terlampir..
>>
>> Wasalam > Maya

Mon Feb 4, 2013 3:01 am (PST) . Posted by:

"summonery" summonery

Penggunaan Lookup untuk mencari angka terakhir yang sesuai kriteria
tertentu (format lookup(... , 1/... , ...), nilai lookup_value haruslah
lebih besar daripada barisan angka yang ada pada lookup_array, jika
tidak maka pada kondisi tertentu hasilnya dimungkinkan tidak benar.
Sebagai
contoh:=LOOKUP(1,{1;1;1;1;#DIV/0!;1;#DIV/0!;1;#DIV/0!;#DIV/0!},{1;2;3;4;\
0;5;0;6;0;0})jawabannya adalah 5, padahal seharusnya 6. Untuk itu nilai
lookup_value haruslah lebih dari 1, misalkan 2)

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, "Mr. Kid" wrote:
>
> Begini saja :
> 1. copas formula ini ke cell F11
>
=LOOKUP(1,1/*(**(Data!$A$9:$A$92=$A11)*****(Data!$D$9:$D$92=$D11)**)*,*
> Data!E$9:E$92*)
>
> 2. copas formula ini ke cell E11
>
=SUMPRODUCT(*(Data!$A$9:$A$92=$A11)***(Data!$D$9:$D$92=$D11)*,Data!F$9:F\
$92)
>
> 3. Copy cell E11 dan F11 dan paste ke kolom-kolom Vol dan Sat lainnya
di
> sheet rekap
>
> 4. Copy E11 sampai kolom terkanan data di baris 11 itu, lalu blok
semua
> data yang butuh formula di kolom E misal dari E12 sampai E39, lalu
paste
>
> 5. baru setelah itu baca-baca dongeng di email tadi ketika akan
beranjak
> tidur, supaya mimpi indah (kalau tidak tersesat)
>
> Wassalam,
> Kid.
>
> 2013/2/4 Panji Hakiki Jamin
>
> > **
> >
> >
> > Masih bingung Mr. Kid..saya coba telaah pelan-pelan solusi dari Mr.
> > Kid..anyway terima kasih banyak
> >
> > wassalam
> > Panji
> >
> >
> > ------------------------------
> > *From:* Mr. Kid
> > *To:* belajar-excel@yahoogroups.com
> > *Sent:* Monday, February 4, 2013 8:55 AM
> >
> > *Subject:* Re: [belajar-excel] Ask : Klarifikasi dengan Fungsi IF,
SUMIF
> >
> >
> > Pak Panji,
> >
> > Asumsi di sheet Rekap :
> > 1. ada kode di kolom A yang diisi oleh user (bukan hasil formula)
> > 2. ada uraian di kolom D yang diisi oleh user (bukan hasil formula)
->
> > jika hasil formula, maka pasti akan ambil yang pertama ditemukan
berdasar
> > nilai kode
> >
> > Formula pada sheet rekap digunakan untuk mengambil data Vol dan Sat
yang
> > bersesuaian saja dari sheet Data, berdasar Kode (kolom A) dan Uraian
(kolom
> > D).
> > 1. Formula untuk kolom Sat di F11 :
> >
=LOOKUP(1,1/*(**(Data!$A$9:$A$92=$A11)*****(Data!$D$9:$D$92=$D11)**)*,
> > *Data!E$9:E$92*)
> > kemudian copy formula ke kolom Sat lainnya.
> > *Biru *: kriteria berdasar kode (kolom A)
> > *Hijau *: kriteria berdasar uraian (kolom D)
> > * : setara logika AND karena seluruh kriteria harus terpenuhi
> > Formula akan selalu mengambil yang terakhir ditemui yang sesuai
> > kriteria.
> >
> > Jika bagian ****(Data!$D$9:$D$92=$D11) *dihilangkan, maka
menjadi
> > lookup berdasar 1 kriteria. Formula vLookUp untuk mendapatkan uraian
juga
> > kegiatan lookup berdasar 1 kriteria. Perbedaannya, pada formula di
atas
> > yang dihilangkan bagian ****(Data!$D$9:$D$92=$D11)* mengambil yang
> > ditemui terakhir, sedang vLookUp dengan match type 0 akan mengambil
yang
> > pertama ditemui.
> >
> > 2. Formula untuk kolom Vol di E11 :
> > yang awalnya berdasar 1 kriteria, yaitu berdasar kolom A saja, yang
> > berbunyi :
> > =SUMPRODUCT(*(Data!$A$9:$A$92=$A11)*1*,Data!F$9:F$92)
> > tampak bahwa kriteria-kriteria yang lain (selain kolom A) dalam
formula
> > tersebut dianggap cocok (*1*) tanpa perlu diperiksa lagi.
> >
> > Ketika ada kriteria yang butuh diperiksa dulu, maka susunan *1*
diubah
> > menjadi bentuk perbandingan kriteria yang harus diperiksa.
> > Kriteria selain kolom A yang akan diperiksa adalah berdasar kolom D
yang
> > bunyi perbandingannya adalah :
> > *(Data!$D$9:$D$92=$D11)*
> > Maka *1* diubah menjadi *(Data!$D$9:$D$92=$D11)* dan formula akan
menjadi
> > berbunyi :
> > =SUMPRODUCT(*(Data!$A$9:$A$92=$A11)***(Data!$D$9:$D$92=$D11)*
> > ,Data!F$9:F$92)
> >
> > Jika kuatir lupa dihari-hari depan bahwa bentuk seperti itu masih
bisa
> > dikomputasi berdasar sekiun (saking buanyaknya) kriteria yang harus
> > diperiksa, maka tambahkan lagi sebagai bunyi 'kriteria lain
dianggap cocok
> > (*1*) tanpa perlu diperiksa', sehingga kelak akan ingat lagi dengan
> > thread ini.
> > =SUMPRODUCT(*(Data!$A$9:$A$92=$A11)***(Data!$D$9:$D$92=$D11)***1*
> > ,Data!F$9:F$92)
> >
> > Menggunakan formula Index Match juga bisa. Nah untuk pustaka Index
Match
> > ini, kita tunggu BeExceller lain yang punya waktu luang untuk
mencet-mencet
> > keyboard susun kalimat dongengnya....
> >
> > Wassalam,
> > Kid.
> >
> > 2013/2/4 Panji Hakiki Jamin
> >
> > **
> >
> > Terima kasih banyak bantuannya Mr. Kid.
> > Ada sedikit pertanyaan lagi tentang fungsi tersebut :
> > >> Bagaimana rumus yg akan digunakan untuk fungsi penjumlahan
apabila kita
> > salah menuliskan kode di sheet Data sehingga penjumlahan tidak hanya
dengan
> > kode di kolom A tetapi cross check dengan uraian pekerjaan di sheet
Data.
> >
> > ex : kolom A9 di sheet Data dengan uraian di kolom D9 adalah A001
dengan
> > vol F9, apabila kita memasukkan dengan kode yang sama di kolom A21
di sheet
> > Data dengan uraian di kolom D21 dan vol F21, bagaimana menuliskan
rumus
> > fungsi penjumlahan untuk cross check tidak hanya dengan kode di
kolom A
> > tetapi juga dengan uraian di kolom D, sehingga penjumlahan tersebut
> > benar-benar sesuai dengan kode dan uraian pekerjaan
> >
> > Terima kasih,
> > Panji Hakiki
> >
> >
> > ------------------------------
> > *From:* Mr. Kid
> > *To:* belajar-excel@yahoogroups.com
> > *Sent:* Sunday, February 3, 2013 9:45 PM
> >
> > *Subject:* Re: [belajar-excel] Ask : Klarifikasi dengan Fungsi IF,
SUMIF
> >
> >
> > Sekedar pustaka fungsi :
> > 1. Uraian pekerjaan (D11) ambil data dari sheet sebelah berdasar
kode di
> > A11 :
> > =VLOOKUP($A11,Data!$A$9:D$92,4,0)
> > Bahasa manusianya :
> > "ambil kolom ke-4 dari A9:D9 di sheet Data untuk nilai kode di sheet
data
> > kolom pertama dari A9:D92 [artinya kolom A-nya] bernilai persis sama
(,0)
> > dengan kode di A11 sheet rekap."
> >
> > 2. Untuk kolom Sat di F11 ambil data di kolom E sheet Data berdasar
nilai
> > A11 yang harus sama dengan nilai di kolom A sheet Data
> > =VLOOKUP($A11,Data!$A$9:F$92,COLUMN()-1,0)
> > >> karena formula ditulis di kolom F (cell F11), maka hasil dari
fungsi
> > Column() adalah 6 [kolom F adalah kolom ke-6 Excel]
> > >> karena lokasi pengambilan data di sheet Data adalah pada kolom E,
maka
> > hasil Column() dikurangi 1
> > >> karena struktur kolom Sat pada tabel di sheet data adalah sama
dengan
> > struktur kolom Sat di sheet rekap, maka rujukan referensi ke sheet
Data
> > dibuat tidak absolut kolom akhir [Data!$A$9:F$92] (perhatikan tidak
adanya
> > karakter $ pada sisi kolom F setelah karakter ':' yang berarti
'sampai
> > dengan' )
> > >> formula bisa di-copy ke kolom Sat lainnya di sheet Rekap
> >
> > 3. Untuk kolom Vol di E11 ambil data di kolom F sheet Data selama
> > recordnya memiliki kode (kolom A) yang sama dengan kode di A11 sheet
rekap.
> > =SUMPRODUCT( (Data!$A$9:$A$92=$A11)*1 , Data!F$9:F$92 )
> > >> Kriteria : kolom A sheet Data sama dengan nilai A11 di sheet
rekap [
> > (Data!$A$9:$A$92=$A11) ]
> > >> hasil bunyi kriteria tersebut adalah nilai TRUE/FALSE yang
bertipe
> > Boolean
> > >> agar menjadi numerik, maka dikonversi dengan mengalikannya dengan
angka
> > 1, sehingga TRUE akan menjadi 1 dan FALSE akan menjadi 0.
> > >> deretan hasil kriteria akan dikalikan dengan nilai Vol yang akan
> > diambil [ Data!F$9:F$92 ]
> > >> karena dikuatirkan adanya data bertipe Text pada area
Data!F$9:F$92 ,
> > maka Data!F$9:F$92 diletakkan sebagai array data ke-2 dalam
SumProduct.
> > >> Jika pasti Data!F$9:F$92 selalu bertipe numerik, maka karakter
bagian
> > teks [*1 ,] dalam formula SumProduct bisa diganti dengan operator
perkalian
> > '*' yang setara dengan logika AND menjadi :
> > =SUMPRODUCT( (Data!$A$9:$A$92=$A11) * Data!F$9:F$92 )
> >
> > Wassalam,
> > Kid.
> >
> >
> > 2013/2/1 Panji Hakiki Jamin
> >
> > **
> >
> > Selamat malam semua angota Milis,
> >
> > Saya kebingungan untuk hasil rekapitulasi dari beberapa data yang
sama dan
> > menuliskan data tersebut serta menjumlahkan data ke sheet yang
berbeda.
> > Mohon bantuannya untuk menyelesaikan permasalahan tersebut..Data
terlampir
> >
> > Terima kasih
> > Panji
> >
> >
> >
> >
> >
> >
> >
> >
> >
>

Mon Feb 4, 2013 3:08 am (PST) . Posted by:

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

Yup.. thanks Pak Anton.

Wassalam,
Kid.

2013/2/4 summonery summonery@yahoo.com>

> **
>
>
> Penggunaan Lookup untuk mencari angka terakhir yang sesuai kriteria
> tertentu (format lookup(... , 1/... , ...), nilai lookup_value haruslah
> lebih besar daripada barisan angka yang ada pada lookup_array, jika tidak
> maka pada kondisi tertentu hasilnya dimungkinkan tidak benar.
>
> Sebagai contoh:
> =LOOKUP(1
> ,{1;1;1;1;#DIV/0!;1;#DIV/0!;1;#DIV/0!;#DIV/0!},{1;2;3;4;0;5;0;6;0;0})
> jawabannya adalah 5, padahal seharusnya 6. Untuk itu nilai lookup_value
> haruslah lebih dari 1, misalkan 2)
>
>
> >semoga bermanfaat
>
>
> --- In belajar-excel@yahoogroups.com, "Mr. Kid" wrote:
> >
> > Begini saja :
> > 1. copas formula ini ke cell F11
> > =LOOKUP(1,1/*(**(Data!$A$9:$A$92=$A11)*****(Data!$D$9:$D$92=$D11)**)*,*
> > Data!E$9:E$92*)
>
> >
> > 2. copas formula ini ke cell E11
> >
> =SUMPRODUCT(*(Data!$A$9:$A$92=$A11)***(Data!$D$9:$D$92=$D11)*,Data!F$9:F$92)
>
> >
> > 3. Copy cell E11 dan F11 dan paste ke kolom-kolom Vol dan Sat lainnya di
> > sheet rekap
> >
> > 4. Copy E11 sampai kolom terkanan data di baris 11 itu, lalu blok semua
> > data yang butuh formula di kolom E misal dari E12 sampai E39, lalu paste
> >
> > 5. baru setelah itu baca-baca dongeng di email tadi ketika akan beranjak
> > tidur, supaya mimpi indah (kalau tidak tersesat)
> >
> > Wassalam,
> > Kid.
> >
> > 2013/2/4 Panji Hakiki Jamin
> >
> > > **
>
> > >
> > >
> > > Masih bingung Mr. Kid..saya coba telaah pelan-pelan solusi dari Mr.
> > > Kid..anyway terima kasih banyak
> > >
> > > wassalam
> > > Panji
> > >
> > >
> > > ------------------------------
> > > *From:* Mr. Kid
> > > *To:* belajar-excel@yahoogroups.com
> > > *Sent:* Monday, February 4, 2013 8:55 AM
> > >
> > > *Subject:* Re: [belajar-excel] Ask : Klarifikasi dengan Fungsi IF,
> SUMIF
>
> > >
> > >
> > > Pak Panji,
> > >
> > > Asumsi di sheet Rekap :
> > > 1. ada kode di kolom A yang diisi oleh user (bukan hasil formula)
> > > 2. ada uraian di kolom D yang diisi oleh user (bukan hasil formula) ->
> > > jika hasil formula, maka pasti akan ambil yang pertama ditemukan
> berdasar
> > > nilai kode
> > >
> > > Formula pada sheet rekap digunakan untuk mengambil data Vol dan Sat
> yang
> > > bersesuaian saja dari sheet Data, berdasar Kode (kolom A) dan Uraian
> (kolom
> > > D).
> > > 1. Formula untuk kolom Sat di F11 :
> > > =LOOKUP(1,1/*(**(Data!$A$9:$A$92=$A11)*****(Data!$D$9:$D$92=$D11)**)*,
> > > *Data!E$9:E$92*)
>
> > > kemudian copy formula ke kolom Sat lainnya.
> > > *Biru *: kriteria berdasar kode (kolom A)
> > > *Hijau *: kriteria berdasar uraian (kolom D)
>
> > > * : setara logika AND karena seluruh kriteria harus terpenuhi
> > > Formula akan selalu mengambil yang terakhir ditemui yang sesuai
> > > kriteria.
> > >
> > > Jika bagian ****(Data!$D$9:$D$92=$D11) *dihilangkan, maka menjadi
>
> > > lookup berdasar 1 kriteria. Formula vLookUp untuk mendapatkan uraian
> juga
> > > kegiatan lookup berdasar 1 kriteria. Perbedaannya, pada formula di atas
> > > yang dihilangkan bagian ****(Data!$D$9:$D$92=$D11)* mengambil yang
>
> > > ditemui terakhir, sedang vLookUp dengan match type 0 akan mengambil
> yang
> > > pertama ditemui.
> > >
> > > 2. Formula untuk kolom Vol di E11 :
> > > yang awalnya berdasar 1 kriteria, yaitu berdasar kolom A saja, yang
> > > berbunyi :
> > > =SUMPRODUCT(*(Data!$A$9:$A$92=$A11)*1*,Data!F$9:F$92)
>
> > > tampak bahwa kriteria-kriteria yang lain (selain kolom A) dalam formula
> > > tersebut dianggap cocok (*1*) tanpa perlu diperiksa lagi.
> > >
> > > Ketika ada kriteria yang butuh diperiksa dulu, maka susunan *1* diubah
>
> > > menjadi bentuk perbandingan kriteria yang harus diperiksa.
> > > Kriteria selain kolom A yang akan diperiksa adalah berdasar kolom D
> yang
> > > bunyi perbandingannya adalah :
> > > *(Data!$D$9:$D$92=$D11)*
> > > Maka *1* diubah menjadi *(Data!$D$9:$D$92=$D11)* dan formula akan
> menjadi
> > > berbunyi :
> > > =SUMPRODUCT(*(Data!$A$9:$A$92=$A11)***(Data!$D$9:$D$92=$D11)*
>
> > > ,Data!F$9:F$92)
> > >
> > > Jika kuatir lupa dihari-hari depan bahwa bentuk seperti itu masih bisa
> > > dikomputasi berdasar sekiun (saking buanyaknya) kriteria yang harus
> > > diperiksa, maka tambahkan lagi sebagai bunyi 'kriteria lain dianggap
> cocok
> > > (*1*) tanpa perlu diperiksa', sehingga kelak akan ingat lagi dengan
> > > thread ini.
> > > =SUMPRODUCT(*(Data!$A$9:$A$92=$A11)***(Data!$D$9:$D$92=$D11)***1*
>
> > > ,Data!F$9:F$92)
> > >
> > > Menggunakan formula Index Match juga bisa. Nah untuk pustaka Index
> Match
> > > ini, kita tunggu BeExceller lain yang punya waktu luang untuk
> mencet-mencet
> > > keyboard susun kalimat dongengnya....
> > >
> > > Wassalam,
> > > Kid.
> > >
> > > 2013/2/4 Panji Hakiki Jamin
> > >
> > > **
>
> > >
> > > Terima kasih banyak bantuannya Mr. Kid.
> > > Ada sedikit pertanyaan lagi tentang fungsi tersebut :
> > > >> Bagaimana rumus yg akan digunakan untuk fungsi penjumlahan apabila
> kita
> > > salah menuliskan kode di sheet Data sehingga penjumlahan tidak hanya
> dengan
> > > kode di kolom A tetapi cross check dengan uraian pekerjaan di sheet
> Data.
> > >
> > > ex : kolom A9 di sheet Data dengan uraian di kolom D9 adalah A001
> dengan
> > > vol F9, apabila kita memasukkan dengan kode yang sama di kolom A21 di
> sheet
> > > Data dengan uraian di kolom D21 dan vol F21, bagaimana menuliskan rumus
> > > fungsi penjumlahan untuk cross check tidak hanya dengan kode di kolom A
> > > tetapi juga dengan uraian di kolom D, sehingga penjumlahan tersebut
> > > benar-benar sesuai dengan kode dan uraian pekerjaan
> > >
> > > Terima kasih,
> > > Panji Hakiki
> > >
> > >
> > > ------------------------------
> > > *From:* Mr. Kid
> > > *To:* belajar-excel@yahoogroups.com
> > > *Sent:* Sunday, February 3, 2013 9:45 PM
> > >
> > > *Subject:* Re: [belajar-excel] Ask : Klarifikasi dengan Fungsi IF,
> SUMIF
>
> > >
> > >
> > > Sekedar pustaka fungsi :
> > > 1. Uraian pekerjaan (D11) ambil data dari sheet sebelah berdasar kode
> di
> > > A11 :
> > > =VLOOKUP($A11,Data!$A$9:D$92,4,0)
> > > Bahasa manusianya :
> > > "ambil kolom ke-4 dari A9:D9 di sheet Data untuk nilai kode di sheet
> data
> > > kolom pertama dari A9:D92 [artinya kolom A-nya] bernilai persis sama
> (,0)
> > > dengan kode di A11 sheet rekap."
> > >
> > > 2. Untuk kolom Sat di F11 ambil data di kolom E sheet Data berdasar
> nilai
> > > A11 yang harus sama dengan nilai di kolom A sheet Data
> > > =VLOOKUP($A11,Data!$A$9:F$92,COLUMN()-1,0)
> > > >> karena formula ditulis di kolom F (cell F11), maka hasil dari fungsi
> > > Column() adalah 6 [kolom F adalah kolom ke-6 Excel]
> > > >> karena lokasi pengambilan data di sheet Data adalah pada kolom E,
> maka
> > > hasil Column() dikurangi 1
> > > >> karena struktur kolom Sat pada tabel di sheet data adalah sama
> dengan
> > > struktur kolom Sat di sheet rekap, maka rujukan referensi ke sheet Data
> > > dibuat tidak absolut kolom akhir [Data!$A$9:F$92] (perhatikan tidak
> adanya
> > > karakter $ pada sisi kolom F setelah karakter ':' yang berarti 'sampai
> > > dengan' )
> > > >> formula bisa di-copy ke kolom Sat lainnya di sheet Rekap
> > >
> > > 3. Untuk kolom Vol di E11 ambil data di kolom F sheet Data selama
> > > recordnya memiliki kode (kolom A) yang sama dengan kode di A11 sheet
> rekap.
> > > =SUMPRODUCT( (Data!$A$9:$A$92=$A11)*1 , Data!F$9:F$92 )
> > > >> Kriteria : kolom A sheet Data sama dengan nilai A11 di sheet rekap [
> > > (Data!$A$9:$A$92=$A11) ]
> > > >> hasil bunyi kriteria tersebut adalah nilai TRUE/FALSE yang bertipe
> > > Boolean
> > > >> agar menjadi numerik, maka dikonversi dengan mengalikannya dengan
> angka
> > > 1, sehingga TRUE akan menjadi 1 dan FALSE akan menjadi 0.
> > > >> deretan hasil kriteria akan dikalikan dengan nilai Vol yang akan
> > > diambil [ Data!F$9:F$92 ]
> > > >> karena dikuatirkan adanya data bertipe Text pada area Data!F$9:F$92
> ,
> > > maka Data!F$9:F$92 diletakkan sebagai array data ke-2 dalam SumProduct.
> > > >> Jika pasti Data!F$9:F$92 selalu bertipe numerik, maka karakter
> bagian
> > > teks [*1 ,] dalam formula SumProduct bisa diganti dengan operator
> perkalian
> > > '*' yang setara dengan logika AND menjadi :
> > > =SUMPRODUCT( (Data!$A$9:$A$92=$A11) * Data!F$9:F$92 )
> > >
> > > Wassalam,
> > > Kid.
> > >
> > >
> > > 2013/2/1 Panji Hakiki Jamin
> > >
> > > **
>
> > >
> > > Selamat malam semua angota Milis,
> > >
> > > Saya kebingungan untuk hasil rekapitulasi dari beberapa data yang sama
> dan
> > > menuliskan data tersebut serta menjumlahkan data ke sheet yang berbeda.
> > > Mohon bantuannya untuk menyelesaikan permasalahan tersebut..Data
> terlampir
> > >
> > > Terima kasih
> > > Panji
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> >
>
>
>

Mon Feb 4, 2013 4:13 am (PST) . Posted by:

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

Wa'alaikumussalam Wr. Wb.

Cara buat :
1. Buka file visio (cukup buka file yang berisi page yang akan diubah
nilainya saja, yang lain ditutup)
2. buka file excel berisi data
3. ke VBE dengan menekan ALT F11
4. menu Insert -> Module
5. copas script ini ke sana :
'anggap saja nama shape visio untuk data no 1 bernama shape1
public sub *GantiTeksVisio*()
dim visApp as object, visShape as object
set visapp=getobject( , "Visio.Application";)

'misal untuk shape visio bernama shape1 akan diisi dengan teks dari cell
c2 digabung dengan isi d2
'lakukan juga untuk shape yang lain dengan mengganti nama shape dan
rujukan range c2 dan d2
'ganti chr$(10) dengan " " jika ingin diubah dari karakter enter menjadi
spasi sebagai jarak antar nilainya
visapp.activepage.shapes("shape1").text = activesheet.range("c2").value
& chr$(10) & activesheet.range("d2").text
end sub

6. kembali ke worksheet dengan menekan ALT F11
7. save as file dengan ALT F lalu tekan A -> pilih save as type adalah xlsm
-> tekan Save

Cara jalankan :
1. Buka file visio (cukup buka file yang berisi page yang akan diubah
nilainya saja, yang lain ditutup)
2. Buka file berekstensi xlsm hasil save as saat buat Macro
3. aktifkan cell A1 di sheet data sumber visio
4. jalankan macro dengan menekan ALT F8 -> pilih nama macro
*GantiTeksVisio*-> tekan Run

nah... yang jadi masalah,
script di atas hanya hasil imajinasi karena ndak punya visio.

silakan mempelajari dasar-dasar Macro (di folder milis [lihat di website
milis]).

semoga ada BeExceller yang punya visio yang menyempurnakan script diatas
kalau memungkinkan untuk diperbaiki.

Wassalam,
Kid.

2013/2/4 Mila Gautama fehlerfinder@ymail.com>

> **
>
>
>
> Assalamualaikum para Master....
>
> Saya seorang newbie dalam ilmu macro excel. Kali ini saya ingin mencoba
> untuk membuat macro excel yang bisa link ke aplikasi lainnya (dalam kasus
> ini adalah Microsoft Visio).
> Begini cara kerjanya :
>
> [image: Inline image 1]
>
> Nilai pada Kolom "Habis (%)" dimasukkan ke dalam chart di Visio, seperti
> gambar di bawah ini.
>
> [image: Inline image 2]
>
> Selama ini saya melakukannya manual, namun datanya semakin banyak dan
> sulit untuk dilakukan manual lagi.
> Saya sudah mencoba untuk me-record macro dari excel maupun dari visio,
> namun ketika di-run ulang, tidak berhasil. Mungkin karena menggabungkan dua
> aplikasi yang berbeda, jadi tidak bisa.
> Mohon bantuan para Master untuk kasus ini ya...
> Terimakasih....
> **terlampir contoh filenya.
>
>
> Regards,
> Milla
>
>
>
>
>
>

Mon Feb 4, 2013 4:48 am (PST) . Posted by:

"Johanes Wawan" johaneswawan

Dear master excel,
 
 
Mohon bantuan untuk file terlampir.
dg mengubah bulan dan tahun saja tetapi tanggal tetap sama.
 
thank's
 
 
Salam,
Wawan

Mon Feb 4, 2013 4:59 am (PST) . Posted by:

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

Hai Wawan,

Misal data tanggal di A2, pada cell hasil diberi formula :
=Date( 2012 , 12 , Day( a2 ) )

Jika ingin tahunnya selalu +1 dari tahun di A2 :
=Date( Year( a2 ) , 12 , Day( a2 ) )

Wassalam,
Kid.

2013/2/4 Johanes Wawan johaneswawan@yahoo.co.id>

> **
>
>
> Dear master excel,
>
>
> Mohon bantuan untuk file terlampir.
> dg mengubah bulan dan tahun saja tetapi tanggal tetap sama.
>
> thank's
>
>
> Salam,
> Wawan
>
>
>

Mon Feb 4, 2013 5:01 am (PST) . Posted by:

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

Eh lupa belum ditambah 1
=Date( Year( a2 ) , 12 , Day( a2 ) ) -> menghasilkan tahun yang sama
dengan a2 tapi bulan desember pada tanggal yang sama dengan a2
=Date( Year( a2 ) + , 12 , Day( a2 ) ) -> tahunnya ditambah 1

hehehe... maaf... khilaf.

Wassalam,
Kid.

2013/2/4 Mr. Kid mr.nmkid@gmail.com>

> Hai Wawan,
>
> Misal data tanggal di A2, pada cell hasil diberi formula :
> =Date( 2012 , 12 , Day( a2 ) )
>
> Jika ingin tahunnya selalu +1 dari tahun di A2 :
> =Date( Year( a2 ) , 12 , Day( a2 ) )
>
> Wassalam,
> Kid.
>
>
>
> 2013/2/4 Johanes Wawan johaneswawan@yahoo.co.id>
>
>> **
>>
>>
>> Dear master excel,
>>
>>
>> Mohon bantuan untuk file terlampir.
>> dg mengubah bulan dan tahun saja tetapi tanggal tetap sama.
>>
>> thank's
>>
>>
>> Salam,
>> Wawan
>>
>>
>>
>
>

Mon Feb 4, 2013 5:23 am (PST) . Posted by:

"Eka Subyantara"

Dear Pak Wawan,

Bila format tanggal yang digunakan adalah "dd/mm/yyyy"
maka tampilannya berbeda dengan hasil yang dicontohkan (HIJAU).

Bila hasilnya harus sama dengan contoh yang diberikan,
maka rumusnya seperti yang digunakan di daerah KUNING,
TETAPI itu bukanlah bulan desember !!!

Silakan ditelaah lampirannya ...

= eka =
Berbagi selagi mampu

--- Mods ---
Sabarlah menunggu lampiran yang tertinggal
------------

On 2/4/13, Johanes Wawan wrote:
> Dear master excel,
>
>
> Mohon bantuan untuk file terlampir.
> dg mengubah bulan dan tahun saja tetapi tanggal tetap sama.
>
> thank's
>
>
> Salam,
> Wawan

Mon Feb 4, 2013 5:31 am (PST) . Posted by:

"Eka Subyantara"

Maaf lampirannya ketinggalan .. :-)

On 2/4/13, Eka Subyantara ekasubyantara@gmail.com> wrote:
> Dear Pak Wawan,
>
> Bila format tanggal yang digunakan adalah "dd/mm/yyyy"
> maka tampilannya berbeda dengan hasil yang dicontohkan (HIJAU).
>
> Bila hasilnya harus sama dengan contoh yang diberikan,
> maka rumusnya seperti yang digunakan di daerah KUNING,
> TETAPI itu bukanlah bulan desember !!!
>
> Silakan ditelaah lampirannya ...
>
> = eka =
> Berbagi selagi mampu

Mon Feb 4, 2013 6:35 am (PST) . Posted by:

johaneswawan

Pak eka, jika regional settingnya pakai indonesia, short date dd/mm/yy mengapa hasilnya beda dari warna kuning ?
Sample kolom C4 hslnya 02/12/12
Yg shrsnya 01/12/12
Thank's

Salam,
Wawan

Sent from BlackBerry® on 3

-----Original Message-----
From: Eka Subyantara ekasubyantara@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Mon, 4 Feb 2013 20:24:14
To: belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Format date

Maaf lampirannya ketinggalan .. :-)

On 2/4/13, Eka Subyantara ekasubyantara@gmail.com> wrote:
> Dear Pak Wawan,
>
> Bila format tanggal yang digunakan adalah "dd/mm/yyyy"
> maka tampilannya berbeda dengan hasil yang dicontohkan (HIJAU).
>
> Bila hasilnya harus sama dengan contoh yang diberikan,
> maka rumusnya seperti yang digunakan di daerah KUNING,
> TETAPI itu bukanlah bulan desember !!!
>
> Silakan ditelaah lampirannya ...
>
> = eka =
> Berbagi selagi mampu

GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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