VBA リストボックスの選択対象の移動

質問

現在VBAでユーザーフォームを使った入力作業簡素化のプログラムを作っています。
その中でリストボックス内にある人名を選択するという動作が発生するのですが、大量の人名の中から名前を選ぶので名前を探すためにスクロールする必要が出てきます。
クリックしてキーボードの矢印キーで移動すればいいんですができればマウスだけで入力をスムーズに完遂したい思いがあります。
ユーザーフォーム上でスクロールホイールを使えるように挑戦しましたが難しく断念し、↑と↓の矢印ボタンを作成しボタンのクリックで選択している名前を移動していく方法を考えました。

Private Sub CommandButton1_Click()

Dim NowInd As Long

NowInd = Namelst.ListIndex
Namelst.ListIndex = NowInd + 1

End Sub

自分なりに色々とコードを考えてみたのですが上のような形などですとボタンの長押しで一気に移動ができなかったり、素早く2回押したいだけなのにダブルクリックになってしまうなど直感的な操作とは程遠いものとなってしまいます。
初心者の質問で申し訳ありませんが希望の動作をさせるボタンを作成するにはどうすればいいのか教えていただきたいです。

回答No.2

kkkkkm · ベストアンサー

スピンボタンを作成して利用するという手もありかと思います。

スピンボタンのモジュール：
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_userform06.html

お礼

スピンボタンの存在を知りませんでした...
いただいたアドバイスを参考に実施したら解決しました。
素早いご回答ありがとうございました！

回答No.1

kkkkkm

リストボックスってスクロールバーが出ると思いますが、でないのでしょうか。

補足

回答ありがとうございます。
スクロールバー自体は出ますしこちらでも動作はさせられますがバーでの移動だと一気に動きすぎてしまったりと微調整が難しいので、キーボードの矢印キーでの操作と同じようで感覚で動かしたいと思っています。実際の作業をするのは自分ではないのでできるだけユーザビリティを高めるようなプログラムにしたいと思っています。