15 New Messages
Digest #1748
2c
Fw: [belajar-excel] Isian Bon sesuai dengan baris yang di klik by "hendrik karnadi" hendrikkarnadi
Messages
Wed Aug 29, 2012 11:15 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Buat rekan2 yang lagi getol belajar Macro dan masih menggunakan Excel 2003, link di bawah ini mungkin sedikit membantu pengenalan macro:
http://www.ilab.gunadarma.ac.id/Info/modul/NewATA/Modul%20ATA/Praktikum%20Komputer%202/M1.pdf
Salam,
Hendrik Karnadi
http://www.ilab.
Salam,
Hendrik Karnadi
Wed Aug 29, 2012 11:20 pm (PDT) . Posted by:
"Kelik Pitoyo"
Selamat Siang,
Yth. Be Exceller,
Sebelumnya saya ucapkan banyak terima kasih dan mohon maaf bila banyak code /makro dan rumus yang saya ambil dari temen-temen.
Sebelumnya saya pernah posting hal ini namun dengan permasalahan berbeda,
bila saya menginginkan kolom "AI" diklik 2x maka akan muncul print preview form bon BBM,
Permasalahan yang saya hadapi isian bon BBM belum sesuai dengan baris yang saya klik untuk di cetak. (harus manual mengganti no BON)
Bagaimana pemecahannya, mohon pencerahannya.
Terima kasih sebelumnya,
Salam,
kelik
Yth. Be Exceller,
Sebelumnya saya ucapkan banyak terima kasih dan mohon maaf bila banyak code /makro dan rumus yang saya ambil dari temen-temen.
Sebelumnya saya pernah posting hal ini namun dengan permasalahan berbeda,
bila saya menginginkan kolom "AI" diklik 2x maka akan muncul print preview form bon BBM,
Permasalahan yang saya hadapi isian bon BBM belum sesuai dengan baris yang saya klik untuk di cetak. (harus manual mengganti no BON)
Bagaimana pemecahannya, mohon pencerahannya.
Terima kasih sebelumnya,
Salam,
kelik
Thu Aug 30, 2012 2:26 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Coba ubah isi prosedur event worksheet before double click menjadi :
With Target 'pada object range bernama target
If .Count = 1 Then 'cek jumlah cell yang di double click
(hehehe... butuh gak ya?)
If .Column = 35 Then 'cek indeks kolom yang di double click
Range("i33").Value = CLng(Right(.Value, 7)) 'ganti isi
cell i33
Call cetak 'panggil prosedur cetak
Cancel = True 'batalkan proses double click
End If 'akhir blok cek indeks kolom
End If 'akhir blok cek jumlah cell yang di
double click
End With 'akhir blok pada object range bernama
target
Wassalam,
Kid.
2012/8/30 Kelik Pitoyo <kelik@shindengen.co.id >
> **
>
>
> Selamat Siang,
> Yth. Be Exceller,
>
> Sebelumnya saya ucapkan banyak terima kasih dan mohon maaf bila banyak
> code /makro dan rumus yang saya ambil dari temen-temen.
> Sebelumnya saya pernah posting hal ini namun dengan permasalahan berbeda,
> bila saya menginginkan kolom "AI" diklik 2x maka akan muncul print preview
> form bon BBM,
> Permasalahan yang saya hadapi isian bon BBM belum sesuai dengan baris yang
> saya klik untuk di cetak. (harus manual mengganti no BON)
> Bagaimana pemecahannya, mohon pencerahannya.
>
> Terima kasih sebelumnya,
> Salam,
> kelik
>
>
>
With Target 'pada object range bernama target
If .Count = 1 Then 'cek jumlah cell yang di double click
(hehehe... butuh gak ya?)
If .Column = 35 Then 'cek indeks kolom yang di double click
Range("i33")
cell i33
Call cetak 'panggil prosedur cetak
Cancel = True 'batalkan proses double click
End If 'akhir blok cek indeks kolom
End If 'akhir blok cek jumlah cell yang di
double click
End With 'akhir blok pada object range bernama
target
Wassalam,
Kid.
2012/8/30 Kelik Pitoyo <kelik@shindengen.
> **
>
>
> Selamat Siang,
> Yth. Be Exceller,
>
> Sebelumnya saya ucapkan banyak terima kasih dan mohon maaf bila banyak
> code /makro dan rumus yang saya ambil dari temen-temen.
> Sebelumnya saya pernah posting hal ini namun dengan permasalahan berbeda,
> bila saya menginginkan kolom "AI" diklik 2x maka akan muncul print preview
> form bon BBM,
> Permasalahan yang saya hadapi isian bon BBM belum sesuai dengan baris yang
> saya klik untuk di cetak. (harus manual mengganti no BON)
> Bagaimana pemecahannya, mohon pencerahannya.
>
> Terima kasih sebelumnya,
> Salam,
> kelik
>
>
>
Thu Aug 30, 2012 3:11 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Ini memang langkah Master.
Sebelumnya saya coba buat tanpa Cancel = True namun programnya looping terus sampai error.
Mr Kid, mau nanya mengenai CLng(Right(.Value, 7)), mengapa kalau CLng dihilangkan hasilnya menjadi error, padahal kan tujuh angka tsb (dari kanan) sudah merupakan bilangan bulat....
Mohon pencerahannya.
Terima kasih.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Thursday, 30 August 2012, 16:26
Subject: Re: [belajar-excel] Isian Bon sesuai dengan baris yang di klik
Coba ubah isi prosedur event worksheet before double click menjadi :
With Target 'pada object range bernama target
If .Count = 1 Then 'cek jumlah cell yang di double click (hehehe... butuh gak ya?)
If .Column = 35 Then 'cek indeks kolom yang di double click
Range("i33").Value = CLng(Right(.Value, 7)) 'ganti isi cell i33
Call cetak 'panggil prosedur cetak
Cancel = True 'batalkan proses double click
End If 'akhir blok cek indeks kolom
End If 'akhir blok cek jumlah cell yang di double click
End With 'akhir blok pada object range bernama target
Wassalam,
Kid.
2012/8/30 Kelik Pitoyo <kelik@shindengen.co.id >
>
>Selamat Siang,
>Yth. Be Exceller,
>
>Sebelumnya saya ucapkan banyak terima kasih dan mohon maaf bila banyak code /makro dan rumus yang saya ambil dari temen-temen.
>Sebelumnya saya pernah posting hal ini namun dengan permasalahan berbeda,
>bila saya menginginkan kolom "AI" diklik 2x maka akan muncul print preview form bon BBM,
>Permasalahan yang saya hadapi isian bon BBM belum sesuai dengan baris yang saya klik untuk di cetak. (harus manual mengganti no BON)
>Bagaimana pemecahannya, mohon pencerahannya.
>
>Terima kasih sebelumnya,
>Salam,
>kelik
>
>
Sebelumnya saya coba buat tanpa Cancel = True namun programnya looping terus sampai error.
Mr Kid, mau nanya mengenai CLng(Right(.
Mohon pencerahannya.
Terima kasih.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Thursday, 30 August 2012, 16:26
Subject: Re: [belajar-excel] Isian Bon sesuai dengan baris yang di klik
Coba ubah isi prosedur event worksheet before double click menjadi :
With Target 'pada object range bernama target
If .Count = 1 Then 'cek jumlah cell yang di double click (hehehe... butuh gak ya?)
If .Column = 35 Then 'cek indeks kolom yang di double click
Range("i33")
Call cetak 'panggil prosedur cetak
Cancel = True 'batalkan proses double click
End If 'akhir blok cek indeks kolom
End If 'akhir blok cek jumlah cell yang di double click
End With 'akhir blok pada object range bernama target
Wassalam,
Kid.
2012/8/30 Kelik Pitoyo <kelik@shindengen.
>
>Selamat Siang,
>Yth. Be Exceller,
>
>Sebelumnya saya ucapkan banyak terima kasih dan mohon maaf bila banyak code /makro dan rumus yang saya ambil dari temen-temen.
>Sebelumnya saya pernah posting hal ini namun dengan permasalahan berbeda,
>bila saya menginginkan kolom "AI" diklik 2x maka akan muncul print preview form bon BBM,
>Permasalahan yang saya hadapi isian bon BBM belum sesuai dengan baris yang saya klik untuk di cetak. (harus manual mengganti no BON)
>Bagaimana pemecahannya, mohon pencerahannya.
>
>Terima kasih sebelumnya,
>Salam,
>kelik
>
>
Thu Aug 30, 2012 12:33 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Chart dinamis dibentuk dengan menyusun sumber series yang dinamis.
Sumber series yang merujuk ke suatu range dinamis disimpan dengan suatu
nama range tertentu.
Nama range yang dinamis disusun dengan fungsi-fungsi kelompok reference
seperti Offset, Indirect, atau Index.
File terlampir memanfaatkan fungsi Index untuk menyusun suatu nama range
yang dinamis.
Bagian refers to saat pendefinisian nama range diisi dengan formula :
(misal nama range : axisHor)
=Result!$B$2:INDEX(Result!$B:$B,Result!$H$1+1)
formula di atas membutuhkan sebuah cell bantu di H1 yang berisi jumlah
record yang ada dalam tabel (tanpa header).
Salah satu formula kalkulasi jumlah record untuk kasus ini adalah :
=MAX(COUNTA(C:C)-1,COUNTA(D:D)-1,COUNTA(E:E)-1)
Setelah terbentuk sebuah nama range, maka data untuk chart bisa dirujuk ke
nama range tersebut dengan format :
*='nama file excelnya.ekstensinya'!nama_rangenya*
Wassalam,
Kid.
2012/8/30 Abang Tukang tanya <abangtukangtanya@yahoo.co.id >
> **
>
>
> Dear Master & teman2 belajar-excel,
>
>
> Saya boleh bertanya lagi? Bisakah dalam data terlampir saya bisa membuat
> grafik ini sifatnya custom atau bisa berubah sesuai dengan bertambahnya
> kolom D (D1,D2, dstnya) tanpa harus secara manual mengedit grafiknya?
> Terima kasih
>
>
> Regards
>
>
> Abang Tukang Tanya
>
>
>
>
Sumber series yang merujuk ke suatu range dinamis disimpan dengan suatu
nama range tertentu.
Nama range yang dinamis disusun dengan fungsi-fungsi kelompok reference
seperti Offset, Indirect, atau Index.
File terlampir memanfaatkan fungsi Index untuk menyusun suatu nama range
yang dinamis.
Bagian refers to saat pendefinisian nama range diisi dengan formula :
(misal nama range : axisHor)
=Result!$B$2:
formula di atas membutuhkan sebuah cell bantu di H1 yang berisi jumlah
record yang ada dalam tabel (tanpa header).
Salah satu formula kalkulasi jumlah record untuk kasus ini adalah :
=MAX(COUNTA(
Setelah terbentuk sebuah nama range, maka data untuk chart bisa dirujuk ke
nama range tersebut dengan format :
*='nama file excelnya.ekstensiny
Wassalam,
Kid.
2012/8/30 Abang Tukang tanya <abangtukangtanya@
> **
>
>
> Dear Master & teman2 belajar-excel,
>
>
> Saya boleh bertanya lagi? Bisakah dalam data terlampir saya bisa membuat
> grafik ini sifatnya custom atau bisa berubah sesuai dengan bertambahnya
> kolom D (D1,D2, dstnya) tanpa harus secara manual mengedit grafiknya?
> Terima kasih
>
>
> Regards
>
>
> Abang Tukang Tanya
>
>
>
>
Thu Aug 30, 2012 12:55 am (PDT) . Posted by:
"Abang Tukang tanya"
Terima kasih Mr. Kid Sudah seperti yang saya harapkan.
________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 30 Agustus 2012 14:33
Judul: Re: [belajar-excel] Update Grafik
Chart dinamis dibentuk dengan menyusun sumber series yang dinamis.
Sumber series yang merujuk ke suatu range dinamis disimpan dengan suatu nama range tertentu.
Nama range yang dinamis disusun dengan fungsi-fungsi kelompok reference seperti Offset, Indirect, atau Index.
File terlampir memanfaatkan fungsi Index untuk menyusun suatu nama range yang dinamis.
Bagian refers to saat pendefinisian nama range diisi dengan formula : (misal nama range : axisHor)
=Result!$B$2:INDEX(Result!$B:$B,Result!$H$1+1)
formula di atas membutuhkan sebuah cell bantu di H1 yang berisi jumlah record yang ada dalam tabel (tanpa header).
Salah satu formula kalkulasi jumlah record untuk kasus ini adalah :
=MAX(COUNTA(C:C)-1,COUNTA(D:D)-1,COUNTA(E:E)-1)
Setelah terbentuk sebuah nama range, maka data untuk chart bisa dirujuk ke nama range tersebut dengan format :
='nama file excelnya.ekstensinya'!nama_rangenya
Wassalam,
Kid.
2012/8/30 Abang Tukang tanya <abangtukangtanya@yahoo.co.id >
>
>Dear Master & teman2 belajar-excel,
>
>
>
>
>Saya boleh bertanya lagi? Bisakah dalam data terlampir saya bisa membuat grafik ini sifatnya custom atau bisa berubah sesuai dengan bertambahnya kolom D (D1,D2, dstnya) tanpa harus secara manual mengedit grafiknya? Terima kasih
>
>
>
>
>Regards
>
>
>
>
>Abang Tukang Tanya
>
____________
Dari: Kid Mr. <mr.nmkid@gmail.
Kepada: belajar-excel@
Dikirim: Kamis, 30 Agustus 2012 14:33
Judul: Re: [belajar-excel] Update Grafik
Chart dinamis dibentuk dengan menyusun sumber series yang dinamis.
Sumber series yang merujuk ke suatu range dinamis disimpan dengan suatu nama range tertentu.
Nama range yang dinamis disusun dengan fungsi-fungsi kelompok reference seperti Offset, Indirect, atau Index.
File terlampir memanfaatkan fungsi Index untuk menyusun suatu nama range yang dinamis.
Bagian refers to saat pendefinisian nama range diisi dengan formula : (misal nama range : axisHor)
=Result!$B$2:
formula di atas membutuhkan sebuah cell bantu di H1 yang berisi jumlah record yang ada dalam tabel (tanpa header).
Salah satu formula kalkulasi jumlah record untuk kasus ini adalah :
=MAX(COUNTA(
Setelah terbentuk sebuah nama range, maka data untuk chart bisa dirujuk ke nama range tersebut dengan format :
='nama file excelnya.ekstensiny
Wassalam,
Kid.
2012/8/30 Abang Tukang tanya <abangtukangtanya@
>
>Dear Master & teman2 belajar-excel,
>
>
>
>
>Saya boleh bertanya lagi? Bisakah dalam data terlampir saya bisa membuat grafik ini sifatnya custom atau bisa berubah sesuai dengan bertambahnya kolom D (D1,D2, dstnya) tanpa harus secara manual mengedit grafiknya? Terima kasih
>
>
>
>
>Regards
>
>
>
>
>Abang Tukang Tanya
>
Thu Aug 30, 2012 1:36 am (PDT) . Posted by:
"Abang Tukang tanya"
Dear Mr Kid.
Boleh tanya lagi ya, saya masih bingung dengan penjelasan Mr. Kid, yang saya bingungkan adalah:
1." =Result!$B$2:INDEX(Result!$B:$B,Result!$H$1+1) .",Rumusnya dimana ya kok saya cari g ketemu?
2. "Setelah terbentuk sebuah nama range, maka data untuk chart bisa dirujuk ke nama range tersebut dengan format :='nama file excelnya.ekstensinya'!nama_rangenya",
Mohon petunjuknya Mr. Kid,
Regards
Abang tukang tanya
________________________________
Dari: Abang Tukang tanya <abangtukangtanya@yahoo.co.id >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Kamis, 30 Agustus 2012 14:54
Judul: Bls: [belajar-excel] Update Grafik
Terima kasih Mr. Kid Sudah seperti yang saya harapkan.
________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 30 Agustus 2012 14:33
Judul: Re: [belajar-excel] Update Grafik
Chart dinamis dibentuk dengan menyusun sumber series yang dinamis.
Sumber series yang merujuk ke suatu range dinamis disimpan dengan suatu nama range tertentu.
Nama range yang dinamis disusun dengan fungsi-fungsi kelompok reference seperti Offset, Indirect, atau Index.
File terlampir memanfaatkan fungsi Index untuk menyusun suatu nama range yang dinamis.
Bagian refers to saat pendefinisian nama range diisi dengan formula : (misal nama range : axisHor)
=Result!$B$2:INDEX(Result!$B:$B,Result!$H$1+1)
formula di atas membutuhkan sebuah cell bantu di H1 yang berisi jumlah record yang ada dalam tabel (tanpa header).
Salah satu formula kalkulasi jumlah record untuk kasus ini adalah :
=MAX(COUNTA(C:C)-1,COUNTA(D:D)-1,COUNTA(E:E)-1)
Setelah terbentuk sebuah nama range, maka data untuk chart bisa dirujuk ke nama range tersebut dengan format :
='nama file excelnya.ekstensinya'!nama_rangenya
Wassalam,
Kid.
2012/8/30 Abang Tukang tanya <abangtukangtanya@yahoo.co.id >
>
>Dear Master & teman2 belajar-excel,
>
>
>
>
>Saya boleh bertanya lagi? Bisakah dalam data terlampir saya bisa membuat grafik ini sifatnya custom atau bisa berubah sesuai dengan bertambahnya kolom D (D1,D2, dstnya) tanpa harus secara manual mengedit grafiknya? Terima kasih
>
>
>
>
>Regards
>
>
>
>
>Abang Tukang Tanya
>
Boleh tanya lagi ya, saya masih bingung dengan penjelasan Mr. Kid, yang saya bingungkan adalah:
1." =Result!$B$2:
2. "Setelah terbentuk sebuah nama range, maka data untuk chart bisa dirujuk ke nama range tersebut dengan format :='nama file excelnya.ekstensiny
Mohon petunjuknya Mr. Kid,
Regards
Abang tukang tanya
____________
Dari: Abang Tukang tanya <abangtukangtanya@
Kepada: "belajar-excel@
Dikirim: Kamis, 30 Agustus 2012 14:54
Judul: Bls: [belajar-excel] Update Grafik
Terima kasih Mr. Kid Sudah seperti yang saya harapkan.
____________
Dari: Kid Mr. <mr.nmkid@gmail.
Kepada: belajar-excel@
Dikirim: Kamis, 30 Agustus 2012 14:33
Judul: Re: [belajar-excel] Update Grafik
Chart dinamis dibentuk dengan menyusun sumber series yang dinamis.
Sumber series yang merujuk ke suatu range dinamis disimpan dengan suatu nama range tertentu.
Nama range yang dinamis disusun dengan fungsi-fungsi kelompok reference seperti Offset, Indirect, atau Index.
File terlampir memanfaatkan fungsi Index untuk menyusun suatu nama range yang dinamis.
Bagian refers to saat pendefinisian nama range diisi dengan formula : (misal nama range : axisHor)
=Result!$B$2:
formula di atas membutuhkan sebuah cell bantu di H1 yang berisi jumlah record yang ada dalam tabel (tanpa header).
Salah satu formula kalkulasi jumlah record untuk kasus ini adalah :
=MAX(COUNTA(
Setelah terbentuk sebuah nama range, maka data untuk chart bisa dirujuk ke nama range tersebut dengan format :
='nama file excelnya.ekstensiny
Wassalam,
Kid.
2012/8/30 Abang Tukang tanya <abangtukangtanya@
>
>Dear Master & teman2 belajar-excel,
>
>
>
>
>Saya boleh bertanya lagi? Bisakah dalam data terlampir saya bisa membuat grafik ini sifatnya custom atau bisa berubah sesuai dengan bertambahnya kolom D (D1,D2, dstnya) tanpa harus secara manual mengedit grafiknya? Terima kasih
>
>
>
>
>Regards
>
>
>
>
>Abang Tukang Tanya
>
Thu Aug 30, 2012 1:40 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
1. di excel 2007 :: ribbon Formulas -> Name manager -> pilih nama range
(misal axisHor) -> lihat dibagian refers to
2. data untuk chart ada dalam chart (buat chart kosong atau chart yang
sudah ada) dengan :
klik kanan si chart -> select data -> pilih sebuah series -> tekan Edit ->
lihat rujukan ke range datanya.
Wassalam,
Kid.
2012/8/30 Abang Tukang tanya <abangtukangtanya@yahoo.co.id >
> **
>
>
> Dear Mr Kid.
>
> Boleh tanya lagi ya, saya masih bingung dengan penjelasan Mr. Kid, yang
> saya bingungkan adalah:
> 1. " =Result!$B$2:INDEX(Result!$B:$B,Result!$H$1+1) .", Rumusnya dimana
> ya kok saya cari g ketemu?
> 2. "Setelah terbentuk sebuah nama range, maka data untuk chart bisa
> dirujuk ke nama range tersebut dengan format :*='nama file excelnya.
> ekstensinya'!nama_rangenya", *
> *
> *
> Mohon petunjuknya Mr. Kid,
> *
> *
> *Regards *
> *
> *
> *
> *
> Abang tukang tanya
>
> ------------------------------
> *Dari:* Abang Tukang tanya <abangtukangtanya@yahoo.co.id >
> *Kepada:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Dikirim:* Kamis, 30 Agustus 2012 14:54
> *Judul:* Bls: [belajar-excel] Update Grafik
>
>
> Terima kasih Mr. Kid Sudah seperti yang saya harapkan.
>
> ------------------------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 30 Agustus 2012 14:33
> *Judul:* Re: [belajar-excel] Update Grafik
>
>
> Chart dinamis dibentuk dengan menyusun sumber series yang dinamis.
> Sumber series yang merujuk ke suatu range dinamis disimpan dengan suatu
> nama range tertentu.
> Nama range yang dinamis disusun dengan fungsi-fungsi kelompok reference
> seperti Offset, Indirect, atau Index.
>
> File terlampir memanfaatkan fungsi Index untuk menyusun suatu nama range
> yang dinamis.
> Bagian refers to saat pendefinisian nama range diisi dengan formula :
> (misal nama range : axisHor)
> =Result!$B$2:INDEX(Result!$B:$B,Result!$H$1+1)
>
> formula di atas membutuhkan sebuah cell bantu di H1 yang berisi jumlah
> record yang ada dalam tabel (tanpa header).
> Salah satu formula kalkulasi jumlah record untuk kasus ini adalah :
> =MAX(COUNTA(C:C)-1,COUNTA(D:D)-1,COUNTA(E:E)-1)
>
> Setelah terbentuk sebuah nama range, maka data untuk chart bisa dirujuk ke
> nama range tersebut dengan format :
> *='nama file excelnya.ekstensinya'!nama_rangenya*
>
> Wassalam,
> Kid.
>
> 2012/8/30 Abang Tukang tanya <abangtukangtanya@yahoo.co.id >
>
> **
>
> Dear Master & teman2 belajar-excel,
>
>
> Saya boleh bertanya lagi? Bisakah dalam data terlampir saya bisa membuat
> grafik ini sifatnya custom atau bisa berubah sesuai dengan bertambahnya
> kolom D (D1,D2, dstnya) tanpa harus secara manual mengedit grafiknya?
> Terima kasih
>
>
> Regards
>
>
> Abang Tukang Tanya
>
>
>
>
>
>
>
>
(misal axisHor) -> lihat dibagian refers to
2. data untuk chart ada dalam chart (buat chart kosong atau chart yang
sudah ada) dengan :
klik kanan si chart -> select data -> pilih sebuah series -> tekan Edit ->
lihat rujukan ke range datanya.
Wassalam,
Kid.
2012/8/30 Abang Tukang tanya <abangtukangtanya@
> **
>
>
> Dear Mr Kid.
>
> Boleh tanya lagi ya, saya masih bingung dengan penjelasan Mr. Kid, yang
> saya bingungkan adalah:
> 1. " =Result!$B$2:
> ya kok saya cari g ketemu?
> 2. "Setelah terbentuk sebuah nama range, maka data untuk chart bisa
> dirujuk ke nama range tersebut dengan format :*='nama file excelnya.
> ekstensinya'
> *
> *
> Mohon petunjuknya Mr. Kid,
> *
> *
> *Regards *
> *
> *
> *
> *
> Abang tukang tanya
>
> ------------
> *Dari:* Abang Tukang tanya <abangtukangtanya@
> *Kepada:* "belajar-excel@
> *Dikirim:* Kamis, 30 Agustus 2012 14:54
> *Judul:* Bls: [belajar-excel] Update Grafik
>
>
> Terima kasih Mr. Kid Sudah seperti yang saya harapkan.
>
> ------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Kamis, 30 Agustus 2012 14:33
> *Judul:* Re: [belajar-excel] Update Grafik
>
>
> Chart dinamis dibentuk dengan menyusun sumber series yang dinamis.
> Sumber series yang merujuk ke suatu range dinamis disimpan dengan suatu
> nama range tertentu.
> Nama range yang dinamis disusun dengan fungsi-fungsi kelompok reference
> seperti Offset, Indirect, atau Index.
>
> File terlampir memanfaatkan fungsi Index untuk menyusun suatu nama range
> yang dinamis.
> Bagian refers to saat pendefinisian nama range diisi dengan formula :
> (misal nama range : axisHor)
> =Result!$B$2:
>
> formula di atas membutuhkan sebuah cell bantu di H1 yang berisi jumlah
> record yang ada dalam tabel (tanpa header).
> Salah satu formula kalkulasi jumlah record untuk kasus ini adalah :
> =MAX(COUNTA(
>
> Setelah terbentuk sebuah nama range, maka data untuk chart bisa dirujuk ke
> nama range tersebut dengan format :
> *='nama file excelnya.ekstensiny
>
> Wassalam,
> Kid.
>
> 2012/8/30 Abang Tukang tanya <abangtukangtanya@
>
> **
>
> Dear Master & teman2 belajar-excel,
>
>
> Saya boleh bertanya lagi? Bisakah dalam data terlampir saya bisa membuat
> grafik ini sifatnya custom atau bisa berubah sesuai dengan bertambahnya
> kolom D (D1,D2, dstnya) tanpa harus secara manual mengedit grafiknya?
> Terima kasih
>
>
> Regards
>
>
> Abang Tukang Tanya
>
>
>
>
>
>
>
>
Thu Aug 30, 2012 1:51 am (PDT) . Posted by:
"Abang Tukang tanya"
Suipppp, ketemu Mr Kid. Senenge rek,. Makasi y
Regards,
Abang Tukang Tanya
________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 30 Agustus 2012 15:40
Judul: Re: [belajar-excel] Update Grafik
1. di excel 2007 :: ribbon Formulas -> Name manager -> pilih nama range (misal axisHor) -> lihat dibagian refers to
2. data untuk chart ada dalam chart (buat chart kosong atau chart yang sudah ada) dengan :
klik kanan si chart -> select data -> pilih sebuah series -> tekan Edit -> lihat rujukan ke range datanya.
Wassalam,
Kid.
2012/8/30 Abang Tukang tanya <abangtukangtanya@yahoo.co.id >
>
>Dear Mr Kid.
>
>
>Boleh tanya lagi ya, saya masih bingung dengan penjelasan Mr. Kid, yang saya bingungkan adalah:
>1." =Result!$B$2:INDEX(Result!$B:$B,Result!$H$1+1) .",Rumusnya dimana ya kok saya cari g ketemu?
>
>2. "Setelah terbentuk sebuah nama range, maka data untuk chart bisa dirujuk ke nama range tersebut dengan format :='nama file excelnya.ekstensinya'!nama_rangenya",
>
>
>Mohon petunjuknya Mr. Kid,
>
>
>Regards
>
>
>
>
>Abang tukang tanya
>
>
>
>________________________________
> Dari: Abang Tukang tanya <abangtukangtanya@yahoo.co.id >
>Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>Dikirim: Kamis, 30 Agustus 2012 14:54
>Judul: Bls: [belajar-excel] Update Grafik
>
>
>
>
>Terima kasih Mr. Kid Sudah seperti yang saya harapkan.
>
>
>
>________________________________
> Dari: Kid Mr. <mr.nmkid@gmail.com >
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Kamis, 30 Agustus 2012 14:33
>Judul: Re: [belajar-excel] Update Grafik
>
>
>
>Chart dinamis dibentuk dengan menyusun sumber series yang dinamis.
>Sumber series yang merujuk ke suatu range dinamis disimpan dengan suatu nama range tertentu.
>Nama range yang dinamis disusun dengan fungsi-fungsi kelompok reference seperti Offset, Indirect, atau Index.
>
>File terlampir memanfaatkan fungsi Index untuk menyusun suatu nama range yang dinamis.
>Bagian refers to saat pendefinisian nama range diisi dengan formula : (misal nama range : axisHor)
>=Result!$B$2:INDEX(Result!$B:$B,Result!$H$1+1)
>
>formula di atas membutuhkan sebuah cell bantu di H1 yang berisi jumlah record yang ada dalam tabel (tanpa header).
>Salah satu formula kalkulasi jumlah record untuk kasus ini adalah :
>=MAX(COUNTA(C:C)-1,COUNTA(D:D)-1,COUNTA(E:E)-1)
>
>Setelah terbentuk sebuah nama range, maka data untuk chart bisa dirujuk ke nama range tersebut dengan format :
>='nama file excelnya.ekstensinya'!nama_rangenya
>
>Wassalam,
>Kid.
>
>
>2012/8/30 Abang Tukang tanya <abangtukangtanya@yahoo.co.id >
>
>
>>
>>Dear Master & teman2 belajar-excel,
>>
>>
>>
>>
>>Saya boleh bertanya lagi? Bisakah dalam data terlampir saya bisa membuat grafik ini sifatnya custom atau bisa berubah sesuai dengan bertambahnya kolom D (D1,D2, dstnya) tanpa harus secara manual mengedit grafiknya? Terima kasih
>>
>>
>>
>>
>>Regards
>>
>>
>>
>>
>>Abang Tukang Tanya
>>
>
>
>
>
>
Regards,
Abang Tukang Tanya
____________
Dari: Kid Mr. <mr.nmkid@gmail.
Kepada: belajar-excel@
Dikirim: Kamis, 30 Agustus 2012 15:40
Judul: Re: [belajar-excel] Update Grafik
1. di excel 2007 :: ribbon Formulas -> Name manager -> pilih nama range (misal axisHor) -> lihat dibagian refers to
2. data untuk chart ada dalam chart (buat chart kosong atau chart yang sudah ada) dengan :
klik kanan si chart -> select data -> pilih sebuah series -> tekan Edit -> lihat rujukan ke range datanya.
Wassalam,
Kid.
2012/8/30 Abang Tukang tanya <abangtukangtanya@
>
>Dear Mr Kid.
>
>
>Boleh tanya lagi ya, saya masih bingung dengan penjelasan Mr. Kid, yang saya bingungkan adalah:
>1." =Result!$B$2:
>
>2. "Setelah terbentuk sebuah nama range, maka data untuk chart bisa dirujuk ke nama range tersebut dengan format :='nama file excelnya.ekstensiny
>
>
>Mohon petunjuknya Mr. Kid,
>
>
>Regards
>
>
>
>
>Abang tukang tanya
>
>
>
>___________
> Dari: Abang Tukang tanya <abangtukangtanya@
>Kepada: "belajar-excel@
>Dikirim: Kamis, 30 Agustus 2012 14:54
>Judul: Bls: [belajar-excel] Update Grafik
>
>
>
>
>Terima kasih Mr. Kid Sudah seperti yang saya harapkan.
>
>
>
>___________
> Dari: Kid Mr. <mr.nmkid@gmail.
>Kepada: belajar-excel@
>Dikirim: Kamis, 30 Agustus 2012 14:33
>Judul: Re: [belajar-excel] Update Grafik
>
>
>
>Chart dinamis dibentuk dengan menyusun sumber series yang dinamis.
>Sumber series yang merujuk ke suatu range dinamis disimpan dengan suatu nama range tertentu.
>Nama range yang dinamis disusun dengan fungsi-fungsi kelompok reference seperti Offset, Indirect, atau Index.
>
>File terlampir memanfaatkan fungsi Index untuk menyusun suatu nama range yang dinamis.
>Bagian refers to saat pendefinisian nama range diisi dengan formula : (misal nama range : axisHor)
>=Result!$B$
>
>formula di atas membutuhkan sebuah cell bantu di H1 yang berisi jumlah record yang ada dalam tabel (tanpa header).
>Salah satu formula kalkulasi jumlah record untuk kasus ini adalah :
>=MAX(COUNTA(
>
>Setelah terbentuk sebuah nama range, maka data untuk chart bisa dirujuk ke nama range tersebut dengan format :
>='nama file excelnya.ekstensiny
>
>Wassalam,
>Kid.
>
>
>2012/8/30 Abang Tukang tanya <abangtukangtanya@
>
>
>>
>>Dear Master & teman2 belajar-excel,
>>
>>
>>
>>
>>Saya boleh bertanya lagi? Bisakah dalam data terlampir saya bisa membuat grafik ini sifatnya custom atau bisa berubah sesuai dengan bertambahnya kolom D (D1,D2, dstnya) tanpa harus secara manual mengedit grafiknya? Terima kasih
>>
>>
>>
>>
>>Regards
>>
>>
>>
>>
>>Abang Tukang Tanya
>>
>
>
>
>
>
Thu Aug 30, 2012 12:46 am (PDT) . Posted by:
"Muhamad Abdillah XA" muhamad_abdillah
Dear Para Pakar Excel,
Mohon pencerahannya..
1. Pada saat saya save data Excel 2003 dengan menggunakan Excel 2010 saya selalu mendapat peringatan compatibily checker (terlampir). Mohon pencerahannya apakah apabila saya lanjutkan save dapat menyebabkan data tersebut bermasalah/ corrupt? Entah ada hubungannya atau tidak tapi teman2 kerja yang menggunakan database yang sama (data tersebut disimpan di LAN) jadi tidak bisa buka, bahkan Excel mereka menjadi restart
2. Bagaimana solusinya / save yang benar?
Terimakasih banyak sebelumnya
[cid:image002.jpg@01CD86BD.51C924D0 ]
BR//billy
Mohon pencerahannya.
1. Pada saat saya save data Excel 2003 dengan menggunakan Excel 2010 saya selalu mendapat peringatan compatibily checker (terlampir). Mohon pencerahannya apakah apabila saya lanjutkan save dapat menyebabkan data tersebut bermasalah/ corrupt? Entah ada hubungannya atau tidak tapi teman2 kerja yang menggunakan database yang sama (data tersebut disimpan di LAN) jadi tidak bisa buka, bahkan Excel mereka menjadi restart
2. Bagaimana solusinya / save yang benar?
Terimakasih banyak sebelumnya
[cid:image002.jpg@
BR//billy
Thu Aug 30, 2012 12:50 am (PDT) . Posted by:
"dwint ruswanto"
assalamu'alaikum,
para master yang saya hormati,
saya membuat event change terhadap suatu cell, pada saat *cell taget hanya 1
* tidak timbul masalah, tetapi saat saya menambah 1 cell target lagi maka
timbul Error,
berikut codingnya
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 Then
If Target.Row = 19 And Target.Column = 2 Then
If Target.Value = "Hard Cover" Then
Range("B22:B23").Value = "Ya"
Else
Range("B22:B23").Value = "Tidak"
End If
End If
End If
If Target.Cells.Count = 1 Then
If Target.Row = 20 And Target.Column = 2 Then
If Target.Value = "Ya" Then
Range("B24").Value = "Ya"
Else
Range("B24").Value = "Tidak"
End If
End If
End If
End Sub
di mana letak kesalahan yang harus saya perbaiki?
wassalam,
-dwint-
para master yang saya hormati,
saya membuat event change terhadap suatu cell, pada saat *cell taget hanya 1
* tidak timbul masalah, tetapi saat saya menambah 1 cell target lagi maka
timbul Error,
berikut codingnya
Private Sub Worksheet_Change(
If Target.Cells.
If Target.Row = 19 And Target.Column = 2 Then
If Target.Value = "Hard Cover" Then
Range("B22:B23"
Else
Range("B22:B23"
End If
End If
End If
If Target.Cells.
If Target.Row = 20 And Target.Column = 2 Then
If Target.Value = "Ya" Then
Range("B24")
Else
Range("B24")
End If
End If
End If
End Sub
di mana letak kesalahan yang harus saya perbaiki?
wassalam,
-dwint-
Thu Aug 30, 2012 1:14 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Pak Dwint,
Di komputer saya koq Ok2 saja Pak ?
File terlampir.
Salam,
Hendrk Karnadi
________________________________
From: dwint ruswanto <dwint.ruswanto@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Thursday, 30 August 2012, 14:49
Subject: [belajar-excel] Over Flow - Run time Error -6-
assalamu'alaikum,
para master yang saya hormati,
saya membuat event change terhadap suatu cell, pada saat cell taget hanya 1 tidak timbul masalah, tetapi saat saya menambah 1 cell target lagi maka timbul Error,
berikut codingnya
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 Then
If Target.Row = 19 And Target.Column = 2 Then
If Target.Value = "Hard Cover" Then
Range("B22:B23").Value = "Ya"
Else
Range("B22:B23").Value = "Tidak"
End If
End If
End If
If Target.Cells.Count = 1 Then
If Target.Row = 20 And Target.Column = 2 Then
If Target.Value = "Ya" Then
Range("B24").Value = "Ya"
Else
Range("B24").Value = "Tidak"
End If
End If
End If
End Sub
di mana letak kesalahan yang harus saya perbaiki?
wassalam,
-dwint-
Di komputer saya koq Ok2 saja Pak ?
File terlampir.
Salam,
Hendrk Karnadi
____________
From: dwint ruswanto <dwint.ruswanto@
To: belajar-excel@
Sent: Thursday, 30 August 2012, 14:49
Subject: [belajar-excel] Over Flow - Run time Error -6-
assalamu'alaikum,
para master yang saya hormati,
saya membuat event change terhadap suatu cell, pada saat cell taget hanya 1 tidak timbul masalah, tetapi saat saya menambah 1 cell target lagi maka timbul Error,
berikut codingnya
Private Sub Worksheet_Change(
If Target.Cells.
If Target.Row = 19 And Target.Column = 2 Then
If Target.Value = "Hard Cover" Then
Range("B22:B23"
Else
Range("B22:B23"
End If
End If
End If
If Target.Cells.
If Target.Row = 20 And Target.Column = 2 Then
If Target.Value = "Ya" Then
Range("B24")
Else
Range("B24")
End If
End If
End If
End Sub
di mana letak kesalahan yang harus saya perbaiki?
wassalam,
-dwint-
Thu Aug 30, 2012 1:33 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Jika errornya adalah overflow, berarti ada sesuatu yang melebihi batasnya.
Nah apa yang melebihi batas tersebut tidak tampak secara langsung dari
script mas Dwint.
1. Kalau script tersebut di salin ke sebuah workbook baru dan cell B19
diisi Hard Cover atau cell B20 diisi YA kira-kira muncul error gak ya ?
2. Coba juga jika sebelum baris IF pertama disisipi :
application.enableevents=false
kemudian setelah endif terakhir disisipi :
application.enableevents=true
properti enableevents akan meng-turn on/off-kan ijin terpicunya dan
dijalankannya prosedur-prosedur event.
Coba perhatikan di script mas Dwint. Setelah proses cek, maka ada baris
perintah untuk mengubah nilai sebuah cell.
Hal ini akan memicu dijalankannya prosedur event worksheet change akibat
cell yang berubah nilainya. Padahal yang mengubah adalah prosedur event
juga.
Jadi, ketika cell B20 diubah user isinya dari kata Tidak menjadi Ya, maka
prosedur event change dijalankan dengan target berisi cell B20.
Ketika event ini diproses, ada sebuah perintah mengubah nilai cell B24.
Maka dengan berubahnya nilai di B24, event change jalan lagi tapi dengan
target berisi cell B24. Padahal event change yang tadi belum selesai
dikerjakan.
Tentang prosedur event worksheet change milik mas Dwint.
Tampaknya mas Dwint ingin melakukan pengecekan terhadap 2 cells, yaitu
terhadap isi cell B19 atau cell B20.
Perlakuan atas berubahnya nilai di B19 berbeda dengan berubahnya nilai B20.
Coba susun antara lain sebagai berikut :
Private Sub Worksheet_Change(ByVal Target As Range)
application.enableevents=false
If Target.Cells.Count = 1 Then
If Target.Column = 2 Then
if Target.Row = 19 then
If Target.Value = "Hard Cover" Then
Range("B22:B23").Value = "Ya"
Else
Range("B22:B23").Value = "Tidak"
End If
elseif Target.Row = 20 then
If Target.Value = "Ya" Then
Range("B24").Value = "Ya"
Else
Range("B24").Value = "Tidak"
End If
End If
End If
End If
application.enableevents=true
End Sub
Karena object range bernama target digunakan berulang kali, maka bisa
memanfaatkan klausa With, dan seluruh kata target bisa dihapus
(langsung pakai titik saja -- contoh untuk baris pertama -- terapkan untuk
kata target lainnya di baris lainnya)
with target
If .Cells.Count = 1 Then
'baris lainnya
end with
Bisa juga menggunakan blok kondisi Select Case .... End Select
Private Sub Worksheet_Change(ByVal Target As Range)
application.enableevents=false
with target
If .Cells.Count = 1 Then
If .Column = 2 Then
select case .Row
case 19
If .Value = "Hard Cover" Then
Range("B22:B23").Value = "Ya"
Else
Range("B22:B23").Value = "Tidak"
End If
case 20
If .Value = "Ya" Then
Range("B24").Value = "Ya"
Else
Range("B24").Value = "Tidak"
End If
End select
End If
End If
end with
application.enableevents=true
End Sub
Proses perbandingan seperti : (yang merah)
If Target.Value = "Ya" Then
bisa jadi memicu error runtime karena type mismatch (kalau gak salah error
runtime 13) ketika nilai dalam object range bernama target berupa errorvalue
Tapi untungnya jarang user input berupa nilai error value kan... (kasus ini
memang yang dibandingkan adalah hasil input user di target)
Ketika perbandingan dilakukan terhadap sebuah hasil formula di cell lain,
maka error tersebut bisa mungkin muncul.
Salah satu solusinya adalah dengan menyusun formula dalam worksheet yang
tidak menghasilkan error value.
Wassalam,
Kid.
2012/8/30 dwint ruswanto <dwint.ruswanto@gmail.com >
> **
>
>
> assalamu'alaikum,
>
> para master yang saya hormati,
>
> saya membuat event change terhadap suatu cell, pada saat *cell taget
> hanya 1* tidak timbul masalah, tetapi saat saya menambah 1 cell target
> lagi maka timbul Error,
>
> berikut codingnya
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Cells.Count = 1 Then
> If Target.Row = 19 And Target.Column = 2 Then
> If Target.Value = "Hard Cover" Then
> Range("B22:B23").Value = "Ya"
> Else
> Range("B22:B23").Value = "Tidak"
> End If
> End If
> End If
>
> If Target.Cells.Count = 1 Then
> If Target.Row = 20 And Target.Column = 2 Then
> If Target.Value = "Ya" Then
> Range("B24").Value = "Ya"
> Else
> Range("B24").Value = "Tidak"
> End If
> End If
> End If
> End Sub
>
> di mana letak kesalahan yang harus saya perbaiki?
>
> wassalam,
>
> -dwint-
>
>
>
Nah apa yang melebihi batas tersebut tidak tampak secara langsung dari
script mas Dwint.
1. Kalau script tersebut di salin ke sebuah workbook baru dan cell B19
diisi Hard Cover atau cell B20 diisi YA kira-kira muncul error gak ya ?
2. Coba juga jika sebelum baris IF pertama disisipi :
application.
kemudian setelah endif terakhir disisipi :
application.
properti enableevents akan meng-turn on/off-kan ijin terpicunya dan
dijalankannya prosedur-prosedur event.
Coba perhatikan di script mas Dwint. Setelah proses cek, maka ada baris
perintah untuk mengubah nilai sebuah cell.
Hal ini akan memicu dijalankannya prosedur event worksheet change akibat
cell yang berubah nilainya. Padahal yang mengubah adalah prosedur event
juga.
Jadi, ketika cell B20 diubah user isinya dari kata Tidak menjadi Ya, maka
prosedur event change dijalankan dengan target berisi cell B20.
Ketika event ini diproses, ada sebuah perintah mengubah nilai cell B24.
Maka dengan berubahnya nilai di B24, event change jalan lagi tapi dengan
target berisi cell B24. Padahal event change yang tadi belum selesai
dikerjakan.
Tentang prosedur event worksheet change milik mas Dwint.
Tampaknya mas Dwint ingin melakukan pengecekan terhadap 2 cells, yaitu
terhadap isi cell B19 atau cell B20.
Perlakuan atas berubahnya nilai di B19 berbeda dengan berubahnya nilai B20.
Coba susun antara lain sebagai berikut :
Private Sub Worksheet_Change(
application.
If Target.Cells.
If Target.Column = 2 Then
if Target.Row = 19 then
If Target.Value = "Hard Cover" Then
Range("B22:B23"
Else
Range("B22:B23"
End If
elseif Target.Row = 20 then
If Target.Value = "Ya" Then
Range("B24")
Else
Range("B24")
End If
End If
End If
End If
application.
End Sub
Karena object range bernama target digunakan berulang kali, maka bisa
memanfaatkan klausa With, dan seluruh kata target bisa dihapus
(langsung pakai titik saja -- contoh untuk baris pertama -- terapkan untuk
kata target lainnya di baris lainnya)
with target
If .Cells.Count = 1 Then
'baris lainnya
end with
Bisa juga menggunakan blok kondisi Select Case .... End Select
Private Sub Worksheet_Change(
application.
with target
If .Cells.Count = 1 Then
If .Column = 2 Then
select case .Row
case 19
If .Value = "Hard Cover" Then
Range("B22:B23"
Else
Range("B22:B23"
End If
case 20
If .Value = "Ya" Then
Range("B24")
Else
Range("B24")
End If
End select
End If
End If
end with
application.
End Sub
Proses perbandingan seperti : (yang merah)
If Target.Value = "Ya" Then
bisa jadi memicu error runtime karena type mismatch (kalau gak salah error
runtime 13) ketika nilai dalam object range bernama target berupa errorvalue
Tapi untungnya jarang user input berupa nilai error value kan... (kasus ini
memang yang dibandingkan adalah hasil input user di target)
Ketika perbandingan dilakukan terhadap sebuah hasil formula di cell lain,
maka error tersebut bisa mungkin muncul.
Salah satu solusinya adalah dengan menyusun formula dalam worksheet yang
tidak menghasilkan error value.
Wassalam,
Kid.
2012/8/30 dwint ruswanto <dwint.ruswanto@
> **
>
>
> assalamu'alaikum,
>
> para master yang saya hormati,
>
> saya membuat event change terhadap suatu cell, pada saat *cell taget
> hanya 1* tidak timbul masalah, tetapi saat saya menambah 1 cell target
> lagi maka timbul Error,
>
> berikut codingnya
>
> Private Sub Worksheet_Change(
> If Target.Cells.
> If Target.Row = 19 And Target.Column = 2 Then
> If Target.Value = "Hard Cover" Then
> Range("B22:B23"
> Else
> Range("B22:B23"
> End If
> End If
> End If
>
> If Target.Cells.
> If Target.Row = 20 And Target.Column = 2 Then
> If Target.Value = "Ya" Then
> Range("B24")
> Else
> Range("B24")
> End If
> End If
> End If
> End Sub
>
> di mana letak kesalahan yang harus saya perbaiki?
>
> wassalam,
>
> -dwint-
>
>
>
Thu Aug 30, 2012 2:13 am (PDT) . Posted by:
"dwint ruswanto"
mantap.. penjelasan Mr. Kid membuka wawasan baru bagi saya, ternyata betul
ada perubahan pada cell akibat event lain yang berakibat over flow..
semoga ilmunya semakin berkah.
untuk Pak Hendrik, terima kasih juga atas atensinya.
wassalam,
-dwint-
Pada 30 Agustus 2012 15:32, Kid Mr. <mr.nmkid@gmail.com > menulis:
> **
>
>
> Jika errornya adalah overflow, berarti ada sesuatu yang melebihi batasnya.
> Nah apa yang melebihi batas tersebut tidak tampak secara langsung dari
> script mas Dwint.
>
> 1. Kalau script tersebut di salin ke sebuah workbook baru dan cell B19
> diisi Hard Cover atau cell B20 diisi YA kira-kira muncul error gak ya ?
> 2. Coba juga jika sebelum baris IF pertama disisipi :
> application.enableevents=false
> kemudian setelah endif terakhir disisipi :
> application.enableevents=true
>
> properti enableevents akan meng-turn on/off-kan ijin terpicunya dan
> dijalankannya prosedur-prosedur event.
> Coba perhatikan di script mas Dwint. Setelah proses cek, maka ada baris
> perintah untuk mengubah nilai sebuah cell.
> Hal ini akan memicu dijalankannya prosedur event worksheet change akibat
> cell yang berubah nilainya. Padahal yang mengubah adalah prosedur event
> juga.
> Jadi, ketika cell B20 diubah user isinya dari kata Tidak menjadi Ya, maka
> prosedur event change dijalankan dengan target berisi cell B20.
> Ketika event ini diproses, ada sebuah perintah mengubah nilai cell B24.
> Maka dengan berubahnya nilai di B24, event change jalan lagi tapi dengan
> target berisi cell B24. Padahal event change yang tadi belum selesai
> dikerjakan.
>
>
> Tentang prosedur event worksheet change milik mas Dwint.
> Tampaknya mas Dwint ingin melakukan pengecekan terhadap 2 cells, yaitu
> terhadap isi cell B19 atau cell B20.
> Perlakuan atas berubahnya nilai di B19 berbeda dengan berubahnya nilai B20.
>
> Coba susun antara lain sebagai berikut :
> Private Sub Worksheet_Change(ByVal Target As Range)
> application.enableevents=false
>
> If Target.Cells.Count = 1 Then
> If Target.Column = 2 Then
> if Target.Row = 19 then
>
> If Target.Value = "Hard Cover" Then
> Range("B22:B23").Value = "Ya"
> Else
> Range("B22:B23").Value = "Tidak"
> End If
> elseif Target.Row = 20 then
>
> If Target.Value = "Ya" Then
> Range("B24").Value = "Ya"
> Else
> Range("B24").Value = "Tidak"
> End If
> End If
> End If
> End If
> application.enableevents=true
> End Sub
>
> Karena object range bernama target digunakan berulang kali, maka bisa
> memanfaatkan klausa With, dan seluruh kata target bisa dihapus
> (langsung pakai titik saja -- contoh untuk baris pertama -- terapkan untuk
> kata target lainnya di baris lainnya)
> with target
> If .Cells.Count = 1 Then
> 'baris lainnya
>
> end with
>
> Bisa juga menggunakan blok kondisi Select Case .... End Select
> Private Sub Worksheet_Change(ByVal Target As Range)
> application.enableevents=false
>
> with target
> If .Cells.Count = 1 Then
> If .Column = 2 Then
> select case .Row
> case 19
> If .Value = "Hard Cover" Then
> Range("B22:B23").Value = "Ya"
> Else
> Range("B22:B23").Value = "Tidak"
> End If
> case 20
> If .Value = "Ya" Then
> Range("B24").Value = "Ya"
> Else
> Range("B24").Value = "Tidak"
> End If
> End select
> End If
> End If
> end with
>
> application.enableevents=true
> End Sub
>
> Proses perbandingan seperti : (yang merah)
>
> If Target.Value = "Ya" Then
> bisa jadi memicu error runtime karena type mismatch (kalau gak salah error
> runtime 13) ketika nilai dalam object range bernama target berupa errorvalue
> Tapi untungnya jarang user input berupa nilai error value kan... (kasus
> ini memang yang dibandingkan adalah hasil input user di target)
> Ketika perbandingan dilakukan terhadap sebuah hasil formula di cell lain,
> maka error tersebut bisa mungkin muncul.
> Salah satu solusinya adalah dengan menyusun formula dalam worksheet yang
> tidak menghasilkan error value.
>
> Wassalam,
> Kid.
>
>
> 2012/8/30 dwint ruswanto <dwint.ruswanto@gmail.com >
>
>> **
>>
>>
>> assalamu'alaikum,
>>
>> para master yang saya hormati,
>>
>> saya membuat event change terhadap suatu cell, pada saat *cell taget
>> hanya 1* tidak timbul masalah, tetapi saat saya menambah 1 cell target
>> lagi maka timbul Error,
>>
>> berikut codingnya
>>
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> If Target.Cells.Count = 1 Then
>> If Target.Row = 19 And Target.Column = 2 Then
>> If Target.Value = "Hard Cover" Then
>> Range("B22:B23").Value = "Ya"
>> Else
>> Range("B22:B23").Value = "Tidak"
>> End If
>> End If
>> End If
>>
>> If Target.Cells.Count = 1 Then
>> If Target.Row = 20 And Target.Column = 2 Then
>> If Target.Value = "Ya" Then
>> Range("B24").Value = "Ya"
>> Else
>> Range("B24").Value = "Tidak"
>> End If
>> End If
>> End If
>> End Sub
>>
>> di mana letak kesalahan yang harus saya perbaiki?
>>
>> wassalam,
>>
>> -dwint-
>>
>>
>
>
ada perubahan pada cell akibat event lain yang berakibat over flow..
semoga ilmunya semakin berkah.
untuk Pak Hendrik, terima kasih juga atas atensinya.
wassalam,
-dwint-
Pada 30 Agustus 2012 15:32, Kid Mr. <mr.nmkid@gmail.
> **
>
>
> Jika errornya adalah overflow, berarti ada sesuatu yang melebihi batasnya.
> Nah apa yang melebihi batas tersebut tidak tampak secara langsung dari
> script mas Dwint.
>
> 1. Kalau script tersebut di salin ke sebuah workbook baru dan cell B19
> diisi Hard Cover atau cell B20 diisi YA kira-kira muncul error gak ya ?
> 2. Coba juga jika sebelum baris IF pertama disisipi :
> application.
> kemudian setelah endif terakhir disisipi :
> application.
>
> properti enableevents akan meng-turn on/off-kan ijin terpicunya dan
> dijalankannya prosedur-prosedur event.
> Coba perhatikan di script mas Dwint. Setelah proses cek, maka ada baris
> perintah untuk mengubah nilai sebuah cell.
> Hal ini akan memicu dijalankannya prosedur event worksheet change akibat
> cell yang berubah nilainya. Padahal yang mengubah adalah prosedur event
> juga.
> Jadi, ketika cell B20 diubah user isinya dari kata Tidak menjadi Ya, maka
> prosedur event change dijalankan dengan target berisi cell B20.
> Ketika event ini diproses, ada sebuah perintah mengubah nilai cell B24.
> Maka dengan berubahnya nilai di B24, event change jalan lagi tapi dengan
> target berisi cell B24. Padahal event change yang tadi belum selesai
> dikerjakan.
>
>
> Tentang prosedur event worksheet change milik mas Dwint.
> Tampaknya mas Dwint ingin melakukan pengecekan terhadap 2 cells, yaitu
> terhadap isi cell B19 atau cell B20.
> Perlakuan atas berubahnya nilai di B19 berbeda dengan berubahnya nilai B20.
>
> Coba susun antara lain sebagai berikut :
> Private Sub Worksheet_Change(
> application.
>
> If Target.Cells.
> If Target.Column = 2 Then
> if Target.Row = 19 then
>
> If Target.Value = "Hard Cover" Then
> Range("B22:B23"
> Else
> Range("B22:B23"
> End If
> elseif Target.Row = 20 then
>
> If Target.Value = "Ya" Then
> Range("B24")
> Else
> Range("B24")
> End If
> End If
> End If
> End If
> application.
> End Sub
>
> Karena object range bernama target digunakan berulang kali, maka bisa
> memanfaatkan klausa With, dan seluruh kata target bisa dihapus
> (langsung pakai titik saja -- contoh untuk baris pertama -- terapkan untuk
> kata target lainnya di baris lainnya)
> with target
> If .Cells.Count = 1 Then
> 'baris lainnya
>
> end with
>
> Bisa juga menggunakan blok kondisi Select Case .... End Select
> Private Sub Worksheet_Change(
> application.
>
> with target
> If .Cells.Count = 1 Then
> If .Column = 2 Then
> select case .Row
> case 19
> If .Value = "Hard Cover" Then
> Range("B22:B23"
> Else
> Range("B22:B23"
> End If
> case 20
> If .Value = "Ya" Then
> Range("B24")
> Else
> Range("B24")
> End If
> End select
> End If
> End If
> end with
>
> application.
> End Sub
>
> Proses perbandingan seperti : (yang merah)
>
> If Target.Value = "Ya" Then
> bisa jadi memicu error runtime karena type mismatch (kalau gak salah error
> runtime 13) ketika nilai dalam object range bernama target berupa errorvalue
> Tapi untungnya jarang user input berupa nilai error value kan... (kasus
> ini memang yang dibandingkan adalah hasil input user di target)
> Ketika perbandingan dilakukan terhadap sebuah hasil formula di cell lain,
> maka error tersebut bisa mungkin muncul.
> Salah satu solusinya adalah dengan menyusun formula dalam worksheet yang
> tidak menghasilkan error value.
>
> Wassalam,
> Kid.
>
>
> 2012/8/30 dwint ruswanto <dwint.ruswanto@
>
>> **
>>
>>
>> assalamu'alaikum,
>>
>> para master yang saya hormati,
>>
>> saya membuat event change terhadap suatu cell, pada saat *cell taget
>> hanya 1* tidak timbul masalah, tetapi saat saya menambah 1 cell target
>> lagi maka timbul Error,
>>
>> berikut codingnya
>>
>> Private Sub Worksheet_Change(
>> If Target.Cells.
>> If Target.Row = 19 And Target.Column = 2 Then
>> If Target.Value = "Hard Cover" Then
>> Range("B22:B23"
>> Else
>> Range("B22:B23"
>> End If
>> End If
>> End If
>>
>> If Target.Cells.
>> If Target.Row = 20 And Target.Column = 2 Then
>> If Target.Value = "Ya" Then
>> Range("B24")
>> Else
>> Range("B24")
>> End If
>> End If
>> End If
>> End Sub
>>
>> di mana letak kesalahan yang harus saya perbaiki?
>>
>> wassalam,
>>
>> -dwint-
>>
>>
>
>
Thu Aug 30, 2012 1:57 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Mungkin (mungkin loh ya), file ocx nya belum teregister.
Coba file ocx nya di register lebih dulu.
1. dari desktop jalankan Run
2. ketik :
C:\Windows\System32\regsvr32.exe drive:\folder\nama file.ocx
-> ganti System32 dengan SysWow64 jika OS Windows 64bit tapi office 32bit
-> sesuaikan drive, folder, nama file yang akan diregister.
3. tekan OK
Wassalam,
Kid.
2012/8/27 Angeldies_758@yahoo.co.id <angeldies_758@yahoo.co.id >
> **
>
>
> Dear Master2 Excel
> Kenapa ya Pada user form VBA,.pada saat mau nambahin toolbox,.--> klik
> kanan pd toolbox-->klik additional controls,.tapi component2 yg mau
> ditambahin ke toolbox kok gak tampil ya...?kenapa ya..
>
> Thanks
>
> Sallam Exceller...
>
>
Coba file ocx nya di register lebih dulu.
1. dari desktop jalankan Run
2. ketik :
C:\Windows\System32
-> ganti System32 dengan SysWow64 jika OS Windows 64bit tapi office 32bit
-> sesuaikan drive, folder, nama file yang akan diregister.
3. tekan OK
Wassalam,
Kid.
2012/8/27 Angeldies_758@
> **
>
>
> Dear Master2 Excel
> Kenapa ya Pada user form VBA,.pada saat mau nambahin toolbox,.--> klik
> kanan pd toolbox-->klik additional controls,.tapi component2 yg mau
> ditambahin ke toolbox kok gak tampil ya...?kenapa ya..
>
> Thanks
>
> Sallam Exceller...
>
>
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
---------------------------------------------------------------------
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