Membuat Scroll Bar ActiveX Excel VBA

Belajaroffice.com – Pembahasan ActiveX Controls sebelumnya admin sudah menjelaskan cara membuat Spin Button ActiveX, selanjutnya admin akan membahas cara menggunakan Scroll Bar ActiveX Excel VBA.

Spin Button ActiveX dan Scroll Bar Activex mempunyai fungsi yang sama yaitu untuk menaikan atau menurunkan nilai angka, perbedaanya kalau Scroll Bar Activex ini dilengkapi dengan scroll geser sehingga bisa lebih cepat dalam mengatur angka.

Selanjutnya akan akan dijelaskan juga Apa bedanya Scroll Bar Form Controls dengan Scroll Bar ActiveX Control ? Perbedaanya dari segi fasilitas yang bisa gunakan Scroll Bar ActiveX kita bisa mengatur propertisnya lebih banyak mulai dari arahnya, warna dan sebagainya.

Untuk lebih jelasnya simak berikut langkah-langkah cara membuat Scroll Bar ActiveX Control.

  • Buka Sheet Microsoft Excel
  • Kemudian klik menu Developer >> klik Insert >> ActiveX Controls (pilih Scroll Bar)
  • Pastikan sheet pada kondisi Design Mode
  • Kemudian letakan Scroll Bar ActiveX Controls pada sheet Excel seperti contoh pada gambar dibawah ini.
Scroll Bar ActiveX Control
Scroll Bar ActiveX Control
  • Cara mengaturnya kita bisa menggunakan codding atau bisa juga dari propertisnya.
  • Kita bahas menggunakan coding terlebih dahulu.
  • Pada Scroll Bar ActiveX >> klik kanan, kemudian pilih View Code
View Code Scroll Bar ActiveX Control
View Code Scroll Bar ActiveX Control

Ketikan kodenya seperti contoh dibawah ini

Private Sub ScrollBar1_Change()
Range(“B5”).Value = ScrollBar1.Value
ScrollBar1.Max = 100
ScrollBar1.Min = 0
ScrollBar1.SmallChange = 2
End Sub

Ket :
Range untuk letak hasil nilai akan ditampilkan misalnya Cell B5
Max untuk menentukan nilai maksimal
Min untuk mentukan nilai minimal
SmallChange untuk mengatur kelipatan perubahannya.

  • Cara kedua melalui Properties

Pada Scroll Bar ActiveX >> klik kanan, kemudian pilih Properties

Properties Scroll Bar ActiveX Control
Properties Scroll Bar ActiveX Control

Kita atur sesuai kebutuhan misal

ForeColor : Biru

Orientation : Arah Horizontal

LinkedCell : B5 (untuk menampilkan hasilnya)

Max : 100

Min : 0

SmallChange : 2

dst bisa dicoba-coba saja.

Terimakasih semoga bermanfaat.

Tinggalkan komentar

Situs ini menggunakan Akismet untuk mengurangi spam. Pelajari bagaimana data komentar Anda diproses.