Berikut adalah cara Anda menuliskan script : (as it is)
Private Sub CommandButton1_Click()
Dim Nilaibawah As Long
Dim NilaiaAtas As Long
Nilaibawah = CLng(TextBox1.Text)
nilaiatas = CLng(TextBox2.Text)
sheetx.ListObject("table1").Range.AutoFilter
field:=6,criteria:= ">="&nilaibawah,operator:=xland, criteria:=
"<"&nilaibawah
End Sub
Yang perlu diperbaiki :
1. Tulis nama variabel dengan baik. Gunakan dengan konsisten.
>> Contoh :
pada deklarasi : *Dim NilaiaAtas As Long*
pada pemakaian : *nilaiatas = CLng(TextBox2.Text)*
2. Kenali object yang digunakan, termasuk cara penulisan dan pemakaiannya.
>> Contoh :
sheetx : adalah object bernama sheetx yang terdaftar di VBAProject (frame
kiri atas layar VBE), jadi ganti dengan yang ada.
ListObject( : seharusnya *listobjects*
table1 : adalah nama object tabel yang terdaftar di formula name manager
(named range). Pastikan ada nama *table1 *disana.
Jadi cari nama object di daftar nama object yang terkait. Misal
nama sebuah pivot table dicari di daftar object pivot table pada menu pivot
table.
3. Kenali parameter-parameter sebuah methods atau property, dan perhatikan
lebih detil disertai disiplin penulisan yang baik.
>> Contoh :
criteria:= parameter yang ada ditooltip yang muncul ketika menuliskan
parameter autofilter adalah criteria1:= atau criteria2:= tergantung
parameter yang sedang aktif di edit.
4. Sebuah perintah program selalu diproses per kalimat.
>> Pembatas kalimat adalah 2 karakter titik dua ( :: ).
Nilaibawah = CLng(TextBox1.Text)*::* NilaiaAtas = CLng(TextBox2.Text)
>> kalimat bersambung membutuhkan karakter *underscore mandiri* ( _ ) untuk
memenggal kalimat
sheet*1*.ListObject*s*("table*2*").Range.AutoFilter * _*
field:=6,criteria*1*:= ">="&nilaibawah,operator:=xland, criteria*2*:=
"<"&*NilaiaAtas*
Coba pelajari dasar-dasar penulisan script dan beberapa dasar pemrograman
yang dapat diperoleh pada folder files milis.
Regards.
Kid.
2011/10/16 Harumi Wanasita <[email protected]>
> **
>
>
> :)... sy salah mengerti.. ini lampirannya.. apakah bs dibuka? coz sy save
> dngn cr biasa dgn type macro enabled. tul kah? sy krm by email bkn dr email
> grup. coz ga bs ngelampirinnya.
> trims before...
>
> =========================================
> Mod Note:
> Mengikuti Milis BeExcel
> - melalui web Yahoo Groups:
> tidak bisa kirim / terima Attachments
> - melalui Email :
> bisa Kirim & Terima Attachments
> - Melalui Web Nabble.com :
> bisa Kirim & Terima Attachments
> (ctv)
> =========================================
>
> ________________________________
> Dari: hwanasita <[email protected]>
> Kepada: [email protected]
> Dikirim: Minggu, 16 Oktober 2011 9:20
> Judul: [belajar-excel] Re: code macro command button filter
>
>
> maaf mr kid di email sy tdk mucul lampirannya. bs dikirim lg?
> trm ksh,
>
> ================================================================
> Mod Note:
> Memang tidak ada lampirannya, karena anda sendiri juga
> tidak pernah melampirkan contoh data yg ditanyakan dlm workbook
> -ctv-
> ================================================================
>
>
>
