Hai Haris, 1. declare nya diletakkan di sebuah general module, bukan dalam object userform module 2. file yang ada di link tersebut, pada sheet daftar_scroll adalah contoh menggunakan ComboBox dan ListBox. Silakan tiru saja cara pakainya untuk listbox seperti yang ada dalam contoh tersebut.
Wassalam, Kid 2015-05-28 13:54 GMT+10:00 Haris Rifai [email protected] [belajar-excel] <[email protected]>: > > > Mr. Kid. > > Saya sudah coba arahan Mr. Kid. tapi untuk arahan yang pertama masih > gagal. Informasi yang tampil adalah "... user defined types ana Declare > statement not allowed..." > > Sedangkan utuk saran yang kedua berhasil saya buat, namun itu hanya bisa > dilakukan pada Combobox sedangkan yang saya inginkan adalah dalam Listbox. > > Mohon arahan lg dr Mr. Kid seperti yang saya maksud dalam email saya yang > pertama. > > Terimakasih. > Haris > > > > > Pada Rabu, 27 Mei 2015 18:15, "'Mr. Kid' [email protected] > [belajar-excel]" <[email protected]> menulis: > > > > 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 > > > > > > >
