１動作で小さいシートの選択画面が出せる方法

質問

Ｅｘｃｅｌに詳しい方よろしくお願いします。
シートの数が多いときだけに左下角の見出しをスクロールするボタンのところを右クリックすると一番下にシートの選択が出来ます。そこを選択しますと小さいシートの選択が出てきます。マクロやショートカットキーの１動作で小さいシートの選択を出せる方法はないでしょうか？

回答No.1

misatoanna · ベストアンサー

> 1.見出しをスクロールするボタンのところを右クリックすると
> 一番下にシートの選択が出来ます。
> 2.そこを選択しますと小さいシートの選択が出てきます。

１だけでしたら、
CommandBars("WorkBook tabs").ShowPopup
で表示できますが、直接２を表示するなら、ユーザーフォームを
作成する必要があると思います。

ユーザーフォームに「リストボックス」と「コマンドボタン」を
配置して、

標準モジュールに
Sub ListShow()
　UserForm1.Show 0
End Sub

フォームのモジュールに
Public SName
'
Private Sub UserForm_Initialize()
　Dim sh
　With UserForm1
　　For Each sh In Worksheets
　　　.ListBox1.AddItem sh.Name
　　Next
　　.ListBox1.Value = ActiveSheet.Name
　　SName = .ListBox1.Text
　End With
End Sub
'
Private Sub CommandButton1_Click()
　SName = UserForm1.ListBox1.Text
　Sheets(SName).Activate
　Unload Me
End Sub

のように記述し、必要なときに標準モジュールを実行します。

お礼

こんなに早い回答ありがとうございました。
おがげさまで希望どうりに出来ました。
これで年配の方たちも使いやすいと思います。
＊どうもありがとうございました。

回答No.2

imogasi

>多いときだけに
私の場合４シートでも出ます。
ーー
案１
Ｓｈｉｆｔ＋ＰＥＧＥＤＯＷＮ（ＰＡＧＥＵＰ）キーで順次選択シートが移動します。
ーー
案2
Sub Test01()
For i = 1 To Sheets.Count

Range("A" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Sheet" & i & "!A1", TextToDisplay:=Sheets(i).Name
Next i
End Sub
を実行するとＡｃｔｉｖｅＳhｅｅｔに（例　Ｓｈｅｅｔ１）にシート名一覧が出て、クリックするとソノシートが開きます。
うまくプログラムで細工すれば、望みのセルを最初選択も出来ます。
（上記は対応してない）またＡ列の表示をシート名ではなく説明的な
文言を出すことも出来ます。少しＶＢＡの力が必要。
左下で選択するよ、堂々としてます。