![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
いつもお世話になります
先日、WindFaller さんに教えてもらった件
Public Sub GetWindows()
'ウィンドウ選択
If Workbooks.Count > 1 Then
Application.Dialogs(xlDialogActivate).Show
End If
End Sub
Public Sub SheetListOpen()
'シート一覧
Application.CommandBars("Workbook tabs").ShowPopup
End Sub
初めてのステートメントで試しに標準モジュールで使ってみました
GetWindowsの動きはすぐ出来たのでので良かったのですが
CommandBarsのステートメントとどう連動させるのかよく分かりません
単純にSheetListOpenを動かすと引数の不正エラーになってしまいます
WindFallerさん、すみません
もう少し詳しく教えて頂けますか
いつも、ありがとうございます
よろしくお願い申し上げます
No.1ベストアンサー
- 回答日時:
こんばんは。
まず、こちらは、Excel 2013 で動かしています。
>単純にSheetListOpenを動かすと引数の不正エラーになってしまいます
よくわかりません。
Application.CommandBars("Workbook tabs").ShowPopup
||
Application.CommandBars(34).ShowPopup
と同じ意味です。試してみてください。
一度、これでオブジェクトを変数に出して、プロパティから、名称等を確認したほうがよいでしょう。もしかしたら、変わってしまっているかもしれません。
>CommandBarsのステートメントとどう連動させるのかよく分かりません
GetWindows とは特別に連動はしていません。
SheetListOopen は、最初でブックを選んで、その後に、ActiveWindow のシートの一覧を出し、そこから特定のシートを選ぶという仕組みです。
前回、一気にそのシートに飛ぶようなスタイルをご所望のようでしたが、実際に私が使っているものを紹介したまでで、ご希望とは若干異なるのではないかと思ったしだいです。
もし、ボップアップの場所を特定させるなら、このようになります。
画面左下の方に出てきます。
Public Sub SheetListOpen()
'シート一覧
Dim y As Double
y = Application.ActiveWindow.Height - 20
Application.CommandBars("Workbook tabs").ShowPopup 10, y
End Sub
おそらくは、ブックを選んで、その次にリストボックスが、それに合わせてシート一覧が出るということも考えられないことではないのですが、それを二分しても同じことではないかと思いました。
いつもお世話になります
申し訳ございません
エラーの件は私の入力ミスでした
シートの出力、出来ました。
今回の分も合わせて、いつもお力添えに感謝しています
これからもよろしくお願い申し上げます
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで複数のシートを一度に「...
-
エクセルで複数のシートに画像...
-
エクセルでブック内の倍率がバ...
-
特定のシートのみ再計算させな...
-
ハイパーリンクでジャンプした...
-
Accessのテーブルを既存のExcel...
-
エクセル、特定のシートにパス...
-
エクセル 非表示のシートをハ...
-
EXCELの図形(テキストボックス)...
-
エクセルマクロでシート名を条...
-
エクセルVBAでエラー!
-
シート名を変更してもVBAに影響...
-
Excel、Aのシートにあって、Bの...
-
エクセルのシー名を二段表示に...
-
【ExcelVBA】マクロの入ったシ...
-
エクセルの複数シートでのリン...
-
VBA/指定の複数シートをHTML化...
-
エクセルのシート連番の振り直し
-
【Excel】Powerクエリーの疑問
-
エクセル2003で、複数のシート...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで複数のシートを一度に「...
-
エクセルでブック内の倍率がバ...
-
特定のシートのみ再計算させな...
-
ハイパーリンクでジャンプした...
-
エクセルで複数のシートに画像...
-
【Excel VBA】データ貼り付け先...
-
【ExcelVBA】マクロの入ったシ...
-
エクセルのシート連番の振り直し
-
ワークシートそのものの色を変...
-
EXCELの図形(テキストボックス)...
-
エクセルのシー名を二段表示に...
-
Wordで差し込み印刷時に表示す...
-
エクセルの2つのシートを並び...
-
Accessのテーブルを既存のExcel...
-
特定の複数のシートに同じ処理...
-
エクセル、別のシートの表をポ...
-
エクセル、特定のシートにパス...
-
指定したシート名以外を非表示...
-
EXCELで存在しないシート...
-
InputBoxに入力した言葉をシー...
おすすめ情報