15 New Messages
Digest #2223
Messages
Wed Apr 10, 2013 10:42 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Tony,
Dengan menyusun tabel klasifikasi berdasar batas bawah setiap interval,
maka penentuan bisa dilakukan dengan fungsi vLookUp.
File terlampir.
Wassalam,
Kid.
2013/4/10 Tony Bexcel <tonybexcel@yahoo.co.id >
> **
>
>
> Dear Pakar yang Budiman,
>
> Mohon bantuan rumusan nya untuk klasifikasi batasan Tahun sesuai Tahun
> yang berjalan.
> Berikut saya lampirkan contoh kasus tersebut.
> Atas waktu dan ilmunya saya haturkan banyak terimakasih temans..
>
>
> Salam,
> TonyB
>
>
>
Dengan menyusun tabel klasifikasi berdasar batas bawah setiap interval,
maka penentuan bisa dilakukan dengan fungsi vLookUp.
File terlampir.
Wassalam,
Kid.
2013/4/10 Tony Bexcel <tonybexcel@yahoo.
> **
>
>
> Dear Pakar yang Budiman,
>
> Mohon bantuan rumusan nya untuk klasifikasi batasan Tahun sesuai Tahun
> yang berjalan.
> Berikut saya lampirkan contoh kasus tersebut.
> Atas waktu dan ilmunya saya haturkan banyak terimakasih temans..
>
>
> Salam,
> TonyB
>
>
>
Wed Apr 10, 2013 7:09 pm (PDT) . Posted by:
"Tony Bexcel"
Dear Pakar yang Budiman,
Terimakasih Mr.Kid dan temans semua..ternyata se simple itu yah...hebaaaat euy...
Kamsia...kamsia...kamsia...
Salam,
Tony
--- Pada Kam, 11/4/13, Mr. Kid <mr.nmkid@gmail.com > menulis:
Dari: Mr. Kid <mr.nmkid@gmail.com >
Judul: Re: [belajar-excel] Klasifikasi berdasarkan Tahun
Kepada: "BeExcel" <belajar-excel@yahoogroups.com >
Tanggal: Kamis, 11 April, 2013, 12:41 AM
Hai Tony,
Dengan menyusun tabel klasifikasi berdasar batas bawah setiap interval, maka penentuan bisa dilakukan dengan fungsi vLookUp.
File terlampir.
Wassalam,
Kid.
2013/4/10 Tony Bexcel <tonybexcel@yahoo.co.id >
Dear Pakar yang Budiman,
Mohon bantuan rumusan nya untuk klasifikasi batasan Tahun sesuai Tahun yang berjalan.
Berikut saya lampirkan contoh kasus tersebut.
Atas waktu dan ilmunya saya haturkan banyak terimakasih temans..
Salam,
TonyB
Terimakasih Mr.Kid dan temans semua..ternyata se simple itu yah...hebaaaat euy...
Kamsia...kamsia.
Salam,
Tony
--- Pada Kam, 11/4/13, Mr. Kid <mr.nmkid@gmail.
Dari: Mr. Kid <mr.nmkid@gmail.
Judul: Re: [belajar-excel] Klasifikasi berdasarkan Tahun
Kepada: "BeExcel" <belajar-excel@
Tanggal: Kamis, 11 April, 2013, 12:41 AM
Hai Tony,
Dengan menyusun tabel klasifikasi berdasar batas bawah setiap interval, maka penentuan bisa dilakukan dengan fungsi vLookUp.
File terlampir.
Wassalam,
Kid.
2013/4/10 Tony Bexcel <tonybexcel@yahoo.
Dear Pakar yang Budiman,
Mohon bantuan rumusan nya untuk klasifikasi batasan Tahun sesuai Tahun yang berjalan.
Berikut saya lampirkan contoh kasus tersebut.
Atas waktu dan ilmunya saya haturkan banyak terimakasih temans..
Salam,
TonyB
Wed Apr 10, 2013 11:00 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Trimakasih Mas Kid,
Tapi kok file terlampirnya ga ada ya
Wassalam,
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: BeExcel <belajar-excel@yahoogroups.com >
Sent: Tuesday, April 9, 2013 10:35 PM
Subject: Re: [belajar-excel] Cek Nominal sama atau tidak
Hai Opik,
Semoga file terlampir bisa menjadi tambahan wacana.
Wassalam,
Kid.
2013/4/9 lapendosol opik <lapendosol@yahoo.com >
>
>Selamat siang para Master Excel,
>Saya punya data seperti ini:
>A4:A3806 adalah ID grup A
>D4:D3806 adalah Nominal grup A
>F4:F1048 adalah ID grup B
>G4:G1048 adalah Nominal grup B
>
>Tugas 1:
>Apakah ID grup B (F4) cocok/ada di data ID grup A ($A$4:$A$3806)
>Untuk tugas1 saya taruh di I4:I1048 dengan rumus di I4:
>=IF(COUNTIF($A$4:$A$3806,F4)>0,"ADA","Tidak Ada")
>Copy kebawah sampai I1048
>
>Tugas 2:
>Mencocokkan Nominal ID grup B dengan Nominal ID grup B
>Untuk tugas2 saya taruh di J4:J1048
>Logikanya: jika ID grup B cocok dengan ID grup A, maka periksa Nominalnya sama atau tidak
>jika Nominalnya SAMA, maka beri keterangan "SAMA"
>jika Nominalnya tidak sama, maka beri keterangan selisih angka dari Nominalnya (G4-Dsekian)
>Untuk tugas2 saya harus pakai formula apa?
>
>Tadinya saya mau
lampirkan contoh datanya, tapi paket internetnya tidak bisa buat upload data, selalu gagal
>Mohon pencerahannya
>Trimakasih sebelumnya
>
>Wassalam,
>
Tapi kok file terlampirnya ga ada ya
Wassalam,
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Tuesday, April 9, 2013 10:35 PM
Subject: Re: [belajar-excel] Cek Nominal sama atau tidak
Hai Opik,
Semoga file terlampir bisa menjadi tambahan wacana.
Wassalam,
Kid.
2013/4/9 lapendosol opik <lapendosol@yahoo.
>
>Selamat siang para Master Excel,
>Saya punya data seperti ini:
>A4:A3806 adalah ID grup A
>D4:D3806 adalah Nominal grup A
>F4:F1048 adalah ID grup B
>G4:G1048 adalah Nominal grup B
>
>Tugas 1:
>Apakah ID grup B (F4) cocok/ada di data ID grup A ($A$4:$A$3806)
>Untuk tugas1 saya taruh di I4:I1048 dengan rumus di I4:
>=IF(COUNTIF(
>Copy kebawah sampai I1048
>
>Tugas 2:
>Mencocokkan Nominal ID grup B dengan Nominal ID grup B
>Untuk tugas2 saya taruh di J4:J1048
>Logikanya: jika ID grup B cocok dengan ID grup A, maka periksa Nominalnya sama atau tidak
>jika Nominalnya SAMA, maka beri keterangan "SAMA"
>jika Nominalnya tidak sama, maka beri keterangan selisih angka dari Nominalnya (G4-Dsekian)
>Untuk tugas2 saya harus pakai formula apa?
>
>Tadinya saya mau
lampirkan contoh datanya, tapi paket internetnya tidak bisa buat upload data, selalu gagal
>Mohon pencerahannya
>Trimakasih sebelumnya
>
>Wassalam,
>
Wed Apr 10, 2013 11:02 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
wakakakaka...
sorry,
ketinggalan filenya.
Wassalam,
Kid.
2013/4/11 lapendosol opik <lapendosol@yahoo.com >
> **
>
>
> Trimakasih Mas Kid,
> Tapi kok file terlampirnya ga ada ya
>
> Wassalam,
>
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* BeExcel <belajar-excel@yahoogroups.com >
> *Sent:* Tuesday, April 9, 2013 10:35 PM
>
> *Subject:* Re: [belajar-excel] Cek Nominal sama atau tidak
>
>
> Hai Opik,
>
> Semoga file terlampir bisa menjadi tambahan wacana.
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/9 lapendosol opik <lapendosol@yahoo.com >
>
> **
>
> Selamat siang para Master Excel,
> Saya punya data seperti ini:
> A4:A3806 adalah ID grup A
> D4:D3806 adalah Nominal grup A
> F4:F1048 adalah ID grup B
> G4:G1048 adalah Nominal grup B
>
> Tugas 1:
> Apakah ID grup B (F4) cocok/ada di data ID grup A ($A$4:$A$3806)
> Untuk tugas1 saya taruh di I4:I1048 dengan rumus di I4:
> =IF(COUNTIF($A$4:$A$3806,F4)>0,"ADA","Tidak Ada")
> Copy kebawah sampai I1048
>
> Tugas 2:
> Mencocokkan Nominal ID grup B dengan Nominal ID grup B
> Untuk tugas2 saya taruh di J4:J1048
> Logikanya: jika ID grup B cocok dengan ID grup A, maka periksa Nominalnya
> sama atau tidak
> jika Nominalnya SAMA, maka beri keterangan "SAMA"
> jika Nominalnya tidak sama, maka beri keterangan selisih angka dari
> Nominalnya (G4-Dsekian)
> Untuk tugas2 saya harus pakai formula apa?
>
> Tadinya saya mau lampirkan contoh datanya, tapi paket internetnya tidak
> bisa buat upload data, selalu gagal
> Mohon pencerahannya
> Trimakasih sebelumnya
>
> Wassalam,
>
>
>
>
>
>
sorry,
ketinggalan filenya.
Wassalam,
Kid.
2013/4/11 lapendosol opik <lapendosol@yahoo.
> **
>
>
> Trimakasih Mas Kid,
> Tapi kok file terlampirnya ga ada ya
>
> Wassalam,
>
>
> ------------
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* BeExcel <belajar-excel@
> *Sent:* Tuesday, April 9, 2013 10:35 PM
>
> *Subject:* Re: [belajar-excel] Cek Nominal sama atau tidak
>
>
> Hai Opik,
>
> Semoga file terlampir bisa menjadi tambahan wacana.
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/9 lapendosol opik <lapendosol@yahoo.
>
> **
>
> Selamat siang para Master Excel,
> Saya punya data seperti ini:
> A4:A3806 adalah ID grup A
> D4:D3806 adalah Nominal grup A
> F4:F1048 adalah ID grup B
> G4:G1048 adalah Nominal grup B
>
> Tugas 1:
> Apakah ID grup B (F4) cocok/ada di data ID grup A ($A$4:$A$3806)
> Untuk tugas1 saya taruh di I4:I1048 dengan rumus di I4:
> =IF(COUNTIF(
> Copy kebawah sampai I1048
>
> Tugas 2:
> Mencocokkan Nominal ID grup B dengan Nominal ID grup B
> Untuk tugas2 saya taruh di J4:J1048
> Logikanya: jika ID grup B cocok dengan ID grup A, maka periksa Nominalnya
> sama atau tidak
> jika Nominalnya SAMA, maka beri keterangan "SAMA"
> jika Nominalnya tidak sama, maka beri keterangan selisih angka dari
> Nominalnya (G4-Dsekian)
> Untuk tugas2 saya harus pakai formula apa?
>
> Tadinya saya mau lampirkan contoh datanya, tapi paket internetnya tidak
> bisa buat upload data, selalu gagal
> Mohon pencerahannya
> Trimakasih sebelumnya
>
> Wassalam,
>
>
>
>
>
>
Wed Apr 10, 2013 6:55 pm (PDT) . Posted by:
"Mulki" mulki_akbar
Assalamu'alaikum,
Mr. Kid, bisa tolong dijelaskan penggunakan formula yg di depannya menggunakan ISERROR ?
Adakah tujuan khususnya jika tanpa menggunakan ISERROR ?
Terimakasih.
Wassalam,
mulki
----- Original Message -----
From: Mr. Kid
To: BeExcel
Sent: Thursday, April 11, 2013 1:02 AM
Subject: Re: [belajar-excel] Cek Nominal sama atau tidak
wakakakaka...
sorry,
ketinggalan filenya.
Wassalam,
Kid.
2013/4/11 lapendosol opik <lapendosol@yahoo.com >
Trimakasih Mas Kid,
Tapi kok file terlampirnya ga ada ya
Wassalam,
----------------------------------------------------------
From: Mr. Kid <mr.nmkid@gmail.com >
To: BeExcel <belajar-excel@yahoogroups.com >
Sent: Tuesday, April 9, 2013 10:35 PM
Subject: Re: [belajar-excel] Cek Nominal sama atau tidak
Hai Opik,
Semoga file terlampir bisa menjadi tambahan wacana.
Wassalam,
Kid.
2013/4/9 lapendosol opik <lapendosol@yahoo.com >
Selamat siang para Master Excel,
Saya punya data seperti ini:
A4:A3806 adalah ID grup A
D4:D3806 adalah Nominal grup A
F4:F1048 adalah ID grup B
G4:G1048 adalah Nominal grup B
Tugas 1:
Apakah ID grup B (F4) cocok/ada di data ID grup A ($A$4:$A$3806)
Untuk tugas1 saya taruh di I4:I1048 dengan rumus di I4:
=IF(COUNTIF($A$4:$A$3806,F4)>0,"ADA","Tidak Ada")
Copy kebawah sampai I1048
Tugas 2:
Mencocokkan Nominal ID grup B dengan Nominal ID grup B
Untuk tugas2 saya taruh di J4:J1048
Logikanya: jika ID grup B cocok dengan ID grup A, maka periksa Nominalnya sama atau tidak
jika Nominalnya SAMA, maka beri keterangan "SAMA"
jika Nominalnya tidak sama, maka beri keterangan selisih angka dari Nominalnya (G4-Dsekian)
Untuk tugas2 saya harus pakai formula apa?
Tadinya saya mau lampirkan contoh datanya, tapi paket internetnya tidak bisa buat upload data, selalu gagal
Mohon pencerahannya
Trimakasih sebelumnya
Wassalam,
Mr. Kid, bisa tolong dijelaskan penggunakan formula yg di depannya menggunakan ISERROR ?
Adakah tujuan khususnya jika tanpa menggunakan ISERROR ?
Terimakasih.
Wassalam,
mulki
----- Original Message -----
From: Mr. Kid
To: BeExcel
Sent: Thursday, April 11, 2013 1:02 AM
Subject: Re: [belajar-excel] Cek Nominal sama atau tidak
wakakakaka..
sorry,
ketinggalan filenya.
Wassalam,
Kid.
2013/4/11 lapendosol opik <lapendosol@yahoo.
Trimakasih Mas Kid,
Tapi kok file terlampirnya ga ada ya
Wassalam,
------------
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Tuesday, April 9, 2013 10:35 PM
Subject: Re: [belajar-excel] Cek Nominal sama atau tidak
Hai Opik,
Semoga file terlampir bisa menjadi tambahan wacana.
Wassalam,
Kid.
2013/4/9 lapendosol opik <lapendosol@yahoo.
Selamat siang para Master Excel,
Saya punya data seperti ini:
A4:A3806 adalah ID grup A
D4:D3806 adalah Nominal grup A
F4:F1048 adalah ID grup B
G4:G1048 adalah Nominal grup B
Tugas 1:
Apakah ID grup B (F4) cocok/ada di data ID grup A ($A$4:$A$3806)
Untuk tugas1 saya taruh di I4:I1048 dengan rumus di I4:
=IF(COUNTIF(
Copy kebawah sampai I1048
Tugas 2:
Mencocokkan Nominal ID grup B dengan Nominal ID grup B
Untuk tugas2 saya taruh di J4:J1048
Logikanya: jika ID grup B cocok dengan ID grup A, maka periksa Nominalnya sama atau tidak
jika Nominalnya SAMA, maka beri keterangan "SAMA"
jika Nominalnya tidak sama, maka beri keterangan selisih angka dari Nominalnya (G4-Dsekian)
Untuk tugas2 saya harus pakai formula apa?
Tadinya saya mau lampirkan contoh datanya, tapi paket internetnya tidak bisa buat upload data, selalu gagal
Mohon pencerahannya
Trimakasih sebelumnya
Wassalam,
Wed Apr 10, 2013 7:08 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Dalam membandingkan 2 set data (B terhadap A), kemungkinan yang terjadi :
1. si B ada di A -> Fungsi Match akan menghasilkan suatu angka mewakili
index nomor record
2. si B tidak ada di A -> Fungsi Match akan menghasilkan error value #N/A
Keterangan berbunyi ADA atau TIDAK ADA memiliki persamaan kata ADA
Jadi, jika kondisi yang tercapai adalah nomor 1 (diatas), maka kata TIDAK
harus diganti dengan nullstring ("")
Jika kondisi yang tercapai adalah nomor 2 (diatas), maka perlu kata TIDAK.
Karena kondisi nomor 2 muncul ketika fungsi Match menghasilkan error value
#N/A, maka kondisinya bisa berbunyi :
"Jika fungsi Match menghasilkan nilai error, maka tulis kata TIDAK. Jika
fungsi Match menghasilkan suatu angka, maka tidak boleh menulis kata TIDAK
alias tulis saja nullstring ("")"
Hasil pengkondisian di atas nantinya akan disambung dengan kata ADA dalam
susunan [hasil kondisi] & "ADA"
[hasil kondisi] bisa bernilai "TIDAK " atau ""
IsError bisa diganti dengan IsNA. Jika menggunakan IsNumber maka susunan
["TIDAK ",""] dalam formula harus dibalik menjadi ["","TIDAK "]
Opsi lain adalah tidak menggunakan Match, tetapi menggunakan CountIF.
Kondisinya akan menjadi :
1. si B ada di A -> CountIF menghasilkan nilai > 0
2. si B tidak ada di A -> CountIF menghasilkan nilai 0
Pada data dengan jumlah record yang banyak sekali, fungsi Match akan terasa
lebih cepat dibanding menggunakan CountIF (dugaannya begitu)
karena faktor IF dalam CountIF akan menganalisa setiap cell dalam range
rujukan. Sedangkan menggunakan Match akan segera berhenti jika sudah
bertemu yang sesuai.
Kira-kira demikian.
Wassalamu'alaikum Wr. Wb.
Kid.
2013/4/11 Mulki <mulki@aop.component.astra.co.id >
> **
>
>
> **
> Assalamu'alaikum,
>
> Mr. Kid, bisa tolong dijelaskan penggunakan formula yg di depannya
> menggunakan ISERROR ?
> Adakah tujuan khususnya jika tanpa menggunakan ISERROR ?
>
> Terimakasih.
>
>
> Wassalam,
> mulki
>
>
> ----- Original Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* BeExcel <belajar-excel@yahoogroups.com >
> *Sent:* Thursday, April 11, 2013 1:02 AM
> *Subject:* Re: [belajar-excel] Cek Nominal sama atau tidak
>
>
>
> wakakakaka...
> sorry,
> ketinggalan filenya.
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/11 lapendosol opik <lapendosol@yahoo.com >
>
>> **
>>
>>
>> Trimakasih Mas Kid,
>> Tapi kok file terlampirnya ga ada ya
>>
>> Wassalam,
>>
>>
>> ------------------------------
>> *From:* Mr. Kid <mr.nmkid@gmail.com >
>> *To:* BeExcel <belajar-excel@yahoogroups.com >
>> *Sent:* Tuesday, April 9, 2013 10:35 PM
>>
>> *Subject:* Re: [belajar-excel] Cek Nominal sama atau tidak
>>
>>
>> Hai Opik,
>>
>> Semoga file terlampir bisa menjadi tambahan wacana.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> 2013/4/9 lapendosol opik <lapendosol@yahoo.com >
>>
>> **
>>
>> Selamat siang para Master Excel,
>> Saya punya data seperti ini:
>> A4:A3806 adalah ID grup A
>> D4:D3806 adalah Nominal grup A
>> F4:F1048 adalah ID grup B
>> G4:G1048 adalah Nominal grup B
>>
>> Tugas 1:
>> Apakah ID grup B (F4) cocok/ada di data ID grup A ($A$4:$A$3806)
>> Untuk tugas1 saya taruh di I4:I1048 dengan rumus di I4:
>> =IF(COUNTIF($A$4:$A$3806,F4)>0,"ADA","Tidak Ada")
>> Copy kebawah sampai I1048
>>
>> Tugas 2:
>> Mencocokkan Nominal ID grup B dengan Nominal ID grup B
>> Untuk tugas2 saya taruh di J4:J1048
>> Logikanya: jika ID grup B cocok dengan ID grup A, maka periksa Nominalnya
>> sama atau tidak
>> jika Nominalnya SAMA, maka beri keterangan "SAMA"
>> jika Nominalnya tidak sama, maka beri keterangan selisih angka dari
>> Nominalnya (G4-Dsekian)
>> Untuk tugas2 saya harus pakai formula apa?
>>
>> Tadinya saya mau lampirkan contoh datanya, tapi paket internetnya tidak
>> bisa buat upload data, selalu gagal
>> Mohon pencerahannya
>> Trimakasih sebelumnya
>>
>> Wassalam,
>>
>>
>>
>>
>>
>
>
Dalam membandingkan 2 set data (B terhadap A), kemungkinan yang terjadi :
1. si B ada di A -> Fungsi Match akan menghasilkan suatu angka mewakili
index nomor record
2. si B tidak ada di A -> Fungsi Match akan menghasilkan error value #N/A
Keterangan berbunyi ADA atau TIDAK ADA memiliki persamaan kata ADA
Jadi, jika kondisi yang tercapai adalah nomor 1 (diatas), maka kata TIDAK
harus diganti dengan nullstring (""
Jika kondisi yang tercapai adalah nomor 2 (diatas), maka perlu kata TIDAK.
Karena kondisi nomor 2 muncul ketika fungsi Match menghasilkan error value
#N/A, maka kondisinya bisa berbunyi :
"Jika fungsi Match menghasilkan nilai error, maka tulis kata TIDAK. Jika
fungsi Match menghasilkan suatu angka, maka tidak boleh menulis kata TIDAK
alias tulis saja nullstring (""
Hasil pengkondisian di atas nantinya akan disambung dengan kata ADA dalam
susunan [hasil kondisi] & "ADA"
[hasil kondisi] bisa bernilai "TIDAK " atau ""
IsError bisa diganti dengan IsNA. Jika menggunakan IsNumber maka susunan
["TIDAK ","
Opsi lain adalah tidak menggunakan Match, tetapi menggunakan CountIF.
Kondisinya akan menjadi :
1. si B ada di A -> CountIF menghasilkan nilai > 0
2. si B tidak ada di A -> CountIF menghasilkan nilai 0
Pada data dengan jumlah record yang banyak sekali, fungsi Match akan terasa
lebih cepat dibanding menggunakan CountIF (dugaannya begitu)
karena faktor IF dalam CountIF akan menganalisa setiap cell dalam range
rujukan. Sedangkan menggunakan Match akan segera berhenti jika sudah
bertemu yang sesuai.
Kira-kira demikian.
Wassalamu'
Kid.
2013/4/11 Mulki <mulki@aop.component
> **
>
>
> **
> Assalamu'
>
> Mr. Kid, bisa tolong dijelaskan penggunakan formula yg di depannya
> menggunakan ISERROR ?
> Adakah tujuan khususnya jika tanpa menggunakan ISERROR ?
>
> Terimakasih.
>
>
> Wassalam,
> mulki
>
>
> ----- Original Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* BeExcel <belajar-excel@
> *Sent:* Thursday, April 11, 2013 1:02 AM
> *Subject:* Re: [belajar-excel] Cek Nominal sama atau tidak
>
>
>
> wakakakaka..
> sorry,
> ketinggalan filenya.
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/11 lapendosol opik <lapendosol@yahoo.
>
>> **
>>
>>
>> Trimakasih Mas Kid,
>> Tapi kok file terlampirnya ga ada ya
>>
>> Wassalam,
>>
>>
>> ------------
>> *From:* Mr. Kid <mr.nmkid@gmail.
>> *To:* BeExcel <belajar-excel@
>> *Sent:* Tuesday, April 9, 2013 10:35 PM
>>
>> *Subject:* Re: [belajar-excel] Cek Nominal sama atau tidak
>>
>>
>> Hai Opik,
>>
>> Semoga file terlampir bisa menjadi tambahan wacana.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> 2013/4/9 lapendosol opik <lapendosol@yahoo.
>>
>> **
>>
>> Selamat siang para Master Excel,
>> Saya punya data seperti ini:
>> A4:A3806 adalah ID grup A
>> D4:D3806 adalah Nominal grup A
>> F4:F1048 adalah ID grup B
>> G4:G1048 adalah Nominal grup B
>>
>> Tugas 1:
>> Apakah ID grup B (F4) cocok/ada di data ID grup A ($A$4:$A$3806)
>> Untuk tugas1 saya taruh di I4:I1048 dengan rumus di I4:
>> =IF(COUNTIF(
>> Copy kebawah sampai I1048
>>
>> Tugas 2:
>> Mencocokkan Nominal ID grup B dengan Nominal ID grup B
>> Untuk tugas2 saya taruh di J4:J1048
>> Logikanya: jika ID grup B cocok dengan ID grup A, maka periksa Nominalnya
>> sama atau tidak
>> jika Nominalnya SAMA, maka beri keterangan "SAMA"
>> jika Nominalnya tidak sama, maka beri keterangan selisih angka dari
>> Nominalnya (G4-Dsekian)
>> Untuk tugas2 saya harus pakai formula apa?
>>
>> Tadinya saya mau lampirkan contoh datanya, tapi paket internetnya tidak
>> bisa buat upload data, selalu gagal
>> Mohon pencerahannya
>> Trimakasih sebelumnya
>>
>> Wassalam,
>>
>>
>>
>>
>>
>
>
Wed Apr 10, 2013 7:14 pm (PDT) . Posted by:
"Mulki" mulki_akbar
Mantabs pencerahannya Mr.Kid ... sangat lengkap dan SUPER :)
Terimakasih ya Mr.Kid, akan saya pelajari dan cerna terlebih dulu ...
Wassalam,
Mulki
----- Original Message -----
From: Mr. Kid
To: BeExcel
Sent: Thursday, April 11, 2013 9:08 AM
Subject: Re: [belajar-excel] Cek Nominal sama atau tidak
Wa'alaikumussalam Wr. Wb.
Dalam membandingkan 2 set data (B terhadap A), kemungkinan yang terjadi :
1. si B ada di A -> Fungsi Match akan menghasilkan suatu angka mewakili index nomor record
2. si B tidak ada di A -> Fungsi Match akan menghasilkan error value #N/A
Keterangan berbunyi ADA atau TIDAK ADA memiliki persamaan kata ADA
Jadi, jika kondisi yang tercapai adalah nomor 1 (diatas), maka kata TIDAK harus diganti dengan nullstring ("")
Jika kondisi yang tercapai adalah nomor 2 (diatas), maka perlu kata TIDAK.
Karena kondisi nomor 2 muncul ketika fungsi Match menghasilkan error value #N/A, maka kondisinya bisa berbunyi :
"Jika fungsi Match menghasilkan nilai error, maka tulis kata TIDAK. Jika fungsi Match menghasilkan suatu angka, maka tidak boleh menulis kata TIDAK alias tulis saja nullstring ("")"
Hasil pengkondisian di atas nantinya akan disambung dengan kata ADA dalam susunan [hasil kondisi] & "ADA"
[hasil kondisi] bisa bernilai "TIDAK " atau ""
IsError bisa diganti dengan IsNA. Jika menggunakan IsNumber maka susunan ["TIDAK ",""] dalam formula harus dibalik menjadi ["","TIDAK "]
Opsi lain adalah tidak menggunakan Match, tetapi menggunakan CountIF. Kondisinya akan menjadi :
1. si B ada di A -> CountIF menghasilkan nilai > 0
2. si B tidak ada di A -> CountIF menghasilkan nilai 0
Pada data dengan jumlah record yang banyak sekali, fungsi Match akan terasa lebih cepat dibanding menggunakan CountIF (dugaannya begitu)
karena faktor IF dalam CountIF akan menganalisa setiap cell dalam range rujukan. Sedangkan menggunakan Match akan segera berhenti jika sudah bertemu yang sesuai.
Kira-kira demikian.
Wassalamu'alaikum Wr. Wb.
Kid.
2013/4/11 Mulki <mulki@aop.component.astra.co.id >
Assalamu'alaikum,
Mr. Kid, bisa tolong dijelaskan penggunakan formula yg di depannya menggunakan ISERROR ?
Adakah tujuan khususnya jika tanpa menggunakan ISERROR ?
Terimakasih.
Wassalam,
mulki
----- Original Message -----
From: Mr. Kid
To: BeExcel
Sent: Thursday, April 11, 2013 1:02 AM
Subject: Re: [belajar-excel] Cek Nominal sama atau tidak
wakakakaka...
sorry,
ketinggalan filenya.
Wassalam,
Kid.
2013/4/11 lapendosol opik <lapendosol@yahoo.com >
Trimakasih Mas Kid,
Tapi kok file terlampirnya ga ada ya
Wassalam,
----------------------------------------------------------
From: Mr. Kid <mr.nmkid@gmail.com >
To: BeExcel <belajar-excel@yahoogroups.com >
Sent: Tuesday, April 9, 2013 10:35 PM
Subject: Re: [belajar-excel] Cek Nominal sama atau tidak
Hai Opik,
Semoga file terlampir bisa menjadi tambahan wacana.
Wassalam,
Kid.
2013/4/9 lapendosol opik <lapendosol@yahoo.com >
Selamat siang para Master Excel,
Saya punya data seperti ini:
A4:A3806 adalah ID grup A
D4:D3806 adalah Nominal grup A
F4:F1048 adalah ID grup B
G4:G1048 adalah Nominal grup B
Tugas 1:
Apakah ID grup B (F4) cocok/ada di data ID grup A ($A$4:$A$3806)
Untuk tugas1 saya taruh di I4:I1048 dengan rumus di I4:
=IF(COUNTIF($A$4:$A$3806,F4)>0,"ADA","Tidak Ada")
Copy kebawah sampai I1048
Tugas 2:
Mencocokkan Nominal ID grup B dengan Nominal ID grup B
Untuk tugas2 saya taruh di J4:J1048
Logikanya: jika ID grup B cocok dengan ID grup A, maka periksa Nominalnya sama atau tidak
jika Nominalnya SAMA, maka beri keterangan "SAMA"
jika Nominalnya tidak sama, maka beri keterangan selisih angka dari Nominalnya (G4-Dsekian)
Untuk tugas2 saya harus pakai formula apa?
Tadinya saya mau lampirkan contoh datanya, tapi paket internetnya tidak bisa buat upload data, selalu gagal
Mohon pencerahannya
Trimakasih sebelumnya
Wassalam,
Terimakasih ya Mr.Kid, akan saya pelajari dan cerna terlebih dulu ...
Wassalam,
Mulki
----- Original Message -----
From: Mr. Kid
To: BeExcel
Sent: Thursday, April 11, 2013 9:08 AM
Subject: Re: [belajar-excel] Cek Nominal sama atau tidak
Wa'alaikumussal
Dalam membandingkan 2 set data (B terhadap A), kemungkinan yang terjadi :
1. si B ada di A -> Fungsi Match akan menghasilkan suatu angka mewakili index nomor record
2. si B tidak ada di A -> Fungsi Match akan menghasilkan error value #N/A
Keterangan berbunyi ADA atau TIDAK ADA memiliki persamaan kata ADA
Jadi, jika kondisi yang tercapai adalah nomor 1 (diatas), maka kata TIDAK harus diganti dengan nullstring (""
Jika kondisi yang tercapai adalah nomor 2 (diatas), maka perlu kata TIDAK.
Karena kondisi nomor 2 muncul ketika fungsi Match menghasilkan error value #N/A, maka kondisinya bisa berbunyi :
"Jika fungsi Match menghasilkan nilai error, maka tulis kata TIDAK. Jika fungsi Match menghasilkan suatu angka, maka tidak boleh menulis kata TIDAK alias tulis saja nullstring (""
Hasil pengkondisian di atas nantinya akan disambung dengan kata ADA dalam susunan [hasil kondisi] & "ADA"
[hasil kondisi] bisa bernilai "TIDAK " atau ""
IsError bisa diganti dengan IsNA. Jika menggunakan IsNumber maka susunan ["TIDAK ","
Opsi lain adalah tidak menggunakan Match, tetapi menggunakan CountIF. Kondisinya akan menjadi :
1. si B ada di A -> CountIF menghasilkan nilai > 0
2. si B tidak ada di A -> CountIF menghasilkan nilai 0
Pada data dengan jumlah record yang banyak sekali, fungsi Match akan terasa lebih cepat dibanding menggunakan CountIF (dugaannya begitu)
karena faktor IF dalam CountIF akan menganalisa setiap cell dalam range rujukan. Sedangkan menggunakan Match akan segera berhenti jika sudah bertemu yang sesuai.
Kira-kira demikian.
Wassalamu'
Kid.
2013/4/11 Mulki <mulki@aop.component
Assalamu'
Mr. Kid, bisa tolong dijelaskan penggunakan formula yg di depannya menggunakan ISERROR ?
Adakah tujuan khususnya jika tanpa menggunakan ISERROR ?
Terimakasih.
Wassalam,
mulki
----- Original Message -----
From: Mr. Kid
To: BeExcel
Sent: Thursday, April 11, 2013 1:02 AM
Subject: Re: [belajar-excel] Cek Nominal sama atau tidak
wakakakaka..
sorry,
ketinggalan filenya.
Wassalam,
Kid.
2013/4/11 lapendosol opik <lapendosol@yahoo.
Trimakasih Mas Kid,
Tapi kok file terlampirnya ga ada ya
Wassalam,
------------
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Tuesday, April 9, 2013 10:35 PM
Subject: Re: [belajar-excel] Cek Nominal sama atau tidak
Hai Opik,
Semoga file terlampir bisa menjadi tambahan wacana.
Wassalam,
Kid.
2013/4/9 lapendosol opik <lapendosol@yahoo.
Selamat siang para Master Excel,
Saya punya data seperti ini:
A4:A3806 adalah ID grup A
D4:D3806 adalah Nominal grup A
F4:F1048 adalah ID grup B
G4:G1048 adalah Nominal grup B
Tugas 1:
Apakah ID grup B (F4) cocok/ada di data ID grup A ($A$4:$A$3806)
Untuk tugas1 saya taruh di I4:I1048 dengan rumus di I4:
=IF(COUNTIF(
Copy kebawah sampai I1048
Tugas 2:
Mencocokkan Nominal ID grup B dengan Nominal ID grup B
Untuk tugas2 saya taruh di J4:J1048
Logikanya: jika ID grup B cocok dengan ID grup A, maka periksa Nominalnya sama atau tidak
jika Nominalnya SAMA, maka beri keterangan "SAMA"
jika Nominalnya tidak sama, maka beri keterangan selisih angka dari Nominalnya (G4-Dsekian)
Untuk tugas2 saya harus pakai formula apa?
Tadinya saya mau lampirkan contoh datanya, tapi paket internetnya tidak bisa buat upload data, selalu gagal
Mohon pencerahannya
Trimakasih sebelumnya
Wassalam,
Wed Apr 10, 2013 3:29 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Mungkin untuk FIFO seperti file terlampir.
Ketepatan formula dalam mengkomputasi sebaiknya diperiksa ulang. (siapa
tahu ada yang ndak pas)
File terlampir masih belum dilengkapi VBA untuk commit data input penjualan
ke tabel transaksi Penjualan dan Pembelian.
Input harus selalu dilakukan melalui suatu form input agar bisa disertai
proses validasi data sebelum dimasukkan ke database pada tabel transaksi
yang berkaitan.
Wassalam,
Kid.
2013/4/10 hendrik karnadi <hendrikkarnadi@yahoo.com >
> **
>
>
> Saya ada satu contoh mengenai menghitung harga pokok dengan FIFO, LIFO dan
> AVG (ngambil dari internet), namun hanya untuk satu product (sebelumnya pernah
> dibahas dalam milis ini).
> Saya coba kembangkan untuk banyak product namun belum berhasil.
>
> Barangkali Mr. Kid atau Rekan2 Be Exceler lainnya, khususnya yang bergerak
> di bidang akuntansi, dapat menyempurnakannya untuk banyak product.
>
> File terlampir.
>
> Terima kasih.
>
> Salam,
> HK
>
> ----- Forwarded Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* BeExcel <belajar-excel@yahoogroups.com >
> *Sent:* Wednesday, 10 April 2013, 8:36
> *Subject:* Re: Fw: [belajar-excel] Buat Laporan Penjualan sederhana
>
>
> hehhee...
> justru itu wacana yang sedang diisukan.
> saya juga ndak tahu, nanti mau gimana.
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/10 hendrik karnadi <hendrikkarnadi@yahoo.com >
>
> **
>
> Mr. Kid,
>
> Kode "1" kan ada 2 x pembelian, bagaimana kalau mau ambil harga Kode "1"
> pembelian yang kedua atau mau ambil rata2nya ?
>
> Salam,
> HK
>
> ----- Forwarded Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* BeExcel <belajar-excel@yahoogroups.com >
> *Sent:* Tuesday, 9 April 2013, 23:25
> *Subject:* Re: [belajar-excel] Buat Laporan Penjualan sederhana
>
>
> Kasus vLookUp.
> Mungkin seperti file terlampir.
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/9 Abang Jakarta <abang_jakarta17@yahoo.com >
>
> **
>
> Yth para expert excel,
>
> Saya perlu bantuannya, saya ingin buat data pembelian dan penjualan untuk
> toko saya. Di sheet Catatan pembelian ada kolom Harga Modal / pc. Kemudian
> setiap saya meng input kode di sheet Laporan penjualan maka secara otomatis
> akan muncul nama barang tersebut serta harga modal dari barang tersebut.
>
> Saya lampirkan juga contoh yang saya buat, mohon bantuannya.
> Terimakasih
>
> Abang
>
>
>
>
>
>
>
>
>
Ketepatan formula dalam mengkomputasi sebaiknya diperiksa ulang. (siapa
tahu ada yang ndak pas)
File terlampir masih belum dilengkapi VBA untuk commit data input penjualan
ke tabel transaksi Penjualan dan Pembelian.
Input harus selalu dilakukan melalui suatu form input agar bisa disertai
proses validasi data sebelum dimasukkan ke database pada tabel transaksi
yang berkaitan.
Wassalam,
Kid.
2013/4/10 hendrik karnadi <hendrikkarnadi@
> **
>
>
> Saya ada satu contoh mengenai menghitung harga pokok dengan FIFO, LIFO dan
> AVG (ngambil dari internet), namun hanya untuk satu product (sebelumnya pernah
> dibahas dalam milis ini).
> Saya coba kembangkan untuk banyak product namun belum berhasil.
>
> Barangkali Mr. Kid atau Rekan2 Be Exceler lainnya, khususnya yang bergerak
> di bidang akuntansi, dapat menyempurnakannya untuk banyak product.
>
> File terlampir.
>
> Terima kasih.
>
> Salam,
> HK
>
> ----- Forwarded Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* BeExcel <belajar-excel@
> *Sent:* Wednesday, 10 April 2013, 8:36
> *Subject:* Re: Fw: [belajar-excel] Buat Laporan Penjualan sederhana
>
>
> hehhee...
> justru itu wacana yang sedang diisukan.
> saya juga ndak tahu, nanti mau gimana.
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/10 hendrik karnadi <hendrikkarnadi@
>
> **
>
> Mr. Kid,
>
> Kode "1" kan ada 2 x pembelian, bagaimana kalau mau ambil harga Kode "1"
> pembelian yang kedua atau mau ambil rata2nya ?
>
> Salam,
> HK
>
> ----- Forwarded Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* BeExcel <belajar-excel@
> *Sent:* Tuesday, 9 April 2013, 23:25
> *Subject:* Re: [belajar-excel] Buat Laporan Penjualan sederhana
>
>
> Kasus vLookUp.
> Mungkin seperti file terlampir.
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/9 Abang Jakarta <abang_jakarta17@
>
> **
>
> Yth para expert excel,
>
> Saya perlu bantuannya, saya ingin buat data pembelian dan penjualan untuk
> toko saya. Di sheet Catatan pembelian ada kolom Harga Modal / pc. Kemudian
> setiap saya meng input kode di sheet Laporan penjualan maka secara otomatis
> akan muncul nama barang tersebut serta harga modal dari barang tersebut.
>
> Saya lampirkan juga contoh yang saya buat, mohon bantuannya.
> Terimakasih
>
> Abang
>
>
>
>
>
>
>
>
>
Wed Apr 10, 2013 6:52 pm (PDT) . Posted by:
"Jan Raisin"
superb.. master Hendrik.
Jan tidak bisa menemukan script yang lebih ringkas lagi untuk poin 1 maupun
poin 2
Mungkin ada yang lain memiliki pendapat tentang plus minusnya menggunakan
.select dan .activate dalam vba, silakan dishare ilmunya di sini
Salam,
-Miss Jan Raisin-
Pada 10 April 2013 17.32, hendrik karnadi <hendrikkarnadi@yahoo.com >menulis:
> **
>
>
> Terima kasih Miss Jan atas koreksinya.
>
> Dengan asumsi Nama terisi penuh (tidak kosong di tengah) maka saya coba
> revisi seperti ini,
>
> Untuk mencari baris baru
> Sub BarBar()
> Columns("A:A").Find(vbNullString).Select
> End Sub
> Yang ini kayaknya cukup pendek, mustinya sdh OK
>
> Untuk mencari Nama tertentu (lengkap, tidak masalah huruf besar kecil)
> Sub RekTtt()
> On Error GoTo Pesan
> skunci = InputBox("Masukkan Nama")
> If skunci <> vbNullString Then Columns("A:A").Find(skunci,
> Lookat:=xlWhole).Activate
> Exit Sub
> Pesan:
> MsgBox "Nama tidak ada", vbInformation, "PESAN"
> End Sub
> Yang ini terpaksa agak panjang supaya logikanya nyambung.
>
> Khusus yang kedua, ada kode yang bisa lebih pendek Miss Jan ?
>
> Salam,
> HK
>
>
> ------------------------------
> *From:* Jan Raisin <miss.jan.raisin@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Wednesday, 10 April 2013, 14:26
> *Subject:* Re: [belajar-excel] Cari baris baru dan record tertentu
>
>
> pak Hendrik,
>
> untuk script yang ini:
> Sub BarBar()
> Columns("A:A").SpecialCells(xlLastCell).Offset(1, 0).Select
> End Sub
>
> coba lakukan tes seperti ini pada workbook yang baru:
> 1. Buat header di cell A1
> 2. input data manual di cell A2 sampai A20 (sembarang data)
> 3. hapus data mulai cell A2 sampai A20
> 4. jalankan script tadi dan lihat hasilnya
>
> Lalu untuk script yang ini:
> Sub RekTtt()
> Columns("A:A").Find("Sania").Activate
> End Sub
>
> bagaimana jika ternyata tidak ada cell yang berisi kata Sania ?
>
> IMHO,
>
> >> proses select atau activate sebisa mungkin dihindari, karena bisa
> dimanfaatkan untuk proses yang lain
> >> pencarian posisi dengan menggunakan SpecialCell untuk input data yang
> baru kadang menghasilkan data yang tidak tepat.
> >> posisi pencarian record sebaiknya dimasukkan ke dalam variabel bertipe
> range, lalu dilakukan kros cek apakah record tersebut ada atau tidak
>
> ini hanya pendapat pribadi Jan yang masih banyak kekurangannya. jika ada
> yang salah tolong dikoreksi.
>
> Salam,
>
> -Miss Jan Raisin-
>
>
>
> Pada 10 April 2013 13.30, hendrik karnadi <hendrikkarnadi@yahoo.com >menulis:
>
> **
>
> Rekan Be-Exceler,
>
> Dalam database kita sering dihadapkan pada dua hal, yaitu:
> - Mencari baris baru untuk input data baru
> - Mencari record tertentu dari data yang sudah ada, mis. untuk diedit
>
> Biasanya/sering kita gunakan Offset(Tabel.Rows.Count+1,.....) atau
> .......End(xlUp) untuk mencari baris baru dan Find("xyz";, Lookin=xlValues)
> untuk mencari record tertentu yang sudah ada.
>
> Untuk mencari baris baru saya gunakan code:
> Sub BarBar()
> Columns("A:A").SpecialCells(xlLastCell).Offset(1, 0).Select
> End Sub
>
> Untuk mencari record tertentu (mis "Sania") saya gunakan code:
> Sub RekTtt()
> Columns("A:A").Find("Sania").Activate
> End Sub
>
> File terlampir.
>
> Pertanyaannya:
> Apakah kedua code tsb mengandung kelemahan?
>
> Salam,
> HK
>
>
>
>
>
Jan tidak bisa menemukan script yang lebih ringkas lagi untuk poin 1 maupun
poin 2
Mungkin ada yang lain memiliki pendapat tentang plus minusnya menggunakan
.select dan .activate dalam vba, silakan dishare ilmunya di sini
Salam,
-Miss Jan Raisin-
Pada 10 April 2013 17.32, hendrik karnadi <hendrikkarnadi@
> **
>
>
> Terima kasih Miss Jan atas koreksinya.
>
> Dengan asumsi Nama terisi penuh (tidak kosong di tengah) maka saya coba
> revisi seperti ini,
>
> Untuk mencari baris baru
> Sub BarBar()
> Columns("
> End Sub
> Yang ini kayaknya cukup pendek, mustinya sdh OK
>
> Untuk mencari Nama tertentu (lengkap, tidak masalah huruf besar kecil)
> Sub RekTtt()
> On Error GoTo Pesan
> skunci = InputBox("
> If skunci <> vbNullString Then Columns("
> Lookat:=xlWhole)
> Exit Sub
> Pesan:
> MsgBox "Nama tidak ada", vbInformation, "PESAN"
> End Sub
> Yang ini terpaksa agak panjang supaya logikanya nyambung.
>
> Khusus yang kedua, ada kode yang bisa lebih pendek Miss Jan ?
>
> Salam,
> HK
>
>
> ------------
> *From:* Jan Raisin <miss.jan.raisin@
> *To:* belajar-excel@
> *Sent:* Wednesday, 10 April 2013, 14:26
> *Subject:* Re: [belajar-excel] Cari baris baru dan record tertentu
>
>
> pak Hendrik,
>
> untuk script yang ini:
> Sub BarBar()
> Columns("
> End Sub
>
> coba lakukan tes seperti ini pada workbook yang baru:
> 1. Buat header di cell A1
> 2. input data manual di cell A2 sampai A20 (sembarang data)
> 3. hapus data mulai cell A2 sampai A20
> 4. jalankan script tadi dan lihat hasilnya
>
> Lalu untuk script yang ini:
> Sub RekTtt()
> Columns("
> End Sub
>
> bagaimana jika ternyata tidak ada cell yang berisi kata Sania ?
>
> IMHO,
>
> >> proses select atau activate sebisa mungkin dihindari, karena bisa
> dimanfaatkan untuk proses yang lain
> >> pencarian posisi dengan menggunakan SpecialCell untuk input data yang
> baru kadang menghasilkan data yang tidak tepat.
> >> posisi pencarian record sebaiknya dimasukkan ke dalam variabel bertipe
> range, lalu dilakukan kros cek apakah record tersebut ada atau tidak
>
> ini hanya pendapat pribadi Jan yang masih banyak kekurangannya. jika ada
> yang salah tolong dikoreksi.
>
> Salam,
>
> -Miss Jan Raisin-
>
>
>
> Pada 10 April 2013 13.30, hendrik karnadi <hendrikkarnadi@
>
> **
>
> Rekan Be-Exceler,
>
> Dalam database kita sering dihadapkan pada dua hal, yaitu:
> - Mencari baris baru untuk input data baru
> - Mencari record tertentu dari data yang sudah ada, mis. untuk diedit
>
> Biasanya/sering kita gunakan Offset(Tabel.
> .......End(xlUp) untuk mencari baris baru dan Find("xyz"
> untuk mencari record tertentu yang sudah ada.
>
> Untuk mencari baris baru saya gunakan code:
> Sub BarBar()
> Columns("
> End Sub
>
> Untuk mencari record tertentu (mis "Sania"
> Sub RekTtt()
> Columns("
> End Sub
>
> File terlampir.
>
> Pertanyaannya:
> Apakah kedua code tsb mengandung kelemahan?
>
> Salam,
> HK
>
>
>
>
>
Wed Apr 10, 2013 7:19 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Terima kasih Miss Jan.
Salam,
HK
________________________________
From: Jan Raisin <miss.jan.raisin@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Thursday, 11 April 2013, 8:52
Subject: Re: [belajar-excel] Cari baris baru dan record tertentu
superb.. master Hendrik.
Jan tidak bisa menemukan script yang lebih ringkas lagi untuk poin 1 maupun poin 2
Mungkin ada yang lain memiliki pendapat tentang plus minusnya menggunakan .select dan .activate dalam vba, silakan dishare ilmunya di sini
Salam,
-Miss Jan Raisin-
Pada 10 April 2013 17.32, hendrik karnadi <hendrikkarnadi@yahoo.com > menulis:
>
>Terima kasih Miss Jan atas koreksinya.
>
>
>Dengan asumsi Nama terisi penuh (tidak kosong di tengah) maka saya coba revisi seperti ini,
>
>
>Untuk mencari baris baru
>Sub BarBar()
>
> Columns("A:A").Find(vbNullString).Select
>End Sub
>Yang ini kayaknya cukup pendek, mustinya sdh OK
>
>
>Untuk mencari Nama tertentu (lengkap, tidak masalah huruf besar kecil)
>Sub RekTtt()
> On Error GoTo Pesan
> skunci = InputBox("Masukkan Nama")
> If skunci <> vbNullString Then Columns("A:A").Find(skunci, Lookat:=xlWhole).Activate
> Exit Sub
>Pesan:
> MsgBox "Nama tidak ada", vbInformation, "PESAN"
>End Sub
>Yang ini terpaksa agak panjang supaya logikanya nyambung.
>
>
>
>Khusus yang kedua, ada kode yang bisa lebih pendek Miss Jan ?
>
>
>Salam,
>HK
>
>
>
>
>
>________________________________
> From: Jan Raisin <miss.jan.raisin@gmail.com >
>To: belajar-excel@yahoogroups.com
>Sent: Wednesday, 10 April 2013, 14:26
>Subject: Re: [belajar-excel] Cari baris baru dan record tertentu
>
>
>
>
>pak Hendrik,
>
>
>untuk script yang ini:
>Sub BarBar()
> Columns("A:A").SpecialCells(xlLastCell).Offset(1, 0).Select
>End Sub
>
>
>coba lakukan tes seperti ini pada workbook yang baru:
>1. Buat header di cell A1
>2. input data manual di cell A2 sampai A20 (sembarang data)
>3. hapus data mulai cell A2 sampai A20
>4. jalankan script tadi dan lihat hasilnya
>
>
>Lalu untuk script yang ini:
>Sub RekTtt()
> Columns("A:A").Find("Sania").Activate
>End Sub
>
>
>bagaimana jika ternyata tidak ada cell yang berisi kata Sania ?
>
>
>IMHO,
>
>
>>> proses select atau activate sebisa mungkin dihindari, karena bisa dimanfaatkan untuk proses yang lain
>>> pencarian posisi dengan menggunakan SpecialCell untuk input data yang baru kadang menghasilkan data yang tidak tepat.
>>> posisi pencarian record sebaiknya dimasukkan ke dalam variabel bertipe range, lalu dilakukan kros cek apakah record tersebut ada atau tidak
>
>
>ini hanya pendapat pribadi Jan yang masih banyak kekurangannya. jika ada yang salah tolong dikoreksi.
>
>
>Salam,
>
>
>-Miss Jan Raisin-
>
>
>
>
>
>Pada 10 April 2013 13.30, hendrik karnadi <hendrikkarnadi@yahoo.com > menulis:
>
>
>>
>>Rekan Be-Exceler,
>>
>>
>>Dalam database kita sering dihadapkan pada dua hal, yaitu:
>>- Mencari baris baru untuk input data baru
>>- Mencari record tertentu dari data yang sudah ada, mis. untuk diedit
>>
>>
>>Biasanya/sering kita gunakan Offset(Tabel.Rows.Count+1,.....) atau .......End(xlUp) untuk mencari baris baru dan Find("xyz";, Lookin=xlValues) untuk mencari record tertentu yang sudah ada.
>>
>>
>>Untuk mencari baris baru saya gunakan code:
>>Sub BarBar()
>> Columns("A:A").SpecialCells(xlLastCell).Offset(1, 0).Select
>>End Sub
>>
>>
>>Untuk mencari record tertentu (mis "Sania") saya gunakan code:
>>Sub RekTtt()
>> Columns("A:A").Find("Sania").Activate
>>End Sub
>>
>>
>>File terlampir.
>>
>>
>>Pertanyaannya:
>>Apakah kedua code tsb mengandung kelemahan?
>>
>>
>>Salam,
>>HK
>>
>>
>
>
Salam,
HK
____________
From: Jan Raisin <miss.jan.raisin@
To: belajar-excel@
Sent: Thursday, 11 April 2013, 8:52
Subject: Re: [belajar-excel] Cari baris baru dan record tertentu
superb.. master Hendrik.
Jan tidak bisa menemukan script yang lebih ringkas lagi untuk poin 1 maupun poin 2
Mungkin ada yang lain memiliki pendapat tentang plus minusnya menggunakan .select dan .activate dalam vba, silakan dishare ilmunya di sini
Salam,
-Miss Jan Raisin-
Pada 10 April 2013 17.32, hendrik karnadi <hendrikkarnadi@
>
>Terima kasih Miss Jan atas koreksinya.
>
>
>Dengan asumsi Nama terisi penuh (tidak kosong di tengah) maka saya coba revisi seperti ini,
>
>
>Untuk mencari baris baru
>Sub BarBar()
>
> Columns("
>End Sub
>Yang ini kayaknya cukup pendek, mustinya sdh OK
>
>
>Untuk mencari Nama tertentu (lengkap, tidak masalah huruf besar kecil)
>Sub RekTtt()
> On Error GoTo Pesan
> skunci = InputBox("
> If skunci <> vbNullString Then Columns("
> Exit Sub
>Pesan:
> MsgBox "Nama tidak ada", vbInformation, "PESAN"
>End Sub
>Yang ini terpaksa agak panjang supaya logikanya nyambung.
>
>
>
>Khusus yang kedua, ada kode yang bisa lebih pendek Miss Jan ?
>
>
>Salam,
>HK
>
>
>
>
>
>________
> From: Jan Raisin <miss.jan.raisin@
>To: belajar-excel@
>Sent: Wednesday, 10 April 2013, 14:26
>Subject: Re: [belajar-excel] Cari baris baru dan record tertentu
>
>
>
>
>pak Hendrik,
>
>
>untuk script yang ini:
>Sub BarBar()
> Columns("
>End Sub
>
>
>coba lakukan tes seperti ini pada workbook yang baru:
>1. Buat header di cell A1
>2. input data manual di cell A2 sampai A20 (sembarang data)
>3. hapus data mulai cell A2 sampai A20
>4. jalankan script tadi dan lihat hasilnya
>
>
>Lalu untuk script yang ini:
>Sub RekTtt()
> Columns("
>End Sub
>
>
>bagaimana jika ternyata tidak ada cell yang berisi kata Sania ?
>
>
>IMHO,
>
>
>>> proses select atau activate sebisa mungkin dihindari, karena bisa dimanfaatkan untuk proses yang lain
>>> pencarian posisi dengan menggunakan SpecialCell untuk input data yang baru kadang menghasilkan data yang tidak tepat.
>>> posisi pencarian record sebaiknya dimasukkan ke dalam variabel bertipe range, lalu dilakukan kros cek apakah record tersebut ada atau tidak
>
>
>ini hanya pendapat pribadi Jan yang masih banyak kekurangannya. jika ada yang salah tolong dikoreksi.
>
>
>Salam,
>
>
>-Miss Jan Raisin-
>
>
>
>
>
>Pada 10 April 2013 13.30, hendrik karnadi <hendrikkarnadi@
>
>
>>
>>Rekan Be-Exceler,
>>
>>
>>Dalam database kita sering dihadapkan pada dua hal, yaitu:
>>- Mencari baris baru untuk input data baru
>>- Mencari record tertentu dari data yang sudah ada, mis. untuk diedit
>>
>>
>>Biasanya/
>>
>>
>>Untuk mencari baris baru saya gunakan code:
>>Sub BarBar()
>> Columns("
>>End Sub
>>
>>
>>Untuk mencari record tertentu (mis "Sania"
>>Sub RekTtt()
>> Columns("
>>End Sub
>>
>>
>>File terlampir.
>>
>>
>>Pertanyaann
>>Apakah kedua code tsb mengandung kelemahan?
>>
>>
>>Salam,
>>HK
>>
>>
>
>
Wed Apr 10, 2013 9:20 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Bagaimana kalau dicoba pada penerapannya dan dihitung waktunya. Dari sekian
banyak cara yang ada di atas sana tadi, mana yang lebih pas dan lebih
sesuai untuk kondisi dalam contoh penerapan tadi.
misal
Cara 1 : Columns("A:A").Find(vbNullString).Select
Cara 2 : cells(rows.count,1).end(xlup).offset(1).select
buat workbook baru dan isi sheet1 dengan beberapa data di kolom A, B,
maupun C ( banyak baris x 3 kolom)
ke VBE (ALT F11) -> menu Insert -> Module -> copasken :
private declare function QueryPerformanceCounter Lib "kernel32.dll" (ByRef
lpPerformanceCount As LARGE_INTEGER) As Long
private type LARGE_INTEGER
lowpart as long
highpart as long
end type
public sub TesBarisBaru()
dim udtStart as large_integer, udtEnd as large_integer
'cara 1
call QueryPerformanceCounte(udtstart)
Columns("A:A").Find(vbNullString).Select
call QueryPerformanceCounte(udtend)
debug.print "cara 1 : Columns(""A:A"").Find(vbNullString).Select", _
"Alamat akhir : " & selection.address, _
"Waktu : " & udtend.highpart-udtstart.highpart &
" | " & udtend.lowpart-udtstart.lowpart
'cara 2
call QueryPerformanceCounte(udtstart)
cells(rows.count,1).end(xlup).offset(1).select
call QueryPerformanceCounte(udtend)
debug.print "cara 2 : cells(rows.count,1).end(xlup).offset(1).select",
_
"Alamat akhir : " & selection.address, _
"Waktu : " & udtend.highpart-udtstart.highpart &
" | " & udtend.lowpart-udtstart.lowpart
end sub
Wassalam,
Kid.
2013/4/10 hendrik karnadi <hendrikkarnadi@yahoo.com >
> **
>
>
> Terima kasih Miss Jan atas koreksinya.
>
> Dengan asumsi Nama terisi penuh (tidak kosong di tengah) maka saya coba
> revisi seperti ini,
>
> Untuk mencari baris baru
> Sub BarBar()
> Columns("A:A").Find(vbNullString).Select
> End Sub
> Yang ini kayaknya cukup pendek, mustinya sdh OK
>
> Untuk mencari Nama tertentu (lengkap, tidak masalah huruf besar kecil)
> Sub RekTtt()
> On Error GoTo Pesan
> skunci = InputBox("Masukkan Nama")
> If skunci <> vbNullString Then Columns("A:A").Find(skunci,
> Lookat:=xlWhole).Activate
> Exit Sub
> Pesan:
> MsgBox "Nama tidak ada", vbInformation, "PESAN"
> End Sub
> Yang ini terpaksa agak panjang supaya logikanya nyambung.
>
> Khusus yang kedua, ada kode yang bisa lebih pendek Miss Jan ?
>
> Salam,
> HK
>
>
> ------------------------------
> *From:* Jan Raisin <miss.jan.raisin@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Wednesday, 10 April 2013, 14:26
> *Subject:* Re: [belajar-excel] Cari baris baru dan record tertentu
>
>
> pak Hendrik,
>
> untuk script yang ini:
> Sub BarBar()
> Columns("A:A").SpecialCells(xlLastCell).Offset(1, 0).Select
> End Sub
>
> coba lakukan tes seperti ini pada workbook yang baru:
> 1. Buat header di cell A1
> 2. input data manual di cell A2 sampai A20 (sembarang data)
> 3. hapus data mulai cell A2 sampai A20
> 4. jalankan script tadi dan lihat hasilnya
>
> Lalu untuk script yang ini:
> Sub RekTtt()
> Columns("A:A").Find("Sania").Activate
> End Sub
>
> bagaimana jika ternyata tidak ada cell yang berisi kata Sania ?
>
> IMHO,
>
> >> proses select atau activate sebisa mungkin dihindari, karena bisa
> dimanfaatkan untuk proses yang lain
> >> pencarian posisi dengan menggunakan SpecialCell untuk input data yang
> baru kadang menghasilkan data yang tidak tepat.
> >> posisi pencarian record sebaiknya dimasukkan ke dalam variabel bertipe
> range, lalu dilakukan kros cek apakah record tersebut ada atau tidak
>
> ini hanya pendapat pribadi Jan yang masih banyak kekurangannya. jika ada
> yang salah tolong dikoreksi.
>
> Salam,
>
> -Miss Jan Raisin-
>
>
>
> Pada 10 April 2013 13.30, hendrik karnadi <hendrikkarnadi@yahoo.com >menulis:
>
> **
>
> Rekan Be-Exceler,
>
> Dalam database kita sering dihadapkan pada dua hal, yaitu:
> - Mencari baris baru untuk input data baru
> - Mencari record tertentu dari data yang sudah ada, mis. untuk diedit
>
> Biasanya/sering kita gunakan Offset(Tabel.Rows.Count+1,.....) atau
> .......End(xlUp) untuk mencari baris baru dan Find("xyz";, Lookin=xlValues)
> untuk mencari record tertentu yang sudah ada.
>
> Untuk mencari baris baru saya gunakan code:
> Sub BarBar()
> Columns("A:A").SpecialCells(xlLastCell).Offset(1, 0).Select
> End Sub
>
> Untuk mencari record tertentu (mis "Sania") saya gunakan code:
> Sub RekTtt()
> Columns("A:A").Find("Sania").Activate
> End Sub
>
> File terlampir.
>
> Pertanyaannya:
> Apakah kedua code tsb mengandung kelemahan?
>
> Salam,
> HK
>
>
>
>
>
banyak cara yang ada di atas sana tadi, mana yang lebih pas dan lebih
sesuai untuk kondisi dalam contoh penerapan tadi.
misal
Cara 1 : Columns("
Cara 2 : cells(rows.count,
buat workbook baru dan isi sheet1 dengan beberapa data di kolom A, B,
maupun C ( banyak baris x 3 kolom)
ke VBE (ALT F11) -> menu Insert -> Module -> copasken :
private declare function QueryPerformanceCou
lpPerformanceCount As LARGE_INTEGER) As Long
private type LARGE_INTEGER
lowpart as long
highpart as long
end type
public sub TesBarisBaru(
dim udtStart as large_integer, udtEnd as large_integer
'cara 1
call QueryPerformanceCou
Columns("
call QueryPerformanceCou
debug.print "cara 1 : Columns("
"Alamat akhir : " & selection.address, _
"Waktu : " & udtend.highpart-
" | " & udtend.lowpart-
'cara 2
call QueryPerformanceCou
cells(rows.count,
call QueryPerformanceCou
debug.print "cara 2 : cells(rows.count,
_
"Alamat akhir : " & selection.address, _
"Waktu : " & udtend.highpart-
" | " & udtend.lowpart-
end sub
Wassalam,
Kid.
2013/4/10 hendrik karnadi <hendrikkarnadi@
> **
>
>
> Terima kasih Miss Jan atas koreksinya.
>
> Dengan asumsi Nama terisi penuh (tidak kosong di tengah) maka saya coba
> revisi seperti ini,
>
> Untuk mencari baris baru
> Sub BarBar()
> Columns("
> End Sub
> Yang ini kayaknya cukup pendek, mustinya sdh OK
>
> Untuk mencari Nama tertentu (lengkap, tidak masalah huruf besar kecil)
> Sub RekTtt()
> On Error GoTo Pesan
> skunci = InputBox("
> If skunci <> vbNullString Then Columns("
> Lookat:=xlWhole)
> Exit Sub
> Pesan:
> MsgBox "Nama tidak ada", vbInformation, "PESAN"
> End Sub
> Yang ini terpaksa agak panjang supaya logikanya nyambung.
>
> Khusus yang kedua, ada kode yang bisa lebih pendek Miss Jan ?
>
> Salam,
> HK
>
>
> ------------
> *From:* Jan Raisin <miss.jan.raisin@
> *To:* belajar-excel@
> *Sent:* Wednesday, 10 April 2013, 14:26
> *Subject:* Re: [belajar-excel] Cari baris baru dan record tertentu
>
>
> pak Hendrik,
>
> untuk script yang ini:
> Sub BarBar()
> Columns("
> End Sub
>
> coba lakukan tes seperti ini pada workbook yang baru:
> 1. Buat header di cell A1
> 2. input data manual di cell A2 sampai A20 (sembarang data)
> 3. hapus data mulai cell A2 sampai A20
> 4. jalankan script tadi dan lihat hasilnya
>
> Lalu untuk script yang ini:
> Sub RekTtt()
> Columns("
> End Sub
>
> bagaimana jika ternyata tidak ada cell yang berisi kata Sania ?
>
> IMHO,
>
> >> proses select atau activate sebisa mungkin dihindari, karena bisa
> dimanfaatkan untuk proses yang lain
> >> pencarian posisi dengan menggunakan SpecialCell untuk input data yang
> baru kadang menghasilkan data yang tidak tepat.
> >> posisi pencarian record sebaiknya dimasukkan ke dalam variabel bertipe
> range, lalu dilakukan kros cek apakah record tersebut ada atau tidak
>
> ini hanya pendapat pribadi Jan yang masih banyak kekurangannya. jika ada
> yang salah tolong dikoreksi.
>
> Salam,
>
> -Miss Jan Raisin-
>
>
>
> Pada 10 April 2013 13.30, hendrik karnadi <hendrikkarnadi@
>
> **
>
> Rekan Be-Exceler,
>
> Dalam database kita sering dihadapkan pada dua hal, yaitu:
> - Mencari baris baru untuk input data baru
> - Mencari record tertentu dari data yang sudah ada, mis. untuk diedit
>
> Biasanya/sering kita gunakan Offset(Tabel.
> .......End(xlUp) untuk mencari baris baru dan Find("xyz"
> untuk mencari record tertentu yang sudah ada.
>
> Untuk mencari baris baru saya gunakan code:
> Sub BarBar()
> Columns("
> End Sub
>
> Untuk mencari record tertentu (mis "Sania"
> Sub RekTtt()
> Columns("
> End Sub
>
> File terlampir.
>
> Pertanyaannya:
> Apakah kedua code tsb mengandung kelemahan?
>
> Salam,
> HK
>
>
>
>
>
Wed Apr 10, 2013 9:26 pm (PDT) . Posted by:
"Jan Raisin"
mr Kid,
waktu scriptnya Jan jalankan, muncul error seperti ini
[image: Gambar sisip 2]
apa yang salah dengan excel Jan ?
Wassalam,
-MJR-
Pada 11 April 2013 11.19, Mr. Kid <mr.nmkid@gmail.com > menulis:
> **
>
>
> Bagaimana kalau dicoba pada penerapannya dan dihitung waktunya. Dari
> sekian banyak cara yang ada di atas sana tadi, mana yang lebih pas dan
> lebih sesuai untuk kondisi dalam contoh penerapan tadi.
>
> misal
> Cara 1 : Columns("A:A").Find(vbNullString).Select
> Cara 2 : cells(rows.count,1).end(xlup).offset(1).select
>
> buat workbook baru dan isi sheet1 dengan beberapa data di kolom A, B,
> maupun C ( banyak baris x 3 kolom)
> ke VBE (ALT F11) -> menu Insert -> Module -> copasken :
>
> private declare function QueryPerformanceCounter Lib "kernel32.dll" (ByRef
> lpPerformanceCount As LARGE_INTEGER) As Long
> private type LARGE_INTEGER
> lowpart as long
> highpart as long
> end type
>
> public sub TesBarisBaru()
> dim udtStart as large_integer, udtEnd as large_integer
>
> 'cara 1
> call QueryPerformanceCounte(udtstart)
> Columns("A:A").Find(vbNullString).Select
> call QueryPerformanceCounte(udtend)
> debug.print "cara 1 : Columns(""A:A"").Find(vbNullString).Select", _
> "Alamat akhir : " & selection.address, _
> "Waktu : " & udtend.highpart-udtstart.highpart
> & " | " & udtend.lowpart-udtstart.lowpart
>
> 'cara 2
> call QueryPerformanceCounte(udtstart)
> cells(rows.count,1).end(xlup).offset(1).select
> call QueryPerformanceCounte(udtend)
> debug.print "cara 2 : cells(rows.count,1).end(xlup).offset(1).select",
> _
> "Alamat akhir : " & selection.address, _
> "Waktu : " & udtend.highpart-udtstart.highpart
> & " | " & udtend.lowpart-udtstart.lowpart
>
> end sub
>
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/4/10 hendrik karnadi <hendrikkarnadi@yahoo.com >
>
>> **
>>
>>
>> Terima kasih Miss Jan atas koreksinya.
>>
>> Dengan asumsi Nama terisi penuh (tidak kosong di tengah) maka saya coba
>> revisi seperti ini,
>>
>> Untuk mencari baris baru
>> Sub BarBar()
>> Columns("A:A").Find(vbNullString).Select
>> End Sub
>> Yang ini kayaknya cukup pendek, mustinya sdh OK
>>
>> Untuk mencari Nama tertentu (lengkap, tidak masalah huruf besar kecil)
>> Sub RekTtt()
>> On Error GoTo Pesan
>> skunci = InputBox("Masukkan Nama")
>> If skunci <> vbNullString Then Columns("A:A").Find(skunci,
>> Lookat:=xlWhole).Activate
>> Exit Sub
>> Pesan:
>> MsgBox "Nama tidak ada", vbInformation, "PESAN"
>> End Sub
>> Yang ini terpaksa agak panjang supaya logikanya nyambung.
>>
>> Khusus yang kedua, ada kode yang bisa lebih pendek Miss Jan ?
>>
>> Salam,
>> HK
>>
>>
>> ------------------------------
>> *From:* Jan Raisin <miss.jan.raisin@gmail.com >
>> *To:* belajar-excel@yahoogroups.com
>> *Sent:* Wednesday, 10 April 2013, 14:26
>> *Subject:* Re: [belajar-excel] Cari baris baru dan record tertentu
>>
>>
>> pak Hendrik,
>>
>> untuk script yang ini:
>> Sub BarBar()
>> Columns("A:A").SpecialCells(xlLastCell).Offset(1, 0).Select
>> End Sub
>>
>> coba lakukan tes seperti ini pada workbook yang baru:
>> 1. Buat header di cell A1
>> 2. input data manual di cell A2 sampai A20 (sembarang data)
>> 3. hapus data mulai cell A2 sampai A20
>> 4. jalankan script tadi dan lihat hasilnya
>>
>> Lalu untuk script yang ini:
>> Sub RekTtt()
>> Columns("A:A").Find("Sania").Activate
>> End Sub
>>
>> bagaimana jika ternyata tidak ada cell yang berisi kata Sania ?
>>
>> IMHO,
>>
>> >> proses select atau activate sebisa mungkin dihindari, karena bisa
>> dimanfaatkan untuk proses yang lain
>> >> pencarian posisi dengan menggunakan SpecialCell untuk input data yang
>> baru kadang menghasilkan data yang tidak tepat.
>> >> posisi pencarian record sebaiknya dimasukkan ke dalam variabel bertipe
>> range, lalu dilakukan kros cek apakah record tersebut ada atau tidak
>>
>> ini hanya pendapat pribadi Jan yang masih banyak kekurangannya. jika ada
>> yang salah tolong dikoreksi.
>>
>> Salam,
>>
>> -Miss Jan Raisin-
>>
>>
>>
>> Pada 10 April 2013 13.30, hendrik karnadi <hendrikkarnadi@yahoo.com >menulis:
>>
>> **
>>
>> Rekan Be-Exceler,
>>
>> Dalam database kita sering dihadapkan pada dua hal, yaitu:
>> - Mencari baris baru untuk input data baru
>> - Mencari record tertentu dari data yang sudah ada, mis. untuk diedit
>>
>> Biasanya/sering kita gunakan Offset(Tabel.Rows.Count+1,.....) atau
>> .......End(xlUp) untuk mencari baris baru dan Find("xyz";, Lookin=xlValues)
>> untuk mencari record tertentu yang sudah ada.
>>
>> Untuk mencari baris baru saya gunakan code:
>> Sub BarBar()
>> Columns("A:A").SpecialCells(xlLastCell).Offset(1, 0).Select
>> End Sub
>>
>> Untuk mencari record tertentu (mis "Sania") saya gunakan code:
>> Sub RekTtt()
>> Columns("A:A").Find("Sania").Activate
>> End Sub
>>
>> File terlampir.
>>
>> Pertanyaannya:
>> Apakah kedua code tsb mengandung kelemahan?
>>
>> Salam,
>> HK
>>
>>
>>
>>
>
>
waktu scriptnya Jan jalankan, muncul error seperti ini
[image: Gambar sisip 2]
apa yang salah dengan excel Jan ?
Wassalam,
-MJR-
Pada 11 April 2013 11.19, Mr. Kid <mr.nmkid@gmail.
> **
>
>
> Bagaimana kalau dicoba pada penerapannya dan dihitung waktunya. Dari
> sekian banyak cara yang ada di atas sana tadi, mana yang lebih pas dan
> lebih sesuai untuk kondisi dalam contoh penerapan tadi.
>
> misal
> Cara 1 : Columns("
> Cara 2 : cells(rows.count,
>
> buat workbook baru dan isi sheet1 dengan beberapa data di kolom A, B,
> maupun C ( banyak baris x 3 kolom)
> ke VBE (ALT F11) -> menu Insert -> Module -> copasken :
>
> private declare function QueryPerformanceCou
> lpPerformanceCount As LARGE_INTEGER) As Long
> private type LARGE_INTEGER
> lowpart as long
> highpart as long
> end type
>
> public sub TesBarisBaru(
> dim udtStart as large_integer, udtEnd as large_integer
>
> 'cara 1
> call QueryPerformanceCou
> Columns("
> call QueryPerformanceCou
> debug.print "cara 1 : Columns("
> "Alamat akhir : " & selection.address, _
> "Waktu : " & udtend.highpart-
> & " | " & udtend.lowpart-
>
> 'cara 2
> call QueryPerformanceCou
> cells(rows.count,
> call QueryPerformanceCou
> debug.print "cara 2 : cells(rows.count,
> _
> "Alamat akhir : " & selection.address, _
> "Waktu : " & udtend.highpart-
> & " | " & udtend.lowpart-
>
> end sub
>
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/4/10 hendrik karnadi <hendrikkarnadi@
>
>> **
>>
>>
>> Terima kasih Miss Jan atas koreksinya.
>>
>> Dengan asumsi Nama terisi penuh (tidak kosong di tengah) maka saya coba
>> revisi seperti ini,
>>
>> Untuk mencari baris baru
>> Sub BarBar()
>> Columns("
>> End Sub
>> Yang ini kayaknya cukup pendek, mustinya sdh OK
>>
>> Untuk mencari Nama tertentu (lengkap, tidak masalah huruf besar kecil)
>> Sub RekTtt()
>> On Error GoTo Pesan
>> skunci = InputBox("
>> If skunci <> vbNullString Then Columns("
>> Lookat:=xlWhole)
>> Exit Sub
>> Pesan:
>> MsgBox "Nama tidak ada", vbInformation, "PESAN"
>> End Sub
>> Yang ini terpaksa agak panjang supaya logikanya nyambung.
>>
>> Khusus yang kedua, ada kode yang bisa lebih pendek Miss Jan ?
>>
>> Salam,
>> HK
>>
>>
>> ------------
>> *From:* Jan Raisin <miss.jan.raisin@
>> *To:* belajar-excel@
>> *Sent:* Wednesday, 10 April 2013, 14:26
>> *Subject:* Re: [belajar-excel] Cari baris baru dan record tertentu
>>
>>
>> pak Hendrik,
>>
>> untuk script yang ini:
>> Sub BarBar()
>> Columns("
>> End Sub
>>
>> coba lakukan tes seperti ini pada workbook yang baru:
>> 1. Buat header di cell A1
>> 2. input data manual di cell A2 sampai A20 (sembarang data)
>> 3. hapus data mulai cell A2 sampai A20
>> 4. jalankan script tadi dan lihat hasilnya
>>
>> Lalu untuk script yang ini:
>> Sub RekTtt()
>> Columns("
>> End Sub
>>
>> bagaimana jika ternyata tidak ada cell yang berisi kata Sania ?
>>
>> IMHO,
>>
>> >> proses select atau activate sebisa mungkin dihindari, karena bisa
>> dimanfaatkan untuk proses yang lain
>> >> pencarian posisi dengan menggunakan SpecialCell untuk input data yang
>> baru kadang menghasilkan data yang tidak tepat.
>> >> posisi pencarian record sebaiknya dimasukkan ke dalam variabel bertipe
>> range, lalu dilakukan kros cek apakah record tersebut ada atau tidak
>>
>> ini hanya pendapat pribadi Jan yang masih banyak kekurangannya. jika ada
>> yang salah tolong dikoreksi.
>>
>> Salam,
>>
>> -Miss Jan Raisin-
>>
>>
>>
>> Pada 10 April 2013 13.30, hendrik karnadi <hendrikkarnadi@
>>
>> **
>>
>> Rekan Be-Exceler,
>>
>> Dalam database kita sering dihadapkan pada dua hal, yaitu:
>> - Mencari baris baru untuk input data baru
>> - Mencari record tertentu dari data yang sudah ada, mis. untuk diedit
>>
>> Biasanya/sering kita gunakan Offset(Tabel.
>> .......End(xlUp) untuk mencari baris baru dan Find("xyz"
>> untuk mencari record tertentu yang sudah ada.
>>
>> Untuk mencari baris baru saya gunakan code:
>> Sub BarBar()
>> Columns("
>> End Sub
>>
>> Untuk mencari record tertentu (mis "Sania"
>> Sub RekTtt()
>> Columns("
>> End Sub
>>
>> File terlampir.
>>
>> Pertanyaannya:
>> Apakah kedua code tsb mengandung kelemahan?
>>
>> Salam,
>> HK
>>
>>
>>
>>
>
>
Wed Apr 10, 2013 9:06 pm (PDT) . Posted by:
"Topenk Baday" topenk_baday
mohon batuan jika rumus if jika karakternya lebih dari 8
terima kasih atas bantuannya...
terima kasih atas bantuannya..
Wed Apr 10, 2013 9:20 pm (PDT) . Posted by:
the_x_mikey
Dalam kasus ini, bs gunakan
=vlookup(f2,$b$2:$d$13,3,false)
Taruh value yg mau dicari di kolom f2
Sent from my BlackBerry�
powered by Sinyal Kuat INDOSAT
-----Original Message-----
From: Topenk Baday <topenk_baday@yahoo.com >
Sender: belajar-excel@yahoogroups.com
Date: Wed, 10 Apr 2013 20:58:02
To: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] IF bersarang lebih dari 8
mohon batuan jika rumus if jika karakternya lebih dari 8
terima kasih atas bantuannya...
=vlookup(f2,
Taruh value yg mau dicari di kolom f2
Sent from my BlackBerry�
powered by Sinyal Kuat INDOSAT
-----Original Message-----
From: Topenk Baday <topenk_baday@
Sender: belajar-excel@
Date: Wed, 10 Apr 2013 20:58:02
To: belajar-excel@
Reply-To: belajar-excel@
Subject: [belajar-excel] IF bersarang lebih dari 8
mohon batuan jika rumus if jika karakternya lebih dari 8
terima kasih atas bantuannya..
Wed Apr 10, 2013 9:20 pm (PDT) . Posted by:
"Dian Anas" anassheva20
selamat pagi rekan-rekan master excel,
saya mau bertanya tentang penjumlahan transaksi berdasarkan kode komponen (1 s.d 8/KP1 s.d KP13). kode pertama adalah kode standar pengelolaan kode ke dua adalah komponen pembiayaan. bagaimana cara menjumlah transaksi berdasarkan kedua kode di atas sekaligus memisahkannya ke kolom kedua kode tersebut.
terima kasih. file terlampir
saya mau bertanya tentang penjumlahan transaksi berdasarkan kode komponen (1 s.d 8/KP1 s.d KP13). kode pertama adalah kode standar pengelolaan kode ke dua adalah komponen pembiayaan. bagaimana cara menjumlah transaksi berdasarkan kedua kode di atas sekaligus memisahkannya ke kolom kedua kode tersebut.
terima kasih. file terlampir
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