Excel VBA質問箱 IV

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

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


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

28537 / 76732

←次へ　｜　前へ→


	【53491】知恵を貸してくれませんか？

貫井企画 - 08/1/16(水) 21:54 -


	引用なし

	パスワード

たびたびすみません。図々しいのですが、
_________________________________________________________________________

Sub シート選択()

Dim InputStr As String
Dim Msg1 As String
Dim Title1 As String
Dim Temp As String
Dim Ron As String
Dim i As Byte

MsgBox "シート選択のマクロを始めます。"

InM:
Msg1 = "選択したいシートの名前を入力して下さい。"
Title1 = "シートの選択"
InputStr = InputBox(Msg1, Title1)

For i = 1 To Worksheets.Count
Temp = Worksheets(i).Name

Select Case i
Case Worksheets.Count
If InputStr = Temp Then
Worksheets(InputStr).Activate
MsgBox Temp & "ワークシートが選択されました。", vbOKOnly + vbInformation, "シートの確認"

Else
MsgBox InputStr & "に該当するワークシートはありません。", vbOKOnly + vbExclamation, "シートの確認"

GoTo OutN

End If

Case Else
If InputStr = Temp Then
Worksheets(InputStr).Activate
MsgBox Temp & "ワークシートが選択されました。", vbOKOnly + vbInformation, "シートの確認"

GoTo OutN
End If
End Select
Next

OutN:

Ron = MsgBox("シート選択を続けますか？", vbYesNo + vbQuestion, "続行確認")

If Ron = vbYes Then GoTo InM Else MsgBox "シート選択マクロを終わります。"

End Sub
_________________________________________________________________________

問題
・シート名を入力せずにＯＫボタンを押したとき、エラーメッセージを表示させて入力状態に戻すには？

・入力のとき、「キャンセル」ボタンを押したら、マクロを終了するようにしてみるには？

どう工夫・変更したらこのようにすることができるでしょうか？
知恵をお借りしたいです。どうぞよろしくお願いします。
(最初の問題はすでにクリアできている!?)

0 hits

▼

【53491】知恵を貸してくれませんか？ 貫井企画 08/1/16(水) 21:54

≪