Sabtu, 03 Maret 2012

Membuat Laporan Excel Menggunakan Filter

  • butuh informasi yang terjadi pada tanggal 10 desember saja atau tanggal 11 desember saja begitu seterusnya
  • informasi tersebut dibuat di sheet yang baru
kita siapkan dulu tabelnya … sheetnya saya kasi judul Data … sheet ini adalam lampiran dari email tersebut yang datanya sudah saya modip agar yang punya ndak keberatan … isinya 5 kolom dan 593 baris data … kayak penampakan berikot
AvanceFilter3
sebenarnya problema tersebOt bisa jugak dicari solusinya dengan modip SearchEngine.xls … tapi saya pengEn sesuWatu yang baru … akhErnya saya pilih pakE Advance Filter … lha trus dimana kita bisa ketemu Advance Filter ini
pada Excel 2003 kita bisa jumpai di Data >> Filter >>Advance Filter … Excel 2007 ada padaTab Data Group Filter … kalO Excel 2010 maap saya ndak punya :smile: … berikOt gambar skrinsyutnya
AvanceFilter1
sedikit penjelasan dari saya yang pastinya ndak bakan bikin jelas :? …
Action
  • Filter the list, in-place … penampakan hasil filternya akan tetap pada tabel sumber datanya … yah mirip2 Auto filterlah
  • Copy to another location … penampakan hasil filternya akan berada pada range yang telah kita tentukan (lihat penjelasan Copy to)
List range … ini range yang berisi tabel yang akan difilter $A$1:$E$594
Criteria range … range ini berisi kriteria yang akan kita gunakan sebagai dasar filter
dalam gambar skrinsyut saya akan mencoba memfilter dengan dua kriteria yaitu NAMA yang mengandung hurup S dan TANGGAL = 01/11/20011 … kriteria kita taruh di rangeData!$H$1:$I$2 … isi dari range tersebOt adalah sbb :
  • Cell H1      NAMA
  • Cell I1       TANGGAL
  • Cell H2     S
  • Cell I2      01/11/2011
Copy to … range yang akan menjadi tempat kita menaruh hasil filternya dalam contohData!$K$1:$O$1 … range tersebut terdiri atas 5 kolom sama seperti jumlah kolom List range
ketika kita eksekusi dengan klik OK maka hasilnya akan nampak pada range yang sudah kita tentukan … masalahnya waktu kita pengEn menaruh hasilnya di sheet laEn … dan ternyata saat berusaha melakukannya Excel melakukan perlawanan … muncul MessageBox seperti ini
AvanceFilter2
waduuh gimana kalO begini :?: :? … tenang ada kok solusinya … :idea: :idea: macro :idea: :idea:
pertama kita buwat sheetnya dulu dalam pada hal ini saya pakE sheet yang berjudul Laporan … penampakan sheet tersebOt sebagE berikOt
AvanceFilter4
kriteria yang akan kita gunakan menempati range B3:F4 dan hasilnya kita taruh di B9:F9 … untuk menjalankan macro menggunakan CommandButton FILTER seperti pada gambar yang dihubungkan dengan kode berikOt
Sub AdvFilter()
' ini kode untuk Advance Filternya
ThisWorkbook.Sheets("Data").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=ThisWorkbook.Sheets("Laporan").Range("B3:F4"), _
CopyToRange:=Range("B9:F9"), Unique:=False
' ini kode untuk mencari jumlah data cocok
JmlDataCocok = Application.WorksheetFunction.Count(ThisWorkbook.Sheets("Laporan").Range("B10:B65536"))
' ini kode untuk menuliskan jumlah data cocok ke range B7
ThisWorkbook.Sheets("Laporan").Range("B7").Value = JmlDataCocok & " data cocok dengan kriteria"
End Sub
kode tersebOt meskipun singkat ndak usah diapalin kodenya … sudah ada kok di contoh fileAdvanceFilter.xls silahkan download kayak biYasanyah … sedangkan untuk cara bikinCommandButton ada disini

0 komentar:

Posting Komentar