Menyembunyikan dan Menampilkan Kolom Otomatis

Dalam dunia pengelolaan data di Excel, seringkali kita perlu berfokus pada sebagian kecil dari dataset yang besar. Dalam tutorial ini, kita akan mengembangkan keterampilan VBA dengan membuat kode yang memungkinkan kita menyembunyikan dan menampilkan kolom secara otomatis berdasarkan kriteria tertentu.

Langkah 1: Buka Editor VBA

  1. Aktifkan Tab Pengembang:

    • Pergi ke tab "File" -> "Opsi."
    • Pilih "Pengaturan Excel" dan aktifkan "Pengembang."
    • Klik "OK."
  2. Buka Editor VBA:

    • Pergi ke tab "Pengembang" dan pilih "Visual Basic" atau tekan Alt + F11.

Langkah 2: Buat Kode Menyembunyikan dan Menampilkan Kolom

  1. Buat Modul Baru:

    • Di Editor VBA, klik kanan pada "VBAProject (Nama File Anda)" dan pilih "Insert" -> "Module."
  2. Tulis Kode Menyembunyikan dan Menampilkan Kolom:

    • Ketik kode sebagai contoh:

      Sub SembunyikanKolom(awal As Integer, akhir As Integer)
      Columns(awal & ":" & akhir).EntireColumn.Hidden = True
      End Sub

      Sub TampilkanKolom(awal As Integer, akhir As Integer)
      Columns(awal & ":" & akhir).EntireColumn.Hidden = False
      End Sub


Langkah 3: Tambahkan Tombol di Excel

  1. Kembali ke Lembar Kerja Excel.
  2. Pergi ke Tab Pengembang -> Sisipkan -> Tombol.
  3. Gambar Tombol di Lembar Kerja dan Tautkan ke Kode Sembunyikan dan Tampilkan Kolom.

Langkah 4: Uji Coba Kode

  1. Klik Tombol yang Telah Dibuat.
    • Tombol tersebut akan menyembunyikan atau menampilkan kolom berdasarkan parameter yang Anda tentukan dalam kode.

Langkah 5: Menyesuaikan Kode

  1. Tambahkan Logika Tambahan:

    • Sesuaikan kode untuk menyembunyikan atau menampilkan kolom berdasarkan kondisi tertentu.
  2. Terapkan Filter Dinamis:

    • Gabungkan dengan filter dinamis untuk pengalaman analisis data yang lebih kaya.

 

Dengan langkah-langkah ini, Anda telah meningkatkan keterampilan VBA Anda dengan membuat kode yang menyembunyikan dan menampilkan kolom otomatis. Anda dapat memanfaatkan konsep ini untuk membangun solusi yang lebih kompleks sesuai kebutuhan analisis data Anda. Teruslah eksplorasi dan temukan cara-cara baru untuk meningkatkan efisiensi kerja Anda di Excel. Selamat mencoba!

Hubungi Kami

Kantor berkreasi.net
Alamat :
Pens Sky Venture - Sukolilo Surabaya
Karangrejo Tmur 17 Surabaya

Email : kantor.berkreasi@gmail.com
Form Kontak  : Klik Disini
WA : wa.me/6287761589881  
(Support  Mbak Ana)

Tim Pengembang

Dr. Rojabi Azharghany, M.Si
Dr. Nugroho Eko Putro, M.Pd.
Ali Ishaq, M.Pd.
Iqbal F. Rakhmat, SE., MM., M.Kom, CPISM, MCE
Budi Prasetya, ST., MM.
Amien sawedi, S.Pd.
Muhammad Risal Maros, M.Pd.
Didik P Wicaksono, M.Pd.
Wayan Mulyana, M.Pd.