Cara menggunakan Scroll Bar

Scroll Bar merupakan salah satu kontrol VBA, coba perhatikan sebelah kanan pada bagian layar monitor anda (Saat anda membaca artikel ini ) , anda akan melihat balok yang berdiri tegak sedangkan dibagian masing masing ujungnya terdapat anak panah, balok yang berdiri bisa anda geser kebawah dan keatas atau anda bisa mengklik kedua ujung yang mirip dengan ujung panah, saat anda menggeser posisi balok tersebut atau mengklik salah satu ujung Scroll Bar maka secara otomatis monitor akan menampilkan halaman yang sesuai dengan posisi balok tersebut. Kira kira begitulah gambaran tentang Scroll Bar yang akan kita bahas kali ini

Scroll Bar berbentuk panah yang mempunyai mata dikedua sisi, diantara mata panah ada balok sebagai status bar yang menunjukan besaran nilai ( ditunjukan dengan persentase ), jika anda ingin merubah nilai pada status bar cukup klik salah satu mata panah yang ada dikedua sisi, misalnya untuk mengurangi nilai pada status bar klik mata panah sebelah kiri dan klik mata panah sebelah kanan untuk menambah nilai pada status bar, selain itu anda bisa menggeser status bar secara manual. Dan yang terpenting yang perlu diketahui bahwa Scroll Bar mempunyai nilai minumum dan nilai maximal

Menggunakan Scroll Bar untuk menampilkan data pada sel atau kedalam textbox

Ketika saya mempunyai tabel data yang berjumlah ratusan saya ingin menampilkan data tersebut satu persatu atau baris perbaris, Scroll Bar mampu menampilkan data tersebut sebagaimana fungsi look up, bedanya Scroll Bar menampilkan data berdasarkan nomor record. Saya mempunyai tabel data pada sheet1 sebagaimana gambar dibawah ini



Saya ingin menampilkan data kedalam sheet2 dengan format tabel yang berbeda menggunakan Scroll Bar, perhatikan gambar dibawah ini



Kode macro yang saya gunakan adalah sebagai berikut
* Untuk menentukan nilai minumum dan maximal Scroll Bar

Private Sub Worksheet_Activate()
jmlhRecord = Sheet1.Cells(Sheet1.Rows.Count, "A"). _
End(xlUp).Offset(0, 0).Row - 1
ScrollBar1.Min = 1
ScrollBar1.Max = jmlhRecord
ScrollBar1.Value = ScrollBar1.Max
End Sub

* Untuk menampilkan record dengan Scroll Bar

Private Sub ScrollBar1_Change()
No = ScrollBar1.Value + 1
With Sheet1
Sheet2.Range("C2").Value = .Cells(No, 1).Value
Sheet2.Range("C3").Value = .Cells(No, 2).Value
Sheet2.Range("C4").Value = .Cells(No, 3).Value
Sheet2.Range("C5").Value = .Cells(No, 4).Value
Sheet2.Range("C6").Value = .Cells(No, 5).Value
End With
End Sub

atau bisa juga diganti seperti ini, kode macro Sheet2.Range("C2").Value = .Cells(No, 1).Value menjadi Sheet2.Range("C2").Value = ScrollBar1.Value

Private Sub ScrollBar1_Change()
No = ScrollBar1.Value + 1
With Sheet1
Sheet2.Range("C2").Value = ScrollBar1.Value
Sheet2.Range("C3").Value = .Cells(No, 2).Value
Sheet2.Range("C4").Value = .Cells(No, 3).Value
Sheet2.Range("C5").Value = .Cells(No, 4).Value
Sheet2.Range("C6").Value = .Cells(No, 5).Value
End With
End Sub

Pembahasan tentang Scroll Bar akan saya teruskan pada artikel selanjutnya. Demikianlah cara menggunakan Scroll Bar. Semoga artikel kali ini bermanfaat

Download - Cara menggunakan Scroll Bar

Baca juga artikel yang berkatiatan dengan artikel ini
ExcelPro Membuat loading di userform
ExcelPro Text berjalan pada userform Excel
ExcelPro Membuat loading dengan macro
ExcelPro Mengatasi Error in loading dll

Follow IG Wasis Zain atau Like fanpage Excel Pro

Download - 423 Sampel Excel VBA dijmain mahir VBA

 Order Aplikasi Murah dengan design premium Info Disini