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

8 hits

【77820】msgboxでシートを指定する方法 ゆうすけ 16/1/2(土) 2:03 質問[未読]
【77821】Re:msgboxでシートを指定する方法 γ 16/1/2(土) 7:19 発言[未読]
【77823】Re:msgboxでシートを指定する方法 β 16/1/2(土) 13:17 発言[未読]
【77824】Re:msgboxでシートを指定する方法 β 16/1/2(土) 20:21 発言[未読]
【77830】Re:msgboxでシートを指定する方法 ゆうすけ 16/1/7(木) 22:41 お礼[未読]

4530 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free