[[20180517114040]]　『助言を下さい』（おじさん）　ページの最後に飛ぶ

『助言を下さい』（おじさん）

何も入力されなかった時も、Elseの処理を返したいです。
どこを直せばいいですか。

Sub test()

    Dim myName As String, myMsg As String, MyTitle As String

    myMsg = "氏名を入力"
    MyTitle = "氏名入力"
    myName = Application.InputBox(Prompt:=myMsg, Title:=MyTitle, Type:=2)

    If myName <> "False" Then
        Range("B3") = myName
    Else
        MsgBox "氏名をご入力下さい"
    End If

End Sub

＜使用 Excel：Excel2010、使用 OS：Windows8 ＞

 >If myName <> "False" Then
 を
 If myName <> "False" And myName <> "" Then
 ではどうか。
（ねむねむ） 2018/05/17(木) 11:50

「何も入力されなかった。」と、
「キャンセルを押した。」は、
区別しないといけないのでは？

Sub test()

    Dim myProm As String
    Dim myTitle As String
    Dim myName As String

    myTitle = "氏名を入力"
    myProm = myTitle

    Do
        myName = Application.InputBox(Prompt:=myProm, Title:=myTitle, Type:=2)
        If myName = "False" Then Exit Sub　　　　'キャンセルを押したら処理を抜ける。
        myProm = "(再度)氏名をご入力下さい！"
    Loop Until Len(myName) > 0

    MsgBox myName & "と入力されました。"
End Sub

（まっつわん） 2018/05/17(木) 14:05

コメント返信：

[ 一覧(最新更新順) ]

[[20180517114040]] 『助言を下さい』（おじさん） ページの最後に飛ぶ

[[20180517114040]]　『助言を下さい』（おじさん）　ページの最後に飛ぶ