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' [email protected]
[belajar-excel]" <[email protected]> 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 [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.
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
#yiv5916959012 #yiv5916959012 -- #yiv5916959012ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5916959012
#yiv5916959012ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5916959012
#yiv5916959012ygrp-mkp #yiv5916959012hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv5916959012 #yiv5916959012ygrp-mkp #yiv5916959012ads
{margin-bottom:10px;}#yiv5916959012 #yiv5916959012ygrp-mkp .yiv5916959012ad
{padding:0 0;}#yiv5916959012 #yiv5916959012ygrp-mkp .yiv5916959012ad p
{margin:0;}#yiv5916959012 #yiv5916959012ygrp-mkp .yiv5916959012ad a
{color:#0000ff;text-decoration:none;}#yiv5916959012 #yiv5916959012ygrp-sponsor
#yiv5916959012ygrp-lc {font-family:Arial;}#yiv5916959012
#yiv5916959012ygrp-sponsor #yiv5916959012ygrp-lc #yiv5916959012hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5916959012
#yiv5916959012ygrp-sponsor #yiv5916959012ygrp-lc .yiv5916959012ad
{margin-bottom:10px;padding:0 0;}#yiv5916959012 #yiv5916959012actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5916959012
#yiv5916959012activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5916959012
#yiv5916959012activity span {font-weight:700;}#yiv5916959012
#yiv5916959012activity span:first-child
{text-transform:uppercase;}#yiv5916959012 #yiv5916959012activity span a
{color:#5085b6;text-decoration:none;}#yiv5916959012 #yiv5916959012activity span
span {color:#ff7900;}#yiv5916959012 #yiv5916959012activity span
.yiv5916959012underline {text-decoration:underline;}#yiv5916959012
.yiv5916959012attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv5916959012 .yiv5916959012attach div a
{text-decoration:none;}#yiv5916959012 .yiv5916959012attach img
{border:none;padding-right:5px;}#yiv5916959012 .yiv5916959012attach label
{display:block;margin-bottom:5px;}#yiv5916959012 .yiv5916959012attach label a
{text-decoration:none;}#yiv5916959012 blockquote {margin:0 0 0
4px;}#yiv5916959012 .yiv5916959012bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv5916959012
.yiv5916959012bold a {text-decoration:none;}#yiv5916959012 dd.yiv5916959012last
p a {font-family:Verdana;font-weight:700;}#yiv5916959012 dd.yiv5916959012last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5916959012
dd.yiv5916959012last p span.yiv5916959012yshortcuts
{margin-right:0;}#yiv5916959012 div.yiv5916959012attach-table div div a
{text-decoration:none;}#yiv5916959012 div.yiv5916959012attach-table
{width:400px;}#yiv5916959012 div.yiv5916959012file-title a, #yiv5916959012
div.yiv5916959012file-title a:active, #yiv5916959012
div.yiv5916959012file-title a:hover, #yiv5916959012 div.yiv5916959012file-title
a:visited {text-decoration:none;}#yiv5916959012 div.yiv5916959012photo-title a,
#yiv5916959012 div.yiv5916959012photo-title a:active, #yiv5916959012
div.yiv5916959012photo-title a:hover, #yiv5916959012
div.yiv5916959012photo-title a:visited {text-decoration:none;}#yiv5916959012
div#yiv5916959012ygrp-mlmsg #yiv5916959012ygrp-msg p a
span.yiv5916959012yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5916959012
.yiv5916959012green {color:#628c2a;}#yiv5916959012 .yiv5916959012MsoNormal
{margin:0 0 0 0;}#yiv5916959012 o {font-size:0;}#yiv5916959012
#yiv5916959012photos div {float:left;width:72px;}#yiv5916959012
#yiv5916959012photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv5916959012
#yiv5916959012photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5916959012
#yiv5916959012reco-category {font-size:77%;}#yiv5916959012
#yiv5916959012reco-desc {font-size:77%;}#yiv5916959012 .yiv5916959012replbq
{margin:4px;}#yiv5916959012 #yiv5916959012ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv5916959012 #yiv5916959012ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5916959012
#yiv5916959012ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5916959012
#yiv5916959012ygrp-mlmsg select, #yiv5916959012 input, #yiv5916959012 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv5916959012
#yiv5916959012ygrp-mlmsg pre, #yiv5916959012 code {font:115%
monospace;}#yiv5916959012 #yiv5916959012ygrp-mlmsg *
{line-height:1.22em;}#yiv5916959012 #yiv5916959012ygrp-mlmsg #yiv5916959012logo
{padding-bottom:10px;}#yiv5916959012 #yiv5916959012ygrp-msg p a
{font-family:Verdana;}#yiv5916959012 #yiv5916959012ygrp-msg
p#yiv5916959012attach-count span {color:#1E66AE;font-weight:700;}#yiv5916959012
#yiv5916959012ygrp-reco #yiv5916959012reco-head
{color:#ff7900;font-weight:700;}#yiv5916959012 #yiv5916959012ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv5916959012 #yiv5916959012ygrp-sponsor
#yiv5916959012ov li a {font-size:130%;text-decoration:none;}#yiv5916959012
#yiv5916959012ygrp-sponsor #yiv5916959012ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv5916959012
#yiv5916959012ygrp-sponsor #yiv5916959012ov ul {margin:0;padding:0 0 0
8px;}#yiv5916959012 #yiv5916959012ygrp-text
{font-family:Georgia;}#yiv5916959012 #yiv5916959012ygrp-text p {margin:0 0 1em
0;}#yiv5916959012 #yiv5916959012ygrp-text tt {font-size:120%;}#yiv5916959012
#yiv5916959012ygrp-vital ul li:last-child {border-right:none
!important;}#yiv5916959012
