Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4530 / 76732

←次へ　｜　前へ→


	【77823】Re:msgboxでシートを指定する方法

β - 16/1/2(土) 13:17 -


	引用なし

	パスワード

▼ゆうすけさん：

MsgBoxでシートを指定する　という意味がいまいちわかりにくいのですが・・

提示されたコードでブックに対しては

・このブック名を開いてね　というメッセージをだしておいて
・ブック選択ダイアログを表示して
・操作者に開くべきブックをせんたくさせて
・そのブックをマクロで開く

こんな流れですね。
これをシートに当てはめると

・このシートを選んでね　というメッセージを出して
・シート一覧のようなものを表示して
・操作者にシートを指定させて
・マクロで、そのシートを選択する

こういったことを想定しておられるのでしょうか？

まず、（ブックもそうなんですが）選択すべきシートがわかっているなら
操作者に選ばせるまでもなく、マクロで直接、そのシートをSelectすれば
いいのでは？　と思うのですが。

そうではなく、選択すべきシートは、やはり、操作者に指定させないと
マクロでは判断できないということでしょうか？

であれば、γさんコメントの様に、たとえばユーザーフォームで
シート一覧を表示して選ばせるということも、よく使われる方法ですし、
以下のように、開きたいシートの任意のセルを選ばせるという手もあります。

Sub Sample()
　　Dim c As Range
　　
　　On Error Resume Next
　　Set c = Application.InputBox("目的のシートの任意のセルを選択してください", Type:=8)
　　On Error GoTo 0
　　
　　If c Is Nothing Then Exit Sub　 'キャンセルボタン
　　
　　c.Parent.Select
　　
End Sub

9 hits

▼

【77820】msgboxでシートを指定する方法 ゆうすけ 16/1/2(土) 2:03