Kami akan berbagi panduan langkah demi langkah menempatkan sebuah tombol form pada suatu contoh worksheet, tombol tersebut disertakan contoh kode macro yang akan memberikan perintah pada saat di-klik untuk mengganti-ganti tampilan kolom atau baris yang semula tampil menjadi disembunyikan dan sebaliknya, tergantung data apa yang ingin Anda amati.

Di setiap klik pada tombol, maka perputaran tampilan dapat dilihat untuk melihat rincian tabel secara keseluruhan, Anda dapat mengamati jumlah total menurut bulan-bulannya saja, atau mengamati jumlah total tiap-tiap produknya saja.

Gambar di atas adalah hasil akhirnya. Ikuti langkah-langkah sebagai berikut:

Langkah Pertama: Membuat Data Tabel

1. Buat sebuah workbook baru.

2. Berikan judul tabelnya pada sel B3.

3. Buat kolom yang memuat nama-nama bulan dari Januari sampai Desember di kolom B mulai dari sel B5 sebagai judulnya. Anda bisa melakukan teknik fill handle seperti yang dicontohkan pada Gambar1 dengan cara mengetik terlebih dahulu Januari di sel B6 lalu seret tombol di sudut kanan bawah pointer sel hingga ke sel B17.

4. Berikan judul pada sel C4, dan berikan nama-nama produknya pada barisan sel C5:G5.

5. Berikan judul "Total" pada sel H5 dan B18.

6. Buat bilangan acak dengan cara blok/sorot sel C6:G17 lalu ketik rumus: =INT(RAND()*100 lalu tekan tombol Ctrl+Enter pada keyboard.

7. Klik kanan sel yang masih tersorot lalu pilih Copy, klik kanan lagi sekali lagi pada sel yang masih tersorot lalu klik ikon Values di bawah Paste Options:

8. Sorot sel C6:H18 kemudian tekan Alt+= untuk menghasilkan rumus SUM.


Langkah Kedua: Mengatur Format Sel

1. Atur format bilangan barisan sel C6:H18 menjadi mata uang rupiah dengan cara membuka kotak dialog Format Cells dengan memilih Category: Accounting dan Symbol: Rp.

2. Buat rata tengah barisan sel B5:H5 dan sel B18.

3. Buat rata tengah sepanjang sel mendatar tersorot (Center Across Selection) pada sel B3 dan C4 seperti yang ditunjukkan pada Gambar2.


Langkah Ketiga: Membuat Garis Batas (Border) pada Tabel

1. Sorot barisan sel B4:H18 lalu pilih All Borders pada menu ribbon Home > grup Font.

2. Buat penyesuaian border untuk sel B4 dan H4 seperti pada Gambar3.

3. Persempit kolom A dan perlebar baris 1 dan 2.


Langkah Keempat: Menyusun Kode Macro

1. Tekan Alt+F11 untuk membuka VBE.

2. Buat module melalui menu Insert > Module.

3. Pada module ketik kode berikut dan setelahnya tekan Enter:

Sub PutarTampilan()

4. Tepat di bawahnya, matikan ScreenUpdating:

Application.ScreenUpdating = False

5. Buka dengan susunan With dengan menggunakan Application.Caller untuk mengenali tombol Form setelah di-klik:

With ActiveSheet.Buttons(Application.Caller)

6. Ganti-ganti tampilan menurut caption tombol untuk menentukan tampilan mana yang akan diputar:

If .Caption = "BUKA SEMUA" Then
With Range("B5:H18")
.EntireColumn.Hidden = False
.EntireRow.Hidden = False
End With
.Caption = "BULANNYA SAJA"
ElseIf .Caption = "BULANNYA SAJA" Then
Range("C:G").EntireColumn.Hidden = True
.Caption = "PRODUK SAJA"
ElseIf .Caption = "PRODUK SAJA" Then
Range("C:G").EntireColumn.Hidden = False
Rows("6:17").Hidden = True
.Caption = "BUKA SEMUA"
End If

7. Akhiri susunan With:

End With

8. Hidupkan kembali ScreenUpdating:

Application.ScreenUpdating = True

9. Kode macro secara keseluruhan menjadi:

Sub PutarTampilan()
Application.ScreenUpdating = False
With ActiveSheet.Buttons(Application.Caller)
If .Caption = "BUKA SEMUA" Then
With Range("B5:H18")
.EntireColumn.Hidden = False
.EntireRow.Hidden = False
End With
.Caption = "BULANNYA SAJA"
ElseIf .Caption = "BULANNYA SAJA" Then
Range("C:G").EntireColumn.Hidden = True
.Caption = "PRODUK SAJA"
ElseIf .Caption = "PRODUK SAJA" Then
Range("C:G").EntireColumn.Hidden = False
Rows("6:17").Hidden = True
.Caption = "BUKA SEMUA"
End If
End With
Application.ScreenUpdating = True
End Sub

10. Tekan Alt+Q untuk kembali ke worksheet.


Langkah Kelima: Membuat Tombol Form

1. Buat sebuah tombol form di kolom B diantara baris 1 dan 2 seperti yang ditunjukkan pada Gambar4. Tombol Form dibuat melalui menu ribbon Developer > Controls > Insert > Form Controls > Button (Form Control).

2. Saat tombol mouse dilepaskan, akan tampil kotak dialog Assign Macro, pilih PutarTampilan lalu klik OK.

3. Ganti tulisan caption dalam tombol menjadi BUKA SEMUA.

4. Klik di sel mana saja lalu silakan klik tombol yang sudah Anda buat.

5. Untuk menghilangkan gridline, maka Anda bisa hilangkan tanda centang pada Gridlines di menu ribbon View > grup Show.

Demikian pembahasan tentang  cara membuat tombol Form untuk mengganti-ganti tampilan tabel data Excel dengan Macro VBA.

Selamat mencoba dan semoga postingan ini bermanfaat.