|
▼貫井企画 さん:
>たびたびすみません。図々しいのですが、
>問題
>・シート名を入力せずにOKボタンを押したとき、エラーメッセージを表示させて入力状態に戻すには?
>
>・入力のとき、「キャンセル」ボタンを押したら、マクロを終了するようにしてみるには?
>
>どう工夫・変更したらこのようにすることができるでしょうか?
>知恵をお借りしたいです。どうぞよろしくお願いします。
>(最初の問題はすでにクリアできている!?)
Inputメソッドは如何?
Sub test()
Dim InputStr As String
Dim Msg1 As String
Dim Title1 As String
Msg1 = "選択したいシートの名前を入力して下さい。"
Title1 = "シートの選択"
InputStr = Application.InputBox(Msg1, Title1, Type:=2)
If InputStr = "False" Then
MsgBox "キャンセルされました"
ElseIf InputStr = "" Then
MsgBox "未入力です"
End If
End Sub
参考URL
http://officetanaka.net/excel/vba/tips/tips37.htm
|
|