Filenya ada disini <https://app.box.com/s/pz0o2r49w33uecah4zoa>.
Wassalam, Kid 2015-06-03 10:58 GMT+10:00 nurani alkena alkenanur...@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>: > > > Dear mister, > > saya memiliki masalah yang sama dengan mr. haris rifai. bagaimana > cara scrol pada list box. saya sudah mencoba kode diatas tetapi belum > berhasil. > list box saya tersedia dalam bentuk sheet. > tolong dibantu pengkodeannya mister. > > > Terima kasih. > > > > > On Thursday, May 28, 2015 11:07 AM, "'Mr. Kid' mr.nm...@gmail.com > [belajar-excel]" <belajar-excel@yahoogroups.com> wrote: > > > > 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 haris.ri...@yahoo.co.id > [belajar-excel] <belajar-excel@yahoogroups.com>: > > > 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' mr.nm...@gmail.com > [belajar-excel]" <belajar-excel@yahoogroups.com> 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' mr.nm...@gmail.com [belajar-excel] < > belajar-excel@yahoogroups.com>: > > > 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 haris.ri...@yahoo.co.id > [belajar-excel] <belajar-excel@yahoogroups.com>: > > > 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 > > > > > > > > > >