15 Messages
Digest #2826
8b
Re: Menggabungkan data beberapa file berdasarkan tanggal [1 Attachme by "Mr. Kid" nmkid.family@ymail.com
Messages
Wed Mar 12, 2014 3:25 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Ratri,
oh ternyata pengen edit langsung di setiap item ya...
hehehehe.....
biasanya kalau akan edit listview adalah menggunakan controls lain. Jadi
kolom ke-1 diletakkan di sebuah textbox, kolom ke-2 di sebuah combobox dan
seterusnya dan pada listview dipastikan bahwa beberapa properti ditata
sebagai berikut :
1. LabelEdit diset 1 atau lvwmanual
2. MultiSelect diset False
3. HoverSelection diset False
Pada event click atau item click diberi baris-baris kode untuk menyalin
nilai dari* item listview terpilih* (sudah disediakan variabel bernama item
oleh si event click) ke kontrol lain yang bersesuaian.
Ketika user sudah selesai mengedit di controls lain tersebut dan menekan
sebuah tombol simpan, maka item listview terpilih tadi bisa didapatkan
nomor indeks barisnya dengan :
dim lidx as long
lidx=nama_listviewnya.selecteditem.index
lalu diberi proses penulisan ke listview seperti nomor 1 sampai 10 di email
lalu...
hehehe... yang diatas itu biasanya sudah pada bisa karena mirip combobox
atau listbox..
btw,
kalau pengen langsung di listviewnya (klik listview, item terpilih di ubah
nilainya langsung ditempat, tekan enter maka ter-update), sepertinya salah
pilih controls. Coba data grid controls daripada listview kalau mau seperti
itu.
oh iya...
Pastikan seluruh computer yang akan menggunakan workbook yang berisi
listview memiliki library bernama mscomctl.ocx yang teregister (cara
meregister menggunakan regsvr32) di OS. Jika belum ada library tersebut
yang terigister di OS, maka listview tidak akan bisa digunakan.
Wassalam,
Kid.
2014-03-12 16:18 GMT+07:00 Ratri Risyanto <risyanto12@yahoo.com>:
>
>
> Halo Mr. Kid
>
> Mohon maaf atas subjectnya, karena ketidak-tahuan saya,. kedepannya tidak
> saya ulangi lagi.
> Kalau yang saya maksud edit listview-nya adalah, pada saat cursor mouse
> saya arahkan dan klik kanan sekali ke listsubitem (atau juga listitem kolom
> 1) tertentu , lalu saya ketikkan suatu huruf / angka/ karakter lain maka
> akan terinput datanya , mohon berikan contoh code-nya, Terima kasih.
>
> Hs,
> Ratri R
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *Sent:* Wednesday, March 12, 2014 5:04 AM
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Subject:* Re: [belajar-excel] EDIT LISTVIEW VBA EXCEL
>
>
>
> Hai Ratri,
>
> *** imho, subject email pada posting berikutnya tidak perlu semuanya huruf
> kapital, karena huruf kapital pada sebuah kalimat dalam dunia maya sering
> diartikan sedang membentak...
>
>
> Misal :
> a. dimiliki sebuah listvew dengan nama lvw,
> b. memiliki headers,
> c. jumlah kolom dalam lvw ada 3 kolom,
> d. jumlah list item dalam lvw ada 7 baris.
>
>
> 1. Mari kenali control object listview
>
> *lvw.columnheaders(1)
> lvw.columnheaders(2)
> lvw.columnheaders(3) *
> lvw.listitems(1)
> lvw.listitems(1).listsubitems(1)
> lvw.listitems(1).listsubitems(2)
> lvw.listitems(2)
> lvw.listitems(2).listsubitems(1)
> lvw.listitems(2).listsubitems(2)
> lvw.listitems(3)
> lvw.listitems(3).listsubitems(1)
> lvw.listitems(3).listsubitems(2)
> lvw.listitems(4)
> lvw.listitems(4).listsubitems(1)
> lvw.listitems(4).listsubitems(2)
> lvw.listitems(5)
> lvw.listitems(5).listsubitems(1)
> lvw.listitems(5).listsubitems(2)
> lvw.listitems(6)
> lvw.listitems(6).listsubitems(1)
> lvw.listitems(6).listsubitems(2)
> lvw.listitems(7)
> lvw.listitems(7).listsubitems(1)
> lvw.listitems(7).listsubitems(2)
>
> >> jadi,
> a. columnheaders adalah base 1 (kolom ke-1 diberi nilai indeks bernilai 1)
> b. baris data pada kolom ke-1 diakses dengan properti listitems yang
> diikuti dengan indeks baris
> c. baris pada listview adalah base 1 (baris ke-1 diberi nilai indeks
> bernilai 1)
> d. subitems dalam listview dimulai dari kolom ke-2 dan menggunakan base 1
> (subitem ke-1 yang ada di kolom ke-2 diberi nilai indeks 1)
> e. seluruh nilai indeks yang relatif terhadap setiap properti
> (columnheaders, listitems, listsubitems) dimulai dari 1 dan seterusnya
>
> 2. edit header listview lvw
> >> ganti text header kolom ke-2 menjadi 'Kid'
> *lvw.columnheaders(2).text="Kid"*
>
> 3. edit baris ke-3 pada kolom ke 1 menjadi 'Kid baris ke-3'
> >> berarti pada lvw.listitems(3)
> lvw.listitems(3).text ="Kid baris ke-3"
>
> 4. edit baris ke-7 pada kolom ke 3 menjadi 'Kid baris ke-6 kolom 3'
> >> berarti pada subitems ke-2 karena pada kolom ke-3
> >> berarti pada baris ke-7 menggunakan lvw.listitems(7).listsubitems(2)
> lvw.listitems(7).listsubitems(2).text="Kid baris ke-6 kolom 3"
>
> 5. edit baris ke-3 pada kolom ke 1 menjadi 'Kid baris ke-3' dan edit baris
> ke-7 pada kolom ke 3 menjadi 'Kid baris ke-6 kolom 3'
> >> seperti nomor 3 dan 4 tapi dilakukan pada sebuah event
> lvw.listitems(3).text ="Kid baris ke-3"
> lvw.listitems(7).listsubitems(2).text="Kid baris ke-6 kolom 3"
>
> 6. edit baris 3 sampai 5 pada kolom ke-1 agar berisi nomor id dari 13
> sampai 15
> >> berarti pakai lvw.listitems(3) sampai lvw.listitems(5) dan yang berubah
> adalah nomor indeks nya, yaitu dari 3 sampai 5
> >> teks isian adalah 13 sampai 15, berarti setara dengan komputasi
> matematis 10 ditambah dengan nomor indeks nya
> dim *lidx *as long
> for *lidx *=3 to 5
> lvw.listitems( *lidx *).text = 10 + *lidx *
> next *lidx *
>
> 7. edit baris ke 1 sampai ke 7 pada kolom ke-3 dengan suatu nilai numerik
> dari 1000 sampai 7000
> >> kolom ke-3 berarti listsubitems ke-2 pada indeks mulai dari 1 sampai 7
> >> berarti, menggunakan lvw.listitems(*1*).listsubitems(2) sampai
> lvw.listitems(*7*).listsubitems(2)
> >> teks pengisinya adalah 1000 sampai 7000 (komputasi matematis nomor
> indeks dikali 1000)
> dim *lidx *as long
> for *lidx *=1 to 7
> lvw.listitems( *lidx *).listsubitems(2) .text =
> *lidx * 1000*
> next *lidx *
>
> 8. ternyata, nomor 7 di atas pengen diganti menjadi seluruh baris yang ada
> dalam listview
> >> jumlah seluruh baris yang ada dalam listview adalah*
> lvw.listitems.count*
> >> kolom ke-3 berarti listsubitems ke-2 pada indeks mulai dari 1 sampai
> *lvw.listitems.count*
> >> berarti, menggunakan lvw.listitems(*1*).listsubitems(2) sampai
> lvw.listitems( * lvw.listitems.count *).listsubitems(2)
> >> teks pengisinya adalah 1000, 2000, dan seterusnya mengikuti nomor
> indeks (komputasi matematis nomor indeks dikali 1000)
> dim *lidx *as long
> for *lidx *=1 to *lvw.listitems.count*
> lvw.listitems( *lidx *).listsubitems(2) .text =
> *lidx * 1000*
> next *lidx *
>
> 9. eh nomor 9 itu bisa muncul error kalo gak ada baris apapun dalam
> listview, gimana dong ??? bingung nih... sampai hampir putus asa error
> mulu...
> >> sebelum blok perulangan (loop) dengan statement for next, dilakukan
> pemeriksaan terhadap jumlah baris yang ada dalam listview
> >> jumlah baris dalam listview adalah ..... (apa hayo... masih perlu
> ditulis disini ? jiaaahhh)
> >> blok loop boleh dikerjakan kalau jumlah baris dalam listview harus
> lebih dari 0
> dim *lidx *as long
> if *lvw.listitems.count *> 0 then
> for *lidx *=1 to *lvw.listitems.count*
> lvw.listitems( *lidx *).listsubitems(2) .text =
> *lidx * 1000*
> next *lidx *
> endif
>
> 10. le.... yang simbah pengen ganti itu cuman baris 1,2,5 sama 7 tok
> til... kolomnya yang kolom ke-2, diisi dengan teks status berbunyi 'OK'.
> Piye le...
> >> nyuwun pangapunten mbah....
> >> simbah kedah maos bab for each next rumiyen mbah...
> >> mangkeh, cekrip ipun kados mekaten :
> dim *vidx *as *variant*
> for each *vidx *in array( 1, 2, 5, 7 )
> lvw.listitems( *vidx *).listsubitems(1).text = "OK"
> next vidx
>
> simbah : "kok error terus le..."
> tole : "lha simbah sampun maos bab for each next dereng mbah ?"
> simbah : "uwis, ning tulisane bab kuwi kok blawur ya... huruf e dadi
> gedrik kabeh tur dadi loro-loro kabeh..."
> tole : (membatin) "ya iyalah... lah bacanya gak pake kacamata... wis
> jan... sing waras ngalah wae lah"
>
> ;)
>
> sepertinya 10 item cukup buat acara edit-editan kan ya...
> moga-moga ada yang berbaik hati memasang 10 item diatas menjadi sebuah
> file ya... (maaf, gak sempet... harus siap-siap berangkat)
>
> Wassalam,
> Kid.
>
>
>
>
> 2014-03-11 20:14 GMT+07:00 Ratri Risyanto <risyanto12@yahoo.com>:
>
>>
>> Hallo All Master Excel,
>>
>>
>> Bagaimana cara edit listview / edit subitem listview / editlabel subitem
>> listview? (pada subitem tertentu, atau beberapa, atau semuanya)
>> Tolong beri contoh code-nya, dan berikan penjelasannya.
>> Atas perhatiannya, Terima kasih.
>>
>> Hs,
>>
>> Ratri Risyanto
>>
>
>
>
>
oh ternyata pengen edit langsung di setiap item ya...
hehehehe.....
biasanya kalau akan edit listview adalah menggunakan controls lain. Jadi
kolom ke-1 diletakkan di sebuah textbox, kolom ke-2 di sebuah combobox dan
seterusnya dan pada listview dipastikan bahwa beberapa properti ditata
sebagai berikut :
1. LabelEdit diset 1 atau lvwmanual
2. MultiSelect diset False
3. HoverSelection diset False
Pada event click atau item click diberi baris-baris kode untuk menyalin
nilai dari* item listview terpilih* (sudah disediakan variabel bernama item
oleh si event click) ke kontrol lain yang bersesuaian.
Ketika user sudah selesai mengedit di controls lain tersebut dan menekan
sebuah tombol simpan, maka item listview terpilih tadi bisa didapatkan
nomor indeks barisnya dengan :
dim lidx as long
lidx=nama_listviewnya.selecteditem.index
lalu diberi proses penulisan ke listview seperti nomor 1 sampai 10 di email
lalu...
hehehe... yang diatas itu biasanya sudah pada bisa karena mirip combobox
atau listbox..
btw,
kalau pengen langsung di listviewnya (klik listview, item terpilih di ubah
nilainya langsung ditempat, tekan enter maka ter-update), sepertinya salah
pilih controls. Coba data grid controls daripada listview kalau mau seperti
itu.
oh iya...
Pastikan seluruh computer yang akan menggunakan workbook yang berisi
listview memiliki library bernama mscomctl.ocx yang teregister (cara
meregister menggunakan regsvr32) di OS. Jika belum ada library tersebut
yang terigister di OS, maka listview tidak akan bisa digunakan.
Wassalam,
Kid.
2014-03-12 16:18 GMT+07:00 Ratri Risyanto <risyanto12@yahoo.com>:
>
>
> Halo Mr. Kid
>
> Mohon maaf atas subjectnya, karena ketidak-tahuan saya,. kedepannya tidak
> saya ulangi lagi.
> Kalau yang saya maksud edit listview-nya adalah, pada saat cursor mouse
> saya arahkan dan klik kanan sekali ke listsubitem (atau juga listitem kolom
> 1) tertentu , lalu saya ketikkan suatu huruf / angka/ karakter lain maka
> akan terinput datanya , mohon berikan contoh code-nya, Terima kasih.
>
> Hs,
> Ratri R
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *Sent:* Wednesday, March 12, 2014 5:04 AM
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Subject:* Re: [belajar-excel] EDIT LISTVIEW VBA EXCEL
>
>
>
> Hai Ratri,
>
> *** imho, subject email pada posting berikutnya tidak perlu semuanya huruf
> kapital, karena huruf kapital pada sebuah kalimat dalam dunia maya sering
> diartikan sedang membentak...
>
>
> Misal :
> a. dimiliki sebuah listvew dengan nama lvw,
> b. memiliki headers,
> c. jumlah kolom dalam lvw ada 3 kolom,
> d. jumlah list item dalam lvw ada 7 baris.
>
>
> 1. Mari kenali control object listview
>
> *lvw.columnheaders(1)
> lvw.columnheaders(2)
> lvw.columnheaders(3) *
> lvw.listitems(1)
> lvw.listitems(1).listsubitems(1)
> lvw.listitems(1).listsubitems(2)
> lvw.listitems(2)
> lvw.listitems(2).listsubitems(1)
> lvw.listitems(2).listsubitems(2)
> lvw.listitems(3)
> lvw.listitems(3).listsubitems(1)
> lvw.listitems(3).listsubitems(2)
> lvw.listitems(4)
> lvw.listitems(4).listsubitems(1)
> lvw.listitems(4).listsubitems(2)
> lvw.listitems(5)
> lvw.listitems(5).listsubitems(1)
> lvw.listitems(5).listsubitems(2)
> lvw.listitems(6)
> lvw.listitems(6).listsubitems(1)
> lvw.listitems(6).listsubitems(2)
> lvw.listitems(7)
> lvw.listitems(7).listsubitems(1)
> lvw.listitems(7).listsubitems(2)
>
> >> jadi,
> a. columnheaders adalah base 1 (kolom ke-1 diberi nilai indeks bernilai 1)
> b. baris data pada kolom ke-1 diakses dengan properti listitems yang
> diikuti dengan indeks baris
> c. baris pada listview adalah base 1 (baris ke-1 diberi nilai indeks
> bernilai 1)
> d. subitems dalam listview dimulai dari kolom ke-2 dan menggunakan base 1
> (subitem ke-1 yang ada di kolom ke-2 diberi nilai indeks 1)
> e. seluruh nilai indeks yang relatif terhadap setiap properti
> (columnheaders, listitems, listsubitems) dimulai dari 1 dan seterusnya
>
> 2. edit header listview lvw
> >> ganti text header kolom ke-2 menjadi 'Kid'
> *lvw.columnheaders(2).text="Kid"*
>
> 3. edit baris ke-3 pada kolom ke 1 menjadi 'Kid baris ke-3'
> >> berarti pada lvw.listitems(3)
> lvw.listitems(3).text ="Kid baris ke-3"
>
> 4. edit baris ke-7 pada kolom ke 3 menjadi 'Kid baris ke-6 kolom 3'
> >> berarti pada subitems ke-2 karena pada kolom ke-3
> >> berarti pada baris ke-7 menggunakan lvw.listitems(7).listsubitems(2)
> lvw.listitems(7).listsubitems(2).text="Kid baris ke-6 kolom 3"
>
> 5. edit baris ke-3 pada kolom ke 1 menjadi 'Kid baris ke-3' dan edit baris
> ke-7 pada kolom ke 3 menjadi 'Kid baris ke-6 kolom 3'
> >> seperti nomor 3 dan 4 tapi dilakukan pada sebuah event
> lvw.listitems(3).text ="Kid baris ke-3"
> lvw.listitems(7).listsubitems(2).text="Kid baris ke-6 kolom 3"
>
> 6. edit baris 3 sampai 5 pada kolom ke-1 agar berisi nomor id dari 13
> sampai 15
> >> berarti pakai lvw.listitems(3) sampai lvw.listitems(5) dan yang berubah
> adalah nomor indeks nya, yaitu dari 3 sampai 5
> >> teks isian adalah 13 sampai 15, berarti setara dengan komputasi
> matematis 10 ditambah dengan nomor indeks nya
> dim *lidx *as long
> for *lidx *=3 to 5
> lvw.listitems( *lidx *).text = 10 + *lidx *
> next *lidx *
>
> 7. edit baris ke 1 sampai ke 7 pada kolom ke-3 dengan suatu nilai numerik
> dari 1000 sampai 7000
> >> kolom ke-3 berarti listsubitems ke-2 pada indeks mulai dari 1 sampai 7
> >> berarti, menggunakan lvw.listitems(*1*).listsubitems(2) sampai
> lvw.listitems(*7*).listsubitems(2)
> >> teks pengisinya adalah 1000 sampai 7000 (komputasi matematis nomor
> indeks dikali 1000)
> dim *lidx *as long
> for *lidx *=1 to 7
> lvw.listitems( *lidx *).listsubitems(2) .text =
> *lidx * 1000*
> next *lidx *
>
> 8. ternyata, nomor 7 di atas pengen diganti menjadi seluruh baris yang ada
> dalam listview
> >> jumlah seluruh baris yang ada dalam listview adalah*
> lvw.listitems.count*
> >> kolom ke-3 berarti listsubitems ke-2 pada indeks mulai dari 1 sampai
> *lvw.listitems.count*
> >> berarti, menggunakan lvw.listitems(*1*).listsubitems(2) sampai
> lvw.listitems( * lvw.listitems.count *).listsubitems(2)
> >> teks pengisinya adalah 1000, 2000, dan seterusnya mengikuti nomor
> indeks (komputasi matematis nomor indeks dikali 1000)
> dim *lidx *as long
> for *lidx *=1 to *lvw.listitems.count*
> lvw.listitems( *lidx *).listsubitems(2) .text =
> *lidx * 1000*
> next *lidx *
>
> 9. eh nomor 9 itu bisa muncul error kalo gak ada baris apapun dalam
> listview, gimana dong ??? bingung nih... sampai hampir putus asa error
> mulu...
> >> sebelum blok perulangan (loop) dengan statement for next, dilakukan
> pemeriksaan terhadap jumlah baris yang ada dalam listview
> >> jumlah baris dalam listview adalah ..... (apa hayo... masih perlu
> ditulis disini ? jiaaahhh)
> >> blok loop boleh dikerjakan kalau jumlah baris dalam listview harus
> lebih dari 0
> dim *lidx *as long
> if *lvw.listitems.count *> 0 then
> for *lidx *=1 to *lvw.listitems.count*
> lvw.listitems( *lidx *).listsubitems(2) .text =
> *lidx * 1000*
> next *lidx *
> endif
>
> 10. le.... yang simbah pengen ganti itu cuman baris 1,2,5 sama 7 tok
> til... kolomnya yang kolom ke-2, diisi dengan teks status berbunyi 'OK'.
> Piye le...
> >> nyuwun pangapunten mbah....
> >> simbah kedah maos bab for each next rumiyen mbah...
> >> mangkeh, cekrip ipun kados mekaten :
> dim *vidx *as *variant*
> for each *vidx *in array( 1, 2, 5, 7 )
> lvw.listitems( *vidx *).listsubitems(1).text = "OK"
> next vidx
>
> simbah : "kok error terus le..."
> tole : "lha simbah sampun maos bab for each next dereng mbah ?"
> simbah : "uwis, ning tulisane bab kuwi kok blawur ya... huruf e dadi
> gedrik kabeh tur dadi loro-loro kabeh..."
> tole : (membatin) "ya iyalah... lah bacanya gak pake kacamata... wis
> jan... sing waras ngalah wae lah"
>
> ;)
>
> sepertinya 10 item cukup buat acara edit-editan kan ya...
> moga-moga ada yang berbaik hati memasang 10 item diatas menjadi sebuah
> file ya... (maaf, gak sempet... harus siap-siap berangkat)
>
> Wassalam,
> Kid.
>
>
>
>
> 2014-03-11 20:14 GMT+07:00 Ratri Risyanto <risyanto12@yahoo.com>:
>
>>
>> Hallo All Master Excel,
>>
>>
>> Bagaimana cara edit listview / edit subitem listview / editlabel subitem
>> listview? (pada subitem tertentu, atau beberapa, atau semuanya)
>> Tolong beri contoh code-nya, dan berikan penjelasannya.
>> Atas perhatiannya, Terima kasih.
>>
>> Hs,
>>
>> Ratri Risyanto
>>
>
>
>
>
Thu Mar 13, 2014 1:54 am (PDT) . Posted by:
"Ratri Risyanto" risyanto12
Halo All Master Excel
Saya punya masalah, di komputer kantor saya pakai program oracle (client), buka programnya lewat internet explorer. Saat itu juga form vba excel saya masih aktif (running). Dan saat saya buka internet explorer ternyata lemotnya minta ampun.. lama sekali membukanya.. lalu saya coba colse form vba excel saya, oracle yg saya buka di internet explorer pun terbuka dengan lancar. tak coba buka lagi form vba, lalu tak coba menjalankan oracle, jadi macet lagi. apa memang itu penyebabnya form vba? jika tahu, mohon penjelasan dan mohon solusi mengatasinya (jika bisa) agar saat form vba aktif, saya bisa menjalankan program oracle. Mohon maaf apabila masalah saya agak keluar jalur.
Terima kasih.
Ratri Risyanto
Thu Mar 13, 2014 2:01 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Boleh tahu apa isi VBA nya ?
Wassalam,
Kid.
2014-03-13 15:51 GMT+07:00 Ratri Risyanto <risyanto12@yahoo.com>:
>
>
>
> Halo All Master Excel
>
>
> Saya punya masalah, di komputer kantor saya pakai program oracle (client),
> buka programnya lewat internet explorer. Saat itu juga form vba excel saya
> masih aktif (running). Dan saat saya buka internet explorer ternyata
> lemotnya minta ampun.. lama sekali membukanya.. lalu saya coba colse form
> vba excel saya, oracle yg saya buka di internet explorer pun terbuka dengan
> lancar. tak coba buka lagi form vba, lalu tak coba menjalankan oracle, jadi
> macet lagi. apa memang itu penyebabnya form vba? jika tahu, mohon
> penjelasan dan mohon solusi mengatasinya (jika bisa) agar saat form vba
> aktif, saya bisa menjalankan program oracle. Mohon maaf apabila masalah
> saya agak keluar jalur.
>
> Terima kasih.
>
> Ratri Risyanto
>
>
>
Wassalam,
Kid.
2014-03-13 15:51 GMT+07:00 Ratri Risyanto <risyanto12@yahoo.com>:
>
>
>
> Halo All Master Excel
>
>
> Saya punya masalah, di komputer kantor saya pakai program oracle (client),
> buka programnya lewat internet explorer. Saat itu juga form vba excel saya
> masih aktif (running). Dan saat saya buka internet explorer ternyata
> lemotnya minta ampun.. lama sekali membukanya.. lalu saya coba colse form
> vba excel saya, oracle yg saya buka di internet explorer pun terbuka dengan
> lancar. tak coba buka lagi form vba, lalu tak coba menjalankan oracle, jadi
> macet lagi. apa memang itu penyebabnya form vba? jika tahu, mohon
> penjelasan dan mohon solusi mengatasinya (jika bisa) agar saat form vba
> aktif, saya bisa menjalankan program oracle. Mohon maaf apabila masalah
> saya agak keluar jalur.
>
> Terima kasih.
>
> Ratri Risyanto
>
>
>
Wed Mar 12, 2014 6:31 pm (PDT) . Posted by:
"irianto"
Dear mr bagus & jan raisin.
Terimakasih atas bantuannya,masalah saya sudah terpecahkan
Maaf baru dibalas
/regards
irianto
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Bagus
Sent: Wednesday, March 12, 2014 4:32 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [***SPAM*** Score/Req: 06.50/5.0] [belajar-excel] if bertingkat
berdasarkan kriteria
Hai Irianto;
Coba begini:
=IF(OR(AND(B16="Normal",D16>C16,C16<TIME(12,0,0),D16>TIME(13,0,0)),AND(B16="
Shift 1",D16>C16,C16<TIME(10,0,0),D16>TIME(11,0,0)),AND(B16="shift
2",D16>C16,C16<TIME(18,0,0),D16>TIME(19,0,0)),AND(B16="shift
3",D16>C16,TIME(C16,C16,C16)<TIME(2,0,0),D16>TIME(3,0,0))),HOUR((D16-C16))*6
0+MINUTE(D16-C16)-60,24-HOUR(C16)*60-MINUTE(C16)+HOUR(D16)*60+MINUTE(D16))
Copas kebawah
Wassalam
~ Bagus ~
----- Original Message -----
From: irianto <mailto:irianto.mandala@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, March 12, 2014 3:56 PM
Subject: [***SPAM*** Score/Req: 06.50/5.0] [belajar-excel] if bertingkat
berdasarkan kriteria [1 Attachment]
Dear master....
Mohon bantuannya utk memecah kan kasus ini
File terlampir....
/regard
irianto
Terimakasih atas bantuannya,masalah saya sudah terpecahkan
Maaf baru dibalas
/regards
irianto
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Bagus
Sent: Wednesday, March 12, 2014 4:32 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [***SPAM*** Score/Req: 06.50/5.0] [belajar-excel] if bertingkat
berdasarkan kriteria
Hai Irianto;
Coba begini:
=IF(OR(AND(B16="Normal",D16>C16,C16<TIME(12,0,0),D16>TIME(13,0,0)),AND(B16="
Shift 1",D16>C16,C16<TIME(10,0,0),D16>TIME(11,0,0)),AND(B16="shift
2",D16>C16,C16<TIME(18,0,0),D16>TIME(19,0,0)),AND(B16="shift
3",D16>C16,TIME(C16,C16,C16)<TIME(2,0,0),D16>TIME(3,0,0))),HOUR((D16-C16))*6
0+MINUTE(D16-C16)-60,24-HOUR(C16)*60-MINUTE(C16)+HOUR(D16)*60+MINUTE(D16))
Copas kebawah
Wassalam
~ Bagus ~
----- Original Message -----
From: irianto <mailto:irianto.mandala@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, March 12, 2014 3:56 PM
Subject: [***SPAM*** Score/Req: 06.50/5.0] [belajar-excel] if bertingkat
berdasarkan kriteria [1 Attachment]
Dear master....
Mohon bantuannya utk memecah kan kasus ini
File terlampir...
/regard
irianto
Wed Mar 12, 2014 6:47 pm (PDT) . Posted by:
"Jan Raisin"
Wa'alaikumsalam wr. wb.,
mungkin seperti file terlampir
Wassalam,
-Miss Jan Raisin-
Pada 12 Maret 2014 17.25, Rizki Agung <rizki_fisthein@yahoo.com> menulis:
>
>
> Assalamualaikum,,, mohon bantuan teman-teman, saya mengalami kesulitan
> dalam menampilkan data kategori catatan. pertanyaannya ada di dalam
> lampiran excel yang saya sertakan dalam SurEl ini. Terima kasih atas semua
> bantuan teman-teman semuanya.
>
>
>
mungkin seperti file terlampir
Wassalam,
-Miss Jan Raisin-
Pada 12 Maret 2014 17.25, Rizki Agung <rizki_fisthein@yahoo.com> menulis:
>
>
> Assalamualaikum,
> dalam menampilkan data kategori catatan. pertanyaannya ada di dalam
> lampiran excel yang saya sertakan dalam SurEl ini. Terima kasih atas semua
> bantuan teman-teman semuanya.
>
>
>
Wed Mar 12, 2014 6:49 pm (PDT) . Posted by:
"Fendik Anton Wijaya"
Dear para suhu excel,
Mohon bantuan ilmunya mencari kan solusi kasus ini...
File terlampir...
best regards,
Fendik...
-------------------
The information transmitted is intended only for the person or the entity to which it is addressed and may contain confidential and/or privileged material. If you have received it by mistake please notify the sender by return e-mail and delete this message including any of its attachments from your system. Any use, review, reliance or dissemination of this message/information in whole or in part is strictly prohibited. Please note that e-mails are susceptible to change. The views expressed/presented in this email are solely those of the author and do not necessarily represent those of PT Toyota Astra Financial Services and should not be construed as the views, offers or acceptances of PT Toyota Astra Financial Services. The recipient should check this email/message and any attachments for the presence of viruses. PT Toyota Astra Financial Services accepts no liability for any damage caused by any viruses transmitted by this email/message.
Please consider the environment before printing this email.
Mohon bantuan ilmunya mencari kan solusi kasus ini...
File terlampir...
best regards,
Fendik...
------------
The information transmitted is intended only for the person or the entity to which it is addressed and may contain confidential and/or privileged material. If you have received it by mistake please notify the sender by return e-mail and delete this message including any of its attachments from your system. Any use, review, reliance or dissemination of this message/information in whole or in part is strictly prohibited. Please note that e-mails are susceptible to change. The views expressed/presented in this email are solely those of the author and do not necessarily represent those of PT Toyota Astra Financial Services and should not be construed as the views, offers or acceptances of PT Toyota Astra Financial Services. The recipient should check this email/message and any attachments for the presence of viruses. PT Toyota Astra Financial Services accepts no liability for any damage caused by any viruses transmitted by this email/message.
Please consider the environment before printing this email.
Wed Mar 12, 2014 7:30 pm (PDT) . Posted by:
"Jan Raisin"
Hai fendik,
mungkin seperti file terlampir..
Wassalam,
-Miss Jan Raisin-
2014-03-13 8:19 GMT+07:00 Fendik Anton Wijaya <fendik.anton@tafinance.com>:
>
>
> Dear para suhu excel,
>
> Mohon bantuan ilmunya mencari kan solusi kasus ini...
> File terlampir...
>
> best regards,
> Fendik...
>
> ------------------------------
> The information transmitted is intended only for the person or the entity
> to which it is addressed and may contain confidential and/or privileged
> material. If you have received it by mistake please notify the sender by
> return e-mail and delete this message including any of its attachments from
> your system. Any use, review, reliance or dissemination of this
> message/information in whole or in part is strictly prohibited. Please note
> that e-mails are susceptible to change. The views expressed/presented in
> this email are solely those of the author and do not necessarily represent
> those of PT Toyota Astra Financial Services and should not be construed as
> the views, offers or acceptances of PT Toyota Astra Financial Services. The
> recipient should check this email/message and any attachments for the
> presence of viruses. PT Toyota Astra Financial Services accepts no
> liability for any damage caused by any viruses transmitted by this
> email/message.
>
> ý *Towards a Sustainable Future - **Please consider the environment
> before printing this email.*
>
>
>
mungkin seperti file terlampir..
Wassalam,
-Miss Jan Raisin-
2014-03-13 8:19 GMT+07:00 Fendik Anton Wijaya <fendik.anton@tafinance.com>:
>
>
> Dear para suhu excel,
>
> Mohon bantuan ilmunya mencari kan solusi kasus ini...
> File terlampir...
>
> best regards,
> Fendik...
>
> ------------
> The information transmitted is intended only for the person or the entity
> to which it is addressed and may contain confidential and/or privileged
> material. If you have received it by mistake please notify the sender by
> return e-mail and delete this message including any of its attachments from
> your system. Any use, review, reliance or dissemination of this
> message/information in whole or in part is strictly prohibited. Please note
> that e-mails are susceptible to change. The views expressed/presented in
> this email are solely those of the author and do not necessarily represent
> those of PT Toyota Astra Financial Services and should not be construed as
> the views, offers or acceptances of PT Toyota Astra Financial Services. The
> recipient should check this email/message and any attachments for the
> presence of viruses. PT Toyota Astra Financial Services accepts no
> liability for any damage caused by any viruses transmitted by this
> email/message.
>
> ý *Towards a Sustainable Future - **Please consider the environment
> before printing this email.*
>
>
>
Wed Mar 12, 2014 7:54 pm (PDT) . Posted by:
"nangAgus" nangagoez
Salam sejahtera untuk Kita semua, Semoga Rahmat Tuhan selalu tercurah
untuk anda sekalian.
Mohon bantuannya:
Saya akan membuat rumus untuk menentukan nomor-nomor yang salah dari
seorang yang mengikuti tes.
Tes tersebut memiliki 20 jenis soal yang berbeda,
Sementara ini saya menggunakan comcatenate dengan jumlah 50 buah
(sementara untuk file yang saya kirimkan hanya 25 buah) sehingga
rumusnya menjadi:
{=SUBSTITUTE(SUM(($B25=$B$4:$B$23)*(C25<>C$4:C$23)*C$3)&";
"&SUM(($B25=$B$4:$B$23)*(D25<>D$4:D$23)*D$3)&";
"&SUM(($B25=$B$4:$B$23)*(E25<>E$4:E$23)*E$3)&";
"&SUM(($B25=$B$4:$B$23)*(F25<>F$4:F$23)*F$3)&";
"&SUM(($B25=$B$4:$B$23)*(G25<>G$4:G$23)*G$3)&";
"&SUM(($B25=$B$4:$B$23)*(H25<>H$4:H$23)*H$3)&";
"&SUM(($B25=$B$4:$B$23)*(I25<>I$4:I$23)*I$3)&";
"&SUM(($B25=$B$4:$B$23)*(J25<>J$4:J$23)*J$3)&";
"&SUM(($B25=$B$4:$B$23)*(K25<>K$4:K$23)*J$3)&";
"&SUM(($B25=$B$4:$B$23)*(L25<>L$4:L$23)*L$3)&";
"&SUM(($B25=$B$4:$B$23)*(M25<>M$4:M$23)*J$3)&";
"&SUM(($B25=$B$4:$B$23)*(N25<>N$4:N$23)*J$3)&";
"&SUM(($B25=$B$4:$B$23)*(O25<>O$4:O$23)*O$3)&";
"&SUM(($B25=$B$4:$B$23)*(P25<>P$4:P$23)*P$3)&";
"&SUM(($B25=$B$4:$B$23)*(Q25<>Q$4:Q$23)*Q$3)&";
"&SUM(($B25=$B$4:$B$23)*(R25<>R$4:R$23)*R$3)&";
"&SUM(($B25=$B$4:$B$23)*(S25<>S$4:S$23)*S$3)&";
"&SUM(($B25=$B$4:$B$23)*(T25<>T$4:T$23)*T$3)&";
"&SUM(($B25=$B$4:$B$23)*(U25<>U$4:U$23)*U$3)&";
"&SUM(($B25=$B$4:$B$23)*(V25<>V$4:V$23)*V$3)&";
"&SUM(($B25=$B$4:$B$23)*(W25<>W$4:W$23)*W$3)&";
"&SUM(($B25=$B$4:$B$23)*(X25<>X$4:X$23)*X$3)&";
"&SUM(($B25=$B$4:$B$23)*(Y25<>Y$4:Y$23)*Y$3)&";
"&SUM(($B25=$B$4:$B$23)*(Z25<>Z$4:Z$23)*Z$3)&";
"&SUM(($B25=$B$4:$B$23)*(AA25<>AA$4:AA$23)*AA$3);" 0;";"")} rumus ini
hanya untuk 25 soal, jika 50 soal berarti lebih panjang lagi.
Adakah rumus yang lebih pendek?
saya mencoba menggunakan index tidak berhasil.
(=INDEX(C3:AA3;;IF((C25:AA25=C4:AA23)*($B$4:$B$23=B25);1;0))
Bagaimana cara memperpendek rumus ini? atau menggunakan UDF?
Terima kasih
wasalamualaikum warahmatullah
untuk anda sekalian.
Mohon bantuannya:
Saya akan membuat rumus untuk menentukan nomor-nomor yang salah dari
seorang yang mengikuti tes.
Tes tersebut memiliki 20 jenis soal yang berbeda,
Sementara ini saya menggunakan comcatenate dengan jumlah 50 buah
(sementara untuk file yang saya kirimkan hanya 25 buah) sehingga
rumusnya menjadi:
{=SUBSTITUTE(
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
hanya untuk 25 soal, jika 50 soal berarti lebih panjang lagi.
Adakah rumus yang lebih pendek?
saya mencoba menggunakan index tidak berhasil.
(=INDEX(C3:AA3;
Bagaimana cara memperpendek rumus ini? atau menggunakan UDF?
Terima kasih
wasalamualaikum warahmatullah
Wed Mar 12, 2014 10:44 pm (PDT) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
Mas Nanang,
coba bantu pakai UDF ya, cara penggunaannya, silahkan lihat di file
terlampir.
'====
Public Function JawabanSalah(rgKunci As Range, rgTypeSoal As Range, _
rgType As Range, rgJawaban As Range, rgNomerSoal As Range) As String
'=(INDEX($C$4:$AA$23,MATCH($B25,$B$4:$B$23,0),)<>$C25:$AA25)*$C$3:$AA$3
Dim varSalah As Variant, v As Variant
Dim strRumus As String, strRtn As String
strRumus = "(INDEX(" & rgKunci.Address & ",MATCH(" & rgType.Address &
"," & _
rgTypeSoal.Address & ",0),)<>" & rgJawaban.Address & ")*" &
rgNomerSoal.Address
varSalah = Evaluate(strRumus)
strRtn = vbNullString
For Each v In varSalah
If v <> 0 Then
strRtn = strRtn & v & ";"
End If
Next v
strRtn = Left(strRtn, Len(strRtn) - 1)
JawabanSalah = strRtn
End Function
'====
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of nangAgus
Sent: Thursday, March 13, 2014 9:55 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Concatenate 50 Cell [1 Attachment]
Salam sejahtera untuk Kita semua, Semoga Rahmat Tuhan selalu tercurah
untuk anda sekalian.
Mohon bantuannya:
Saya akan membuat rumus untuk menentukan nomor-nomor yang salah dari
seorang yang mengikuti tes.
Tes tersebut memiliki 20 jenis soal yang berbeda,
Sementara ini saya menggunakan comcatenate dengan jumlah 50 buah
(sementara untuk file yang saya kirimkan hanya 25 buah) sehingga
rumusnya menjadi:
{=SUBSTITUTE(SUM(($B25=$B$4:$B$23)*(C25<>C$4:C$23)*C$3)&";
"&SUM(($B25=$B$4:$B$23)*(D25<>D$4:D$23)*D$3)&";
"&SUM(($B25=$B$4:$B$23)*(E25<>E$4:E$23)*E$3)&";
"&SUM(($B25=$B$4:$B$23)*(F25<>F$4:F$23)*F$3)&";
"&SUM(($B25=$B$4:$B$23)*(G25<>G$4:G$23)*G$3)&";
"&SUM(($B25=$B$4:$B$23)*(H25<>H$4:H$23)*H$3)&";
"&SUM(($B25=$B$4:$B$23)*(I25<>I$4:I$23)*I$3)&";
"&SUM(($B25=$B$4:$B$23)*(J25<>J$4:J$23)*J$3)&";
"&SUM(($B25=$B$4:$B$23)*(K25<>K$4:K$23)*J$3)&";
"&SUM(($B25=$B$4:$B$23)*(L25<>L$4:L$23)*L$3)&";
"&SUM(($B25=$B$4:$B$23)*(M25<>M$4:M$23)*J$3)&";
"&SUM(($B25=$B$4:$B$23)*(N25<>N$4:N$23)*J$3)&";
"&SUM(($B25=$B$4:$B$23)*(O25<>O$4:O$23)*O$3)&";
"&SUM(($B25=$B$4:$B$23)*(P25<>P$4:P$23)*P$3)&";
"&SUM(($B25=$B$4:$B$23)*(Q25<>Q$4:Q$23)*Q$3)&";
"&SUM(($B25=$B$4:$B$23)*(R25<>R$4:R$23)*R$3)&";
"&SUM(($B25=$B$4:$B$23)*(S25<>S$4:S$23)*S$3)&";
"&SUM(($B25=$B$4:$B$23)*(T25<>T$4:T$23)*T$3)&";
"&SUM(($B25=$B$4:$B$23)*(U25<>U$4:U$23)*U$3)&";
"&SUM(($B25=$B$4:$B$23)*(V25<>V$4:V$23)*V$3)&";
"&SUM(($B25=$B$4:$B$23)*(W25<>W$4:W$23)*W$3)&";
"&SUM(($B25=$B$4:$B$23)*(X25<>X$4:X$23)*X$3)&";
"&SUM(($B25=$B$4:$B$23)*(Y25<>Y$4:Y$23)*Y$3)&";
"&SUM(($B25=$B$4:$B$23)*(Z25<>Z$4:Z$23)*Z$3)&";
"&SUM(($B25=$B$4:$B$23)*(AA25<>AA$4:AA$23)*AA$3);" 0;";"")} rumus ini
hanya untuk 25 soal, jika 50 soal berarti lebih panjang lagi.
Adakah rumus yang lebih pendek?
saya mencoba menggunakan index tidak berhasil.
(=INDEX(C3:AA3;;IF((C25:AA25=C4:AA23)*($B$4:$B$23=B25);1;0))
Bagaimana cara memperpendek rumus ini? atau menggunakan UDF?
Terima kasih
wasalamualaikum warahmatullah
coba bantu pakai UDF ya, cara penggunaannya, silahkan lihat di file
terlampir.
'====
Public Function JawabanSalah(rgKunci As Range, rgTypeSoal As Range, _
rgType As Range, rgJawaban As Range, rgNomerSoal As Range) As String
'=(INDEX($C$4:$AA$23,MATCH($B25,$B$4:$B$23,0),)<>$C25:$AA25)*$C$3:$AA$3
Dim varSalah As Variant, v As Variant
Dim strRumus As String, strRtn As String
strRumus = "(INDEX(" & rgKunci.Address & ",MATCH(" & rgType.Address &
"," & _
rgTypeSoal.Address & ",0),)<>" & rgJawaban.Address & ")*" &
rgNomerSoal.Address
varSalah = Evaluate(strRumus)
strRtn = vbNullString
For Each v In varSalah
If v <> 0 Then
strRtn = strRtn & v & ";"
End If
Next v
strRtn = Left(strRtn, Len(strRtn) - 1)
JawabanSalah = strRtn
End Function
'====
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of nangAgus
Sent: Thursday, March 13, 2014 9:55 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Concatenate 50 Cell [1 Attachment]
Salam sejahtera untuk Kita semua, Semoga Rahmat Tuhan selalu tercurah
untuk anda sekalian.
Mohon bantuannya:
Saya akan membuat rumus untuk menentukan nomor-nomor yang salah dari
seorang yang mengikuti tes.
Tes tersebut memiliki 20 jenis soal yang berbeda,
Sementara ini saya menggunakan comcatenate dengan jumlah 50 buah
(sementara untuk file yang saya kirimkan hanya 25 buah) sehingga
rumusnya menjadi:
{=SUBSTITUTE(
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
"&SUM((
hanya untuk 25 soal, jika 50 soal berarti lebih panjang lagi.
Adakah rumus yang lebih pendek?
saya mencoba menggunakan index tidak berhasil.
(=INDEX(C3:AA3;
Bagaimana cara memperpendek rumus ini? atau menggunakan UDF?
Terima kasih
wasalamualaikum warahmatullah
Wed Mar 12, 2014 11:32 pm (PDT) . Posted by:
"Shenly" shenly_excelmania
halo teman-teman
disni ada yang punya contoh form login account+passwrod ??? sama code vba nya juga
Salam
Shenly ^^*
disni ada yang punya contoh form login account+passwrod ??? sama code vba nya juga
Salam
Shenly ^^*
Wed Mar 12, 2014 11:41 pm (PDT) . Posted by:
"Hendrik Karnadi" hendrikkarnadi
Coba search file yang ada di milis. Seingat saya pernah bbrp kali tampil.
Salam,
HK
Sent from Samsung MobileShenly <shenly_excelmania@yahoo.co.id> wrote:halo teman-teman
disni ada yang punya contoh form login account+passwrod ??? sama code vba nya juga
Salam
Shenly ^^*
Salam,
HK
Sent from Samsung MobileShenly <shenly_excelmania@yahoo.co.id> wrote:halo teman-teman
disni ada yang punya contoh form login account+passwrod ??? sama code vba nya juga
Salam
Shenly ^^*
Thu Mar 13, 2014 3:23 am (PDT) . Posted by:
"Rusdiyanto, Nicodemus"
Dear mastah,
Please suggestion;
Saya ingin meng-"X" setiap cell di sell yang saya tandai kuning dengan
menggunakan formula.
Dengan ketentuan;
* Perbaris, sesuai dengan start date dan berakhir di finish date
* Start & finish date di isi manual
Mohon pencerahannya.
Thanks in advance,
Nicodemus Rusdiyanto
Please suggestion;
Saya ingin meng-"X" setiap cell di sell yang saya tandai kuning dengan
menggunakan formula.
Dengan ketentuan;
* Perbaris, sesuai dengan start date dan berakhir di finish date
* Start & finish date di isi manual
Mohon pencerahannya.
Thanks in advance,
Nicodemus Rusdiyanto
Thu Mar 13, 2014 3:29 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba formula :
=IF((G$5>=$E6)*(G$5<=$F6),"X","")
Wassalam,
Kid.
2014-03-13 17:19 GMT+07:00 Rusdiyanto, Nicodemus <
NicodemusRusdiyanto@tupperware.com>:
>
>
> Dear mastah,
>
>
>
> Please suggestion;
>
> Saya ingin meng-"X" setiap cell di sell yang saya tandai kuning dengan
> menggunakan formula.
>
> Dengan ketentuan;
>
> · Perbaris, sesuai dengan start date dan berakhir di finish date
>
> · Start & finish date di isi manual
>
>
>
> Mohon pencerahannya.
>
>
>
> Thanks in advance,
>
> *Nicodemus Rusdiyanto*
>
>
>
>
>
>
>
=IF((G$5>=$E6)*(G$5<=$F6),"X","")
Wassalam,
Kid.
2014-03-13 17:19 GMT+07:00 Rusdiyanto, Nicodemus <
NicodemusRusdiyanto@tupperware.com>:
>
>
> Dear mastah,
>
>
>
> Please suggestion;
>
> Saya ingin meng-"X" setiap cell di sell yang saya tandai kuning dengan
> menggunakan formula.
>
> Dengan ketentuan;
>
> · Perbaris, sesuai dengan start date dan berakhir di finish date
>
> · Start & finish date di isi manual
>
>
>
> Mohon pencerahannya.
>
>
>
> Thanks in advance,
>
> *Nicodemus Rusdiyanto*
>
>
>
>
>
>
>
Thu Mar 13, 2014 3:23 am (PDT) . Posted by:
"Ahmad Syaifullah Lubis" syaifullah
Mr Kid,
saya sudah taruh skrip tsb ke macro. macro untuk hapus beberapa sheet sudah jalan. namun bukan "wkr"nya yang harus dihapus, tetapi selain "wkr" agar dihapus.
macro copy dan pindah beberapa sheet tidak jalan, ada debug dan mengarah ke wbkApp = ThisWorkbook
terlampir file yang dimaksud. mudah2n dapat solusinya.
terima kasih,
ASL
To: belajar-excel@yahoogroups.com
From: mr.nmkid@gmail.com
Date: Thu, 6 Mar 2014 23:43:28 +0700
Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
Hai ASL,
2. copy sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
dim wbkApp as workbook,wbkTarget as workbook
dim sht as worksheet, lShtNew as long
lshtnew=application.sheetsinnewworkbook
application.sheetsinnewworkbook=1
application.displayalerts=false
wbkapp=thisworkbook
wbktarget=workbooks.add
for each sht in wbkapp.worksheets
if instr(lcase$(sht.name),"wkr")<>0 then
sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
endif
next sht
wbktarget.sheets(1).delete
application.sheetsinnewworkbook=lshtnew
application.displayalerts=true
1. delete sheet yang namanya punya teks berbunyi 'wkr'
dim sht as worksheet
application.displayalerts=false
sheets.add sheets(1)
for each sht in thisworkbook.worksheets
if instr(lcase$(sht.name),"wkr")<>0 then
sht.delete
endif
next sht
if sheets.count>1 then
sheets(1).delete
endif
application.displayalerts=true
0. move sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
>> seperti nomor 2 tetapi ditambahkan beberapa baris yang ada dalam nomor 1 disertai rujukan workbooknya (lihat yang biru)
dim wbkApp as workbook,wbkTarget as workbook
dim sht as worksheet, lShtNew as long
lshtnew=application.sheetsinnewworkbook
application.sheetsinnewworkbook=1
application.displayalerts=false
wbkapp=thisworkbook
wbktarget=workbooks.add
wbkapp.sheets.add wbkapp.sheets(1)
for each sht in wbkapp.worksheets
if instr(lcase$(sht.name),"wkr")<>0 then
sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
endif
next sht
if wbkapp.sheets.count>1 then
wbkapp.sheets(1).delete
endif
wbktarget.sheets(1).delete
application.sheetsinnewworkbook=lshtnew
application.displayalerts=true
gitu kali ya...
silakan dikembangkan sendiri sesuai kebutuhan ya...
Wassalam,
Kid.
2014-03-06 11:46 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
Dear BeExceller,
saya punya file excel dalam workbook ada 10 sheet :
1. Man-Wkr
2. Man-Tpg
3. Dnm-Wkr
4. Dnm-Wkr-US
5. Ks-Wkr
6. Dnm-J-Wkr
7. Man-Trk
8. Man-Fiy
9. Dnm-Trk
10. Dnm-Fiy
Bagaimana macro :
1. bagaimana menghapus beberapa sheet pilihan
misalnya saya ingin menghapus sheet pilihan selain yang punya karakter "Wkr"
arti lain akan dihapus sheetnya kecuali sheet yang mempunyai karakter "Wkr"
sehingga nantinya sheet terdiri dari 5 sheet saja yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-Wkr, dan sheet Dnm-J-Wk
2. bagaimana mencopy beberapa sheet pilihan.
misalnya hanya sheet yang berkarakter "Wkr" saja yang akan dicopy sheetnya ke file baru.
sehingga file baru tsb akan mempunya 5 sheet yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-Wkr, dan sheet Dnm-J-Wk
semoga para pakar BeExceller mau menuangkan macronya sehingga akan menjadi panduan bagi saya dan rekan2 lainnya dalam aktivitasnya sehari2 di pekerjaan.
terima kasih, semoga Allah mencatatkan para rekan2 yang berilmu sebagai amal ibadah.
Salam.
ASL.
saya sudah taruh skrip tsb ke macro. macro untuk hapus beberapa sheet sudah jalan. namun bukan "wkr"nya yang harus dihapus, tetapi selain "wkr" agar dihapus.
macro copy dan pindah beberapa sheet tidak jalan, ada debug dan mengarah ke wbkApp = ThisWorkbook
terlampir file yang dimaksud. mudah2n dapat solusinya.
terima kasih,
ASL
To: belajar-excel@yahoogroups.com
From: mr.nmkid@gmail.com
Date: Thu, 6 Mar 2014 23:43:28 +0700
Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
Hai ASL,
2. copy sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
dim wbkApp as workbook,wbkTarget as workbook
dim sht as worksheet, lShtNew as long
lshtnew=application.sheetsinnewworkbook
application.sheetsinnewworkbook=1
application.displayalerts=false
wbkapp=thisworkbook
wbktarget=workbooks.add
for each sht in wbkapp.worksheets
if instr(lcase$(sht.name),"wkr")<>0 then
sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
endif
next sht
wbktarget.sheets(1).delete
application.sheetsinnewworkbook=lshtnew
application.displayalerts=true
1. delete sheet yang namanya punya teks berbunyi 'wkr'
dim sht as worksheet
application.displayalerts=false
sheets.add sheets(1)
for each sht in thisworkbook.worksheets
if instr(lcase$(sht.name),"wkr")<>0 then
sht.delete
endif
next sht
if sheets.count>1 then
sheets(1).delete
endif
application.displayalerts=true
0. move sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
>> seperti nomor 2 tetapi ditambahkan beberapa baris yang ada dalam nomor 1 disertai rujukan workbooknya (lihat yang biru)
dim wbkApp as workbook,wbkTarget as workbook
dim sht as worksheet, lShtNew as long
lshtnew=application.sheetsinnewworkbook
application.sheetsinnewworkbook=1
application.displayalerts=false
wbkapp=thisworkbook
wbktarget=workbooks.add
wbkapp.sheets.add wbkapp.sheets(1)
for each sht in wbkapp.worksheets
if instr(lcase$(sht.name),"wkr")<>0 then
sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
endif
next sht
if wbkapp.sheets.count>1 then
wbkapp.sheets(1).delete
endif
wbktarget.sheets(1).delete
application.sheetsinnewworkbook=lshtnew
application.displayalerts=true
gitu kali ya...
silakan dikembangkan sendiri sesuai kebutuhan ya...
Wassalam,
Kid.
2014-03-06 11:46 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
Dear BeExceller,
saya punya file excel dalam workbook ada 10 sheet :
1. Man-Wkr
2. Man-Tpg
3. Dnm-Wkr
4. Dnm-Wkr-US
5. Ks-Wkr
6. Dnm-J-Wkr
7. Man-Trk
8. Man-Fiy
9. Dnm-Trk
10. Dnm-Fiy
Bagaimana macro :
1. bagaimana menghapus beberapa sheet pilihan
misalnya saya ingin menghapus sheet pilihan selain yang punya karakter "Wkr"
arti lain akan dihapus sheetnya kecuali sheet yang mempunyai karakter "Wkr"
sehingga nantinya sheet terdiri dari 5 sheet saja yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-
2. bagaimana mencopy beberapa sheet pilihan.
misalnya hanya sheet yang berkarakter "Wkr" saja yang akan dicopy sheetnya ke file baru.
sehingga file baru tsb akan mempunya 5 sheet yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-
semoga para pakar BeExceller mau menuangkan macronya sehingga akan menjadi panduan bagi saya dan rekan2 lainnya dalam aktivitasnya sehari2 di pekerjaan.
terima kasih, semoga Allah mencatatkan para rekan2 yang berilmu sebagai amal ibadah.
Salam.
ASL.
Thu Mar 13, 2014 3:26 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Oh iya,
kalau gitu ganti <> menjadi = bagaimana ? Kalau masih gak cocok, ganti saja
dengan yang lainnya yang Anda kira-kira pas... hehehe...
Wassalam,
Kid.
2014-03-13 17:10 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
>
>
> Mr Kid,
> saya sudah taruh skrip tsb ke macro. macro untuk hapus beberapa sheet
> sudah jalan. namun bukan "wkr"nya yang harus dihapus, tetapi selain "wkr"
> agar dihapus.
> macro copy dan pindah beberapa sheet tidak jalan, ada debug dan mengarah
> ke wbkApp = ThisWorkbook
> terlampir file yang dimaksud. mudah2n dapat solusinya.
>
> terima kasih,
> ASL
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: mr.nmkid@gmail.com
> Date: Thu, 6 Mar 2014 23:43:28 +0700
> Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan
> tanggal
>
>
>
> Hai ASL,
>
> 2. copy sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
> dim wbkApp as workbook,wbkTarget as workbook
> dim sht as worksheet, lShtNew as long
>
> lshtnew=application.sheetsinnewworkbook
> application.sheetsinnewworkbook=1
> application.displayalerts=false
>
> wbkapp=thisworkbook
> wbktarget=workbooks.add
>
> for each sht in wbkapp.worksheets
> if instr(lcase$(sht.name),"wkr")<>0 then
> sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
> endif
> next sht
> wbktarget.sheets(1).delete
>
> application.sheetsinnewworkbook=lshtnew
> application.displayalerts=true
>
> 1. delete sheet yang namanya punya teks berbunyi 'wkr'
> dim sht as worksheet
>
> application.displayalerts=false
> sheets.add sheets(1)
>
> for each sht in thisworkbook.worksheets
> if instr(lcase$(sht.name),"wkr")<>0 then
> sht.delete
> endif
> next sht
> if sheets.count>1 then
> sheets(1).delete
> endif
> application.displayalerts=true
>
> 0. move sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
> >> seperti nomor 2 tetapi ditambahkan beberapa baris yang ada dalam nomor
> 1 disertai rujukan workbooknya (lihat yang biru)
> dim wbkApp as workbook,wbkTarget as workbook
> dim sht as worksheet, lShtNew as long
>
> lshtnew=application.sheetsinnewworkbook
> application.sheetsinnewworkbook=1
> application.displayalerts=false
>
> wbkapp=thisworkbook
> wbktarget=workbooks.add
>
> wbkapp.sheets.add wbkapp.sheets(1)
> for each sht in wbkapp.worksheets
> if instr(lcase$(sht.name),"wkr")<>0 then
> sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
> endif
> next sht
> if wbkapp.sheets.count>1 then
> wbkapp.sheets(1).delete
> endif
> wbktarget.sheets(1).delete
>
> application.sheetsinnewworkbook=lshtnew
> application.displayalerts=true
>
> gitu kali ya...
> silakan dikembangkan sendiri sesuai kebutuhan ya...
>
> Wassalam,
> Kid.
>
>
>
>
> 2014-03-06 11:46 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>
> :
>
>
>
> Dear BeExceller,
> saya punya file excel dalam workbook ada 10 sheet :
> 1. Man-Wkr
> 2. Man-Tpg
> 3. Dnm-Wkr
> 4. Dnm-Wkr-US
> 5. Ks-Wkr
> 6. Dnm-J-Wkr
> 7. Man-Trk
> 8. Man-Fiy
> 9. Dnm-Trk
> 10. Dnm-Fiy
>
> Bagaimana macro :
> 1. bagaimana menghapus beberapa sheet pilihan
> misalnya saya ingin menghapus sheet pilihan selain yang punya karakter
> "Wkr"
> arti lain akan dihapus sheetnya kecuali sheet yang mempunyai karakter
> "Wkr"
> sehingga nantinya sheet terdiri dari 5 sheet saja yaitu Man-Wkr,
> Dnm-Wkr, Dnm_Wkr-US,Ks-Wkr, dan sheet Dnm-J-Wk
>
> 2. bagaimana mencopy beberapa sheet pilihan.
> misalnya hanya sheet yang berkarakter "Wkr" saja yang akan dicopy
> sheetnya ke file baru.
> sehingga file baru tsb akan mempunya 5 sheet yaitu Man-Wkr, Dnm-Wkr,
> Dnm_Wkr-US,Ks-Wkr, dan sheet Dnm-J-Wk
>
> semoga para pakar BeExceller mau menuangkan macronya sehingga akan menjadi
> panduan bagi saya dan rekan2 lainnya dalam aktivitasnya sehari2 di
> pekerjaan.
>
> terima kasih, semoga Allah mencatatkan para rekan2 yang berilmu sebagai
> amal ibadah.
>
> Salam.
> ASL.
>
>
>
>
>
>
kalau gitu ganti <> menjadi = bagaimana ? Kalau masih gak cocok, ganti saja
dengan yang lainnya yang Anda kira-kira pas... hehehe...
Wassalam,
Kid.
2014-03-13 17:10 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
>
>
> Mr Kid,
> saya sudah taruh skrip tsb ke macro. macro untuk hapus beberapa sheet
> sudah jalan. namun bukan "wkr"nya yang harus dihapus, tetapi selain "wkr"
> agar dihapus.
> macro copy dan pindah beberapa sheet tidak jalan, ada debug dan mengarah
> ke wbkApp = ThisWorkbook
> terlampir file yang dimaksud. mudah2n dapat solusinya.
>
> terima kasih,
> ASL
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: mr.nmkid@gmail.com
> Date: Thu, 6 Mar 2014 23:43:28 +0700
> Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan
> tanggal
>
>
>
> Hai ASL,
>
> 2. copy sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
> dim wbkApp as workbook,wbkTarget as workbook
> dim sht as worksheet, lShtNew as long
>
> lshtnew=application.sheetsinnewworkbook
> application.sheetsinnewworkbook=1
> application.displayalerts=false
>
> wbkapp=thisworkbook
> wbktarget=workbooks.add
>
> for each sht in wbkapp.worksheets
> if instr(lcase$(sht.name),"wkr")<>0 then
> sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
> endif
> next sht
> wbktarget.sheets(1).delete
>
> application.sheetsinnewworkbook=lshtnew
> application.displayalerts=true
>
> 1. delete sheet yang namanya punya teks berbunyi 'wkr'
> dim sht as worksheet
>
> application.displayalerts=false
> sheets.add sheets(1)
>
> for each sht in thisworkbook.worksheets
> if instr(lcase$(sht.name),"wkr")<>0 then
> sht.delete
> endif
> next sht
> if sheets.count>1 then
> sheets(1).delete
> endif
> application.displayalerts=true
>
> 0. move sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
> >> seperti nomor 2 tetapi ditambahkan beberapa baris yang ada dalam nomor
> 1 disertai rujukan workbooknya (lihat yang biru)
> dim wbkApp as workbook,wbkTarget as workbook
> dim sht as worksheet, lShtNew as long
>
> lshtnew=application.sheetsinnewworkbook
> application.sheetsinnewworkbook=1
> application.displayalerts=false
>
> wbkapp=thisworkbook
> wbktarget=workbooks.add
>
> wbkapp.sheets.add wbkapp.sheets(1)
> for each sht in wbkapp.worksheets
> if instr(lcase$(sht.name),"wkr")<>0 then
> sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
> endif
> next sht
> if wbkapp.sheets.count>1 then
> wbkapp.sheets(1).delete
> endif
> wbktarget.sheets(1).delete
>
> application.sheetsinnewworkbook=lshtnew
> application.displayalerts=true
>
> gitu kali ya...
> silakan dikembangkan sendiri sesuai kebutuhan ya...
>
> Wassalam,
> Kid.
>
>
>
>
> 2014-03-06 11:46 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>
> :
>
>
>
> Dear BeExceller,
> saya punya file excel dalam workbook ada 10 sheet :
> 1. Man-Wkr
> 2. Man-Tpg
> 3. Dnm-Wkr
> 4. Dnm-Wkr-US
> 5. Ks-Wkr
> 6. Dnm-J-Wkr
> 7. Man-Trk
> 8. Man-Fiy
> 9. Dnm-Trk
> 10. Dnm-Fiy
>
> Bagaimana macro :
> 1. bagaimana menghapus beberapa sheet pilihan
> misalnya saya ingin menghapus sheet pilihan selain yang punya karakter
> "Wkr"
> arti lain akan dihapus sheetnya kecuali sheet yang mempunyai karakter
> "Wkr"
> sehingga nantinya sheet terdiri dari 5 sheet saja yaitu Man-Wkr,
> Dnm-Wkr, Dnm_Wkr-US,Ks-
>
> 2. bagaimana mencopy beberapa sheet pilihan.
> misalnya hanya sheet yang berkarakter "Wkr" saja yang akan dicopy
> sheetnya ke file baru.
> sehingga file baru tsb akan mempunya 5 sheet yaitu Man-Wkr, Dnm-Wkr,
> Dnm_Wkr-US,Ks-
>
> semoga para pakar BeExceller mau menuangkan macronya sehingga akan menjadi
> panduan bagi saya dan rekan2 lainnya dalam aktivitasnya sehari2 di
> pekerjaan.
>
> terima kasih, semoga Allah mencatatkan para rekan2 yang berilmu sebagai
> amal ibadah.
>
> Salam.
> ASL.
>
>
>
>
>
>
=====================================================================
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