Kalau akan pakai mousewheel, silakan lihat-lihat file yang ada disini <https://app.box.com/s/pz0o2r49w33uecah4zoa>.
Wassalam, Kid 2015-05-27 20:05 GMT+10:00 'Mr. Kid' [email protected] [belajar-excel] < [email protected]>: > > > Wa'alaikumussalam wr wb > > Berdasar pergerakan mouse disini diartikan adalah bergerak naik dan turun > ya... supaya ndak ruwet. > (kalau pakai wheelmouse, bisa rada ruwet nyusun hook dan unhook mouse nya.) > > Jadi, kalau mouse bergerak di listbox, maka dilakukan klik supaya user > ndak repot klik lagi. > Batasannya : kalau daftarnya panjang hingga tampil scrollbar nya, maka > bisa tampak buruk > > Pakainya activex listbox control ya... > > Begini : > 1. buat sebuah general module > 2. copas deklarasi fungsi API berikut : (letakkan di baris pertama area > penulisan kode [di bawah Option Explicit kalau ada]) > Public Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, > ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal > dwExtraInfo As Long) > > > fungsi ini diletakkan di sebuah general module dan di set scope-nya > public agar bisa dipakai banyak object > > 3. buat event mouse move milik si listbox (entah itu yang di userform atau > dalam worksheet) > 4. isi dengan perintah berikut : > doevents > mouse_event &h2,0,0,0,0 'proses tekan mouse kiri (&h2) > mouse_event &h4,0,0,0,0 'proses release mouse kiri (&h4) > > Dicoba dulu ya, supaya tahu batasan dari cara ini... > > Wassalamu'alaikum wr wb > Kid > > > > 2015-05-27 18:34 GMT+10:00 Haris Rifai [email protected] > [belajar-excel] <[email protected]>: > >> >> >> Dear Master Excel. >> >> Assalamu'alaikum wr wb. >> >> Langsung saja nih Master. >> Saya telah membuat Listbox dalam sebuah Userform, tapi data dalam listbox >> hanya disorot pointer/kursor saat data tersebut saya klik. >> >> Mohon arahan dari Master sekalian, setup/perintah apa yang mesti saya >> tambahkan agar pointer dapat bergerak menyorot data dalam listbox dengan >> mengikuti pergerakan mouse. >> >> Berikut saya lampirkan file ntuk memperjelas yang saya inginkan. >> >> Wassalam. >> Haris >> >> > >
