EXCELでシートをリストから選択し、ジャンプ

以下のコードで、EXCELでシートをリストから選択し、そのシートへジャンプします。

CommandBars(“WorkBook tabs”).ShowPopup

しかし、ちょっと癖があるので、ファイルを開き、シートを選択し、そのシート名(sheet_name)を得るには、以下のようなコードになりました。
ちょっと、オペレーションはスマートじゃないですけど、フォームとか使わずに済むので手軽に使えます。

Workbooks.Open Filename:=エクセルブックのパス
Sheets(ActiveSheet.Name).Selectツ黴€ツ黴€ツ黴€ツ黴€ツ黴€ツ黴€ツ黴€ ‘一度シートをアクティブにしておかないと、最初は選択シートがアクティブにならない。
MsgBox “シートを選択してください。”
Do
CommandBars(“Workbook tabs”).ShowPopup
sheet_name = Application.InputBox(“このシートで良いですか?”, , ActiveSheet.Name)
Loop Until sheet_name <> False
Windows(エクセルブック名).Activate
ActiveWindow.Close

<参考>
http://park11.wakwak.com/~miko/Excel_Note/04-02_sheet.htm



コメントを残す