Membuat Gabungan Scrollbar Vertikal dan Horizontal VBA Macro Excel

Artikel ini adalah kelanjutan dari Membuat Scrollbar VBA Macro Excel Untuk Menampilkan Data lainnya namun yang sebelumnya Scrollbar mengarah secara vertikal. Yang akan dibahas kali ini adalah Scroball Vertikal dan Horizontal.  Sepertihalnya ScrollBar Vertikal, ScrollBar Horizontol memiliki fungsi yang sama yaitu menambahkan atau mengurangi nilai atau menaikan dan menurunkan angka. Namun saya ingatkan kembali untuk memahami terlebih dahulu cara penggunaan Fungsi Logika, Fungsi Referensi, Fungsi Sel Absolut ($) dan Fungsi Informasi.

Sebelum membuat Scrollbar Horizontal VBA Macro Excel buatlah Tabel data sheet 1 sebagai sumber yang akan ditampilkan pada sheet 3 atau kalau males membuat contoh datanya dapat menggunakan file yang sudah ada ScrollBar Vertikalnya dibawah ini,

Pertama, Buatlah Scroll Bar dengan cara klik menus Insert pada Developer Tabs pada Group Controls

Kedua, Posisikan Scrollbar secara Horizontal dan simpan dibawah tabel pada sheet3 seperti tampak dibawah ini,

Ketiga, Ketikan angka 0 pada Sel A11 dan beberapa sel dengan rincian dibawah ini,

• Sel A11=0
• Sel B11 =IF(A11=0;1;(1+B11))
• Sel C11 =IF(B11>0;B11+1;"")
• Untuk Sel Sel D11, E11, F11, G11 dan H11 cukup Auto Fill kan formula pada Sel C11.

Sehingga Tabel Tampak Seperti dibawah ini,

Dari formula yang diketikan pada Sel B11 hingga H11 akan menghasilkan angka penomoran yang berurut dari angka 1 hingga 7.

Keempat, Ketikan formula pada Sel B3 hingga H3 yang merupakan judul kolom yaitu TICKET NUMBER dan lain-lain. Kenapa Judul kolom diisikan formula, itu disebabkan Judul kolom pun tidak luput dari perubahan tampilan data ketika ScrollBar digeser ke kanan atau ke kiri.

Adapun aturan penulisan formulanya adalah

B11 =IF(B$11>A$2+B$11;HLOOKUP(B$11;Sheet1!$A$1:$K$14;3;FALSE);VLOOKUP($A3;Sheet1!$A$1:$K$14;2+A$11;FALSE))

Formula tersebut dapat di Auto Fill kan Sel-sel lainnya yaitu dari Sel B12 hingga H10. Sehingga Tabel akan tampak seperti ini,

Kelima, Koneksikan Scrollbar Horizontall dengan Sel A11 pada Sheet3 dengan cara klik menu Developer Tab>Design Mode dan sorot ke Scrollbar yang dibuat tadi lalu klik Developer Tab>Properties.

Keenam, Perindah Tampilan

Ketujuh, Uji Coba mengeser ScrollBar Horizontal dan Vertikalnya.

Pada saat sumber tabel sudah mencapai data paling terakhir tampilan tabel yang menggunakn scrollbar akan menampilkan nilai sel yang error dengan pesan Errornya adalah #REF! dan #N/A

Untuk mengatasi hal pesan #N/A maka gunakanlah Fungsi Informasi ISNA maka formula pada Sel B11 hingga H10 menjadi.

B11= =IF(ISNA(IF(B$11>A$2+B$11;HLOOKUP(B$11;Sheet1!$A$1:$K$14;3;FALSE);VLOOKUP($A3;Sheet1!$A$1:$K$14;2+A$11;FALSE)));"";IF(B$11>A$2+B$11;HLOOKUP(B$11;Sheet1!$A$1:$K$14;3;FALSE);VLOOKUP($A3;Sheet1!$A$1:$K$14;2+A$11;FALSE)))

Sedangkan untuk mengatasi pesan #REF!, kita dapat memperluas jangkaun sel pada sheet 1 sebagai Tabel Referensi  untuk mengisi argument pada VLOOKUP dan HLOOKUP yaitu

Sheet1!$A$1:$K$14

Menjadi

Sheet1!$A$1:$Z$14

Atau dapat seluruh sel pada Worksheet 1.

Demikianlah cara membuat ScrollBar Gabungan Vertikal dan Horizontal yang dapat menampilkan seluruh data dari Tabel Referensi.

Semoga Bermanfaat

Excel

Share This :