vba - InputBoxでキャンセルが押された場合は、次の手順にスキップします

Question

現在、以下に示すInputBoxコードでマクロを実行しています。

ActiveCell.Value = InputBox(Prompt:="Please enter the sample name", Title:="Sample name")

ActiveCellにテキストがまだない場合に最適ですが、テキストがすでにある場合は、キャンセルを押すとテキストがクリアされます。

これを変更して、このステップでキャンセルを押した場合、次のステップにスキップして、セル内の内容を変更しないようにするにはどうすればよいですか？サブを終了させたくはありません。コードの次の行にスキップしたいだけです。

ご協力ありがとうございました。

score 1 · Accepted Answer

これでうまくいくはずです：

文字列としての薄暗い
s = InputBox（Prompt：= "サンプル名を入力してください"、Title：= "サンプル名"）
If s <> "" Then ActiveCell.Value = s

score 0 · Accepted Answer

これを試して：

Dim a As Variant
a = Application.InputBox(Prompt:="Please enter name", Title:="Sample name")
If a <> False Then
    ActiveCell.Value = a
End If

2 に答える 2