Tips & Trik

Memfilter Data Berdasar Tanggal dengan VBA Excel

Ada masanya kita ingin memfilter data di Excel dengan kriteria berdasarkan tanggal dimulai dan tanggal berakhir.
Tujuannya agar hasil filter tersebut bisa di cetak sesuai dengan tanggal yang sudah kita tentukan tersebut.
Untuk memfasillitasi kebutuhan ini, maka yang perlu dilakukan adalah:

  1. Membuat sebuah tabel yang akan di filter data tanggalnya
  2. Membuat range dinamis agar bisa diinput dalam ComboBox Userform
  3. Membuat Userform, 2 Combobox, 1 Command Button agar pencarian tanggal dilakukan dengan mudah

Setelah disiapkan kebutuhan di atas, maka hal selanjutnya adalah membuat kode seperti di bawah ini:

'Option Explicit

Private Sub CommandButton1_Click()
Dim wsDtbsPjln As Worksheet
Set wsDtbsPjln = Sheets("Sheet3")
Set rngTanggal = wsDtbsPjln.Range("Tabel1")

Worksheets("Sheet3").ListObjects("Table13").Range.AutoFilter _
Field:=1, Criteria1:=">=" & UserForm1.ComboBox1.Value _
, Operator:=xlAnd, Criteria2:="<=" & UserForm1.ComboBox2.Value

wsDtbsPjln.PrintOut Copies:=1, Collate:=True
ActiveSheet.Range("Tabel1").AutoFilter Field:=1
End Sub

Private Sub UserForm_Initialize()
Dim wsDtbsPjln As Worksheet
Dim rngTanggal As Range
Set wsDtbsPjln = Sheets("Sheet3")
Set rngTanggal = wsDtbsPjln.Range("Tabel1")

Sheets("Sheet3").Activate
For Each rngTanggal In wsDtbsPjln.Range("Tabel1")
 With Me.ComboBox1
 .AddItem rngTanggal.Value
 End With
Next rngTanggal

For Each rngTanggal In wsDtbsPjln.Range("Tabel1")
 With Me.ComboBox2
 .AddItem rngTanggal.Value
 End With
Next rngTanggal
End Sub

Setelah dimasukkan kodenya, maka hasilnya akan tampak seperti gambar berikut ini:

Image 8

Agar lebih mudah memahami, silakan coba Filenya di : Download

Tip Mempercepat Kerja Macro Excel

Ada beberapa tip untuk mempercepat kinerja macro excel yang saya dapat dari web ini. Tulisannya saya modifikasi sedikit dengan data kurang lebih sama.

Tip ke-1: >> Application.ScreenUpdating = False perintah ini membuat proses macro Excel berjalan tanpa memperlihatkan perubahan yang terjadi pada layar Excel. Selama proses macro berjalan, tampilan window Excel tidak akan berubah sampai nanti proses macro ini selesai.

Sebagai contoh, bandingkan 2 kode macro ini dari segi kecepatan.
‘tanpa Application.ScreenUpdating
Sub Macro1()
  For i = 1 to 20000 step 1
     Cells(i,2) = i
  Next i
End Sub
‘dengan Application.ScreenUpdating
Sub Macro2()
Application.ScreenUpdating = False
  For i = 1 to 20000 step 1
     Cells(i,2) = i
  Next i
End Sub
Contoh file yang menggunakan  Application.ScreenUpdating = False  dapat didownload pada file berikut ini: Download di Sini
File di atas adalah file yang berfungsi merekap semua yang terdapat dalam berbagai sheet dan dimasukkan hanya pada 1 sheet saja.  Data Sheet1+Sheet2+Sheet3 —>> Sheetkombinasi

Tip ke-2: >>  Hindari perintah Select,  Sewaktu mengolah Cells di Excel, sebaiknya hindari perintah Select, yang mana dengan perintah ini maka komputer akan mengalokasikan sebagian memory untuk memindahkan kursor kelokasi cell yang di “select”, dan ini berarti butuh sejumlah memory untuk merubah tampilan layar aplikasi Excel, Misalkan:

Cells(3,4).Select
Selection.Interior.ColorIndex = 30
Bisa dibuat menjadi
Cells(3,4).Interior.ColorIndex = 30
Bandingkan 2 contoh kode berikut ini:
‘dengan perintah select
Sub Macro1()
  For i = 1 to 20000 step 1
     Cells(i,2).select
     Selection.Value = i
  Next i
End Sub
 ‘tanpa perintah select
Sub Macro1()
  For i = 1 to 20000 step 1
     Cells(i,2).Value = i
  Next i
End Sub

Tip ke-3: >>  Gunakan Matriks / Array

Untuk pengolahan data dalam jumlah besar, gunakan Array atau Matriks. Jadi data yang ada dalam file Excel dicopy terlebih dahulu menjadi sebuah database Array,

Berfikir + “Bertindak” dan Berjiwa Besar #2

Percaya Kita dapat Berhasil, maka Kita pun Akan BerhasilKeberhasilan memiliki banyak arti sebagai sesuatu hal yang mengagumkan dan positif. Kesejahteraan pribadi berupa rumah yang bagus, liburan pada waktunya, mengadakan perjalanan baru, jaminan keuangan, dan kenikmatan dalam berbagi dengan orang lain. Kebebasan dari kehawatiran, rasa takut, frustasi, rasa bersalah, kegagalan dan lain sebagainya. + ”Kenikmatan dalam beribadah sesuai agama kita termasuk dalam suatu keberhasilan yang perlu diperjuangkan” Keberhasilan merupakan rasa hormat pada diri sendiri, terus mendapatkan apa yang kita inginkan dalam hidup ini, mampu melakukan hal yang banyak. Membuat orang banyak bergantung pada diri kita, berkasih sayang dan saling menghargai adalah sedikit contoh keberhasilan disamping keberhasilan-keberhasilan lainnya. Keberhasilan Bukan Angan-Angan, Tetapi Kepercayaan. Tidak ada yang gaib dan rahasia mengenai kekuatan kepercayaan. Karena kepercayaan bisa bekerja ”membangkitkan kekuatan, keterampilan, dan energi yang diperlukan untuk berhasil. Makanya ”Bila saya berfikir Bisa melakukan Sesuatu, maka (lebih…)

Berfikir + “Bertindak” dan Berjiwa Besar #1

Tentang Buku

Bagaimana seseorang meraih keberhasilan dengan memiliki dan melaksanakan cara berfikir + “Bertindak” dan berjiwa besar. Akibat dari sikap dan cara berfikir ini adalah menimbulkan mukjizat pribadi yang pada akhirnya akan membuktikan besarnya rekening bank, besarnya tingkat kepuasan hidup, dan besarnya kebahagiaan pribadi yang  ditimbulkan oleh efek dari tindakan ini. Bila dengan berfikir dan bertindak besar, mengapa jarang orang melakukan seperti itu? Jawabannya adalah sebagai berikut:
1. Secara sadar atau tidak, ”kita adalah produk fikiran” yang dipengaruhi oleh cara berfikir sekitar kita, baik itu tindakan, cara menghadapi sesuatu, dan penilaian tentang sesuatu mengenai diri kita sendiri pun merupakan produk dari ”fikiran” tersebut. Namun kebanyakan dari cara berfikir di lingkungan kita itu selalu menarik kita kepada kondisi ”sedang-sedang saja”. Lingkungan berfikir yang kecil inilah yang selalu Mendoktrin kita dengan kata-kata dahsyat mereka : – Apapun yang akan terjadi, terjadilah, – Nasib menguasai diri kita sepenuhnya, Maka: – Lupakan semua mimpi-mimpi itu, Lupakan Rumah yang indah, – Pendidikan yang memadai, – Lupakan kehidupan yang lebih baik, – Mundur dan berbaringlah menantikan apa yang datang dengan sendirinya kepada kita. (lebih…)

15 Ciri Lelaki Berbakat Kaya

Tidak sulit mencari lelaki kaya. Tapi tidak mudah menemukan lelaki yang pantas Anda cintai sekaligus membuat Anda tidak akan jadi “kaum duafa”. Sebelum memutuskan menikah dengannya, lihat dulu apakah dia punya 10 dari 15 ciri ini.

1. BEBERAPA REKENING
Lihat apakah kekasih Anda punya rekning bank lebih dari satu. Ini bisa jadi indikasi dia berbakat kaya. Karena, biasanya orang yang punya rekening tabungan dua atau lebih cenderung berusaha mengatur uangnya dengan benar. Lelaki tipe ini memisahkan pos-pos pnghasilannya. Misal, satu rekening digunakan hanya untuk menerima transfer gaji dan belanja, rekening lainnya untuk tabungan.

2. SUKA MENOLONG
Tidak tepat jika orang yang suka menimbun harta, pelit, serta enggan berbagi dan memberi adalah orang yang berbakat kaya. Justru lelaki yang mudah tergerak hatinya dan gampang menolong oranglah yang pantas Anda lirik. Dia adalah tipe orang yang akan relatif mudah hidupnya. Entah bagaimana caranya, Anda berdua akan sangat jarang kesulitan uang. Dan yang terpenting, kenikmatan memberi itu memang tak ada penggantinya.

3. PUNYA CITA-CITA
Jangan harap Si Dia berbakat kaya jika hidupnya dialirkan bagai sungai, entah hendak bermuara di mana. Lelaki yang berbakat kaya selalu punya rencana besar dalam hidupnya. Ada sesuatu di masa depan yang hendak diraihnya. Untuk itu, dia akan punya rencana jangka pendek dan menengah untuk mencapai cita-citanya. Dalam bercita-cita, dia tidak takkut ada mmpi yang tampaknya mustahil. (lebih…)

Tips & Triks Menjadi Mahasiswa

Hore……Hore….Hore…….Da jadi mahasiswa nih…. 🙂 🙂 😛

Habis perjuangan SPMB yang begitu melelahkan dan penuh dengan keringat panas dan keringat dingin, sekarang tiba saatnya untuk memulai langkah lagi, Yups….. menjadi mahasiswa. Nah ini ada beberapa tip untuk menjadi mahasiswa dan tentunya ini Spesial lagi. Spesial bagi orang yang sederhana, Spesial bagi yang orang tuanya yang tidak begitu Wah,… Spesial bagi orang-orang yang Emput- emputan (bahsa apa ya…ada gak dalam kamus Bahasa manusia….wkwkwkwkw) g penting. Pokoknyo buat orang sedeng-sedeng bae (baso pelembang dikit), ado duit untuk kul bae…. tapi dak katek buat yang laen hehehehe 🙂

Nah ini dio tipnyo: (lebih…)