• 3 Kode Macro VBA Untuk Menyembunyikan Kolom

    menyembunyikan kolom Kolom adalah salah satu bagian dari lembar kerja (Worksheet) Microsoft Excel yang disusun secara melintang vertikal dan ditandai dengan huruf A,B,C, dan seterusnya hingga abjad XFD. Jumlah maksimal dari jumlah kolom (16.384 kolom) mulai di kenalkan pada Microsoft Excel versi 2007, sementara untuk versi Microsoft Excel dibawahnya anda hanya akan diberikan sebanyak 256 kolom saja atau maksimal sampai dengan abdaj IV. Hal ini sejalan dengan perbedaan jumlah baris yang di miliki antara versi Microsoft Excel 2007 dengan versi sebelumnya.

    Secara khusus Microsoft Excel memang ingin membedakan identitas antara kolom dan baris seperti yang telah saya singgung di atas, namun ternyata penulisan kolom tidak selamanya harus ditulis menggunakan abjad, ini jika kita menuliskannya sebagai baris kode Macro VBA yang disematkan pada parameter Cells. Lihat contoh berikut :
    Sel A1 : Cells(1,1)
    Sel B5 : Cells(5,2)
    Sel Z8 : Cells(8,26)
    dan seterusnya.

    Pada umumnya ketika kita menulis alamat sel selalu di awali dengan penyebutan kolom kemudian dilanjutkan dengan baris, akan tetapi ketika ingin merujuk alamat sel dengan menggunakan Kode Macro VBA maka penulisannya diawali dengan baris dilanjutkan dengan kolom. Inilah pemahaman dasar yang perlu diketahui agar mudah mengikuti tutorial kita kali ini, yakni menyembunyikan kolom dalam lembar kerja Microsoft Excel.

    Seperti biasa, kita membutuhkan sebuah skenario sederhana yang akan digunakan sebagai bahan untuk menguji kode Macro VBA yang akan kita buat, dan skenario kita kali ini adalah :
    Menyembuyikan kolom mulai dari kolom ke-2 atau kolom B sampai dengan kolom ke-26 atau kolom Z yang berisi nilai-nilai yang ada di baris 2 berdasarkan kriteria yang terdapat di sel A1

    Ok, dalam skenario di atas setidaknya ada point-point penting yang perlu diperhatikan, antara lain:
    - Sel A1 adalah sebuah sel yang digunakan sebagai kriteria untuk menyembunyikan kolom.
    - Isi sel yang akan di jadikan acuan untuk menyembunyikan kolom A sampai dengan kolom Z adalah baris ke-2.
    - Kolom-kolom yang akan disembunyikan jika terdapat nilai yang sesuai dengan kriteria adalah kolom A sampai kolom Z.
    Dan kira-kira seperti inilah data yang ada di dalam lembar kerja kita.


    Tahapan selanjutnya adalah menulis kode VBA untuk menerjemahkan skenario di atas, dan berikut langkah-langkahnya :
    1. Buka jendela Microsoft Visual Basic Editor dengan menekan tombol pintas ALT+F11 di keyboard
    2. Silahkan buat sebuah module baru dengan cara klik menu Insert > Module, kemudian silahkan tulis (copy paste) beberapa kode berikut didalamnya
      Kode Pertama
      Sub Satu()
      kriteria = [A1]
      For Kol = 2 To Range("Z2").End(xlToLeft).Column
          If Cells(2, Kol) = kriteria Then
              Cells(2, Kol).EntireColumn.Hidden = True
          End If
      Next Kol
      End Sub

      Kode ini di awali dengan menentukan lokasi alamat sel yang dijadikan sebagai kriteria, yakni sel A1. Kemudian dilanjutkan dengan menentukan indeks untuk kolom yang di mulai dari indeks 2 sampai dengan kolom Z, dan memiliki sifat dinamis. Perintah ini ada di dalam variabel Kol
      Setelah nilai untuk indeks kolom berhasil ditemukan, selanjutnya adalah menjalankan logika IF yang gunakan untuk mencari nilai yang berada di sepanjang baris 2 yang ada di setiap kolom yang tertulis di dalam nilai atau variabel Kol, apakah sesuai dengan kriteria atau nilai yang ada di sel A1 atau tidak, jika sesuai maka kolom yang isi selnya sama dengan kriteria akan di sembunyikan.

      Kode Kedua
      Sub Dua()
      Dim Isi As Range
      For Each Isi In Range("B2", Range("Z2").End(xlToLeft))
          Isi.EntireColumn.Hidden = (Isi = [A1])
      Next Isi
      End Sub
      Berbeda dengan kode sebelumnya, kode ini menggunakan parameter For Each yang mana kode di awali dengan mendeklarasikan sebuah nilai Isi sebagai nilai range. Selanjutnya baru baris kode inti akan di jalankan yakni dengan membaca bahwa setiap sel yang berada di rentang B2 hingga Z2 apakah memiliki isi yang sama dengan kriteria yang ada di sel A1 apakah tidak. Tentunya jika sama dengan kriteria maka tentu anda tahu apa yang akan terjadi bukan...

      Kode Ketiga
      Dim rng As Range
      For Each rng In Range("B2:Z2")
          If rng = [A1] Then
              rng.EntireColumn.Hidden = Not (rng.EntireColumn.Hidden)
          End If
      Next
      kode ini memiliki struktur yang hampir memiliki kesamaan dengan kode kedua, hanya saja untuk eksekusi nilai menggunakan logika IF, juga terdapat sebuah nilai NOT yang mana ia memiliki fungsi ganda yaitu menampilkan kolom dan juga menyembunyikannya tanpa harus menggunakan kode lainnya.

      Bonus Kode - Clear
      Sub Bersih()
          Range("B:Z").EntireColumn.Hidden = False
      End Sub
      Sebenarnya kode ini adalah kode pelengkap saja, karena fungsi utamanya adalah untuk menampilkan kembali kolom-kolom yang sebelumnya disembunyikan. Tapi jika anda menggunakan Kode Ketiga, maka anda tidak memerlukan kode ini untuk menampilkannya
    3. Hingga langkah ini sebenarnya anda sudah bisa mencobanya dengan cara menekan tombol F5 atau klik ikon yang ada di menubar. Tapi jika anda tidak ingin menjalankannya lewat jendela Visual Basic Editor dan ingin melihat perubahan secara langsung di lembar kerja, maka anda bisa menambahkan beberapa objek Form Controls yang diletakkan dalam lembar kerja seperti contoh berikut :
      Controls excel live

    Untuk menyempurnakan tutorial kali ini, saya akan memberikan contoh hasil akhir seperti tampilan berikut :
    hide column excel live

    Sekarang anda sudah tahu bagaimana caranya menyembunyikan kolom dalam lembar kerja Microsoft Excel yang sesuai dengan kriteria, semoga tutorial excel ini ada guna dan manfaatnya.
    Jangan lupa silahkan anda subscribe agar anda tidak ketinggalan materi-materi terbaru Microsoft Excel lainnya bersama excel live. Gracias

    Artikel Terkait

  • Still haven't found what are you looking for

    We have provided a complete list of articles on this site to make it easier for you and giving the best solution for your excel issues

    VISIT LINK
    loading...
    DMCA.com Protection Status

    excelive.com
    is a blogger resources site who provides best excel tutorial based on daily needs. The main mission of excelive is to share our little experience in excel to deliver best time killer for your excel issues.
    T.O.S
    Term of service

    Read More
    Download Area
    to complete all excel lessons, we have provided a download link for you Find Here
    Copyright © 2015 - excelive.com. Some rights reserved.
    equipped with by blogger