エクセルVBAでフォームのListboxをスクロールするには？

Question

エクセルVBAでフォームのListboxをスクロールするには？ 
ワークシート上に貼り付けたリストボックスがあります。
このリストボックスはOLEObjectではなくフォームのリストボックスです。

For Each lb In .ListBoxes
            If lb.ListCount <= 4 Then
                lb.ListIndex = 1
            Else
                lb.ListIndex = 16
                ここで16番目が見えるようにスクロールしたいのです。
            End If
        Next lb

このスクロールさせる方法がわかりません。
ご教示いただければ幸いです。

end-u · Accepted Answer

>手動スクロールの動きが変ですし
失礼。
'-----------------------------------------------------------------
Sub sbChange()
　　'ListBoxes(1)の表示行数でMXを設定
　　Const MX As Long = 11
　　Dim x As Long
　　With ActiveSheet
　　　　x = n - .ScrollBars(1).Value + 1
　　　　If x < 1 Or x > MX Then
　　　　　　.ListBoxes(1).ListIndex = 0
　　　　Else
　　　　　　.ListBoxes(1).ListIndex = x
　　　　End If
　　End With
End Sub
'-----------------------------------------------------------------
Sub test()
　　Dim x
　　x = InputBox("ListIndex")
　　With ActiveSheet
　　　　.ListBoxes(1).ListIndex = 1
　　　　.ScrollBars(1).Value = x
　　　　n = x
　　End With
End Sub
'-----------------------------------------------------------------
Sub LbChange()
　　With ActiveSheet
　　　　n = .ListBoxes(1).ListIndex + .ScrollBars(1).Value - 1
　　End With
End Sub
'-----------------------------------------------------------------
上記に差し替え＆追加してsbChangeのMXを設定し、
LbChangeをListBoxes(1)にマクロ登録すれば少しはマシになります。
ですが、手が込み過ぎておすすめしないのは変わりありません。

また、
>モードレスなUserFormにListBoxを配置して使う方が良いと思います。
ここで書いたListBoxはActiveXコントロール(コントロールツールボックス)のListBoxの事です。
#もちろんExcel.ListBoxはUserFormに置けませんから
#お判りでしょうけど念のため。
#ActiveXコントロールは直接ワークシート上に配置するよりも
#UserFormに配置して使ったほうが不具合少なく、良いかと思ったもので。

end-u · Answer

>選択肢が47(都道府県)あるものは16番目の東京を表示させようと思ったのです。

そういう用途であれば、DropDownsや[入力規則]リストが使われる事が多いのではないでしょうか。
DropDownsのリストをコードでDropDownする事はできませんが、
DropDownLinesを47、Value = 16 にしてDropDownsクリックしてみてください。
DropDownsのWindows相対位置にもよりますが、全リストが展開されます。
普段は折り畳まれて省スペースですし、ユーザー操作的にもそれほど差異は無いように思えます。

#仕様にダメ出しするつもりはありません。
#他の要件もある事でしょうし、あくまで参考意見です。

end-u · Answer

シート上のExcel.ListBoxでは ListIndex、Value、Selected(x) = True、
いずれもスクロールしません。仕様です。
諦めてください。

なんとかそれっぽく、
Option Explicit
Dim n As Long
'---------------------------------------------------------------------
'#Sub 準備()でシート追加しListBoxを配置。
'#Sub test()を実行してみてください。
Sub 準備()
　　With Sheets.Add
　　　　.Names.Add "List", "=OFFSET($A$1,$B$1-1,,20)"
　　　　With .Range("A1")
　　　　　　.Value = "F1"
　　　　　　.AutoFill .Resize(40), xlFillDefault
　　　　End With
　　　　With .ListBoxes.Add(.Range("C1").Left, 0, 100, 100)
　　　　　　.ListFillRange = "List"
　　　　　　.LinkedCell = "$B$2"
　　　　End With
　　　　With .ScrollBars.Add(.Range("C1").Left + 87, 0, 13, 102)
　　　　　　.Min = 1
　　　　　　.Max = 20
　　　　　　.SmallChange = 1
　　　　　　.LargeChange = 10
　　　　　　.LinkedCell = "$B$1"
　　　　　　.OnAction = "sbChange"
　　　　　　.ShapeRange.ZOrder msoBringToFront
　　　　End With
　　End With
End Sub
'---------------------------------------------------------------------
Sub sbChange()
　　Dim x As Long
　　With ActiveSheet
　　　　With .ScrollBars(Application.Caller)
　　　　　　x = .Value - n
　　　　　　n = .Value
　　　　End With
　　　　With .ListBoxes(1)
　　　　　　x = .ListIndex - x
　　　　　　If x < 0 Then
　　　　　　　　x = 0
　　　　　　ElseIf x > 20 Then
　　　　　　　　x = 20
　　　　　　End If
　　　　　　.ListIndex = x
　　　　End With
　　End With
End Sub
'---------------------------------------------------------------------
Sub test()
　　Dim x
　　x = InputBox("ListIndex")
　　With ActiveSheet
　　　　.ListBoxes(1).ListIndex = 1
　　　　.ScrollBars(1).Value = x
　　End With
End Sub
'---------------------------------------------------------------------

...こんな感じで実現してみましたが
トリッキーだし、手動スクロールの動きが変ですし、
実用的ではないです orz

複数のListBoxに設定するのも大変そうなので
モードレスなUserFormにListBoxを配置して使う方が良いと思います。

hana-hana3 · Answer

＞lb.ListIndex = 16

ではなくて、lb.Value = "16番目のアイテム名" ではいかがですか？

エクセルVBAでフォームのListboxをスクロールするには？

>手動スクロールの動きが変ですし

>選択肢が47(都道府県)あるものは16番目の東京を表示させようと思ったのです。

シート上のExcel.ListBoxでは ListIndex、Value、Selected(x) = True、

＞lb.ListIndex = 16

この回答への補足

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング