No.2ベストアンサー
- 回答日時:
こんにちは。
Sub 練習()
Dim myR
myR = Application.InputBox(prompt:="数量を入力しなさい", Type:=1)
If VarType(myR) = vbBoolean Then Exit Sub
Range("C2").Value = myR
End Sub
Application.InputBox メソッドの場合は、
戻り値のデータ型で判別します。
No.1
- 回答日時:
こんにちは!
>If myR = False Then Exit Sub
の部分を
>If myR = "" Then Exit Sub
としてみてはどうでしょうか?
FALSE=0 のコトですので、
何も変化なくマクロが終わってしまいます。
尚、質問のコードではインプットボックスタイプを
>Type:=1
とされていらっしゃるので、
数値の場合がTRUE・文字列の場合はFALSEとなります。
というコトは
>If myR = True Then Exit Sub
としても大丈夫だと思います。m(_ _)m
ありがとうございました。
Sub 練習()
Dim myR
myR = Application.InputBox(prompt:="数量を入力しなさい", Type:=1)
If myR = "" Then Exit Sub
Range("C2").Value = myR
End Sub
にしたら、0を入力したらちゃんと0が出ましたが、キャンセルボタンを押すと、C2にfalseがでました。
falseが出るのは、うーむです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAで、条件に一致する...
-
JSPで<SELECT>の中にDBから持っ...
-
javascriptからjavaを呼び出したい
-
vbaエクセルマクロ RemoveDupli...
-
VBScriptからストアドプロシー...
-
DataGridViewでセルクリックイ...
-
コマンドプロンプト実行後に画...
-
VBPをダブルクリックするとたま...
-
final修飾子を使っているのに、...
-
引数は省略できません。とのコ...
-
C#で右からnカラム目に文字を挿...
-
クエリ文字列の"?"の後を非表示...
-
VB.NET イベントハンドラの意識...
-
C#.net Define文
-
ASP上のVB SCRIPT記述(result s...
-
VBA/FIND関数を使っての先頭文...
-
エクセルVBAにおけるON TIMEメ...
-
Java 可変長引数と優先度
-
処理内容がほぼ同じメソッドの...
-
Vectorについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAで、条件に一致する...
-
DataGridViewでセルクリックイ...
-
Labelコントロールに数字を代入...
-
【sendkeysメソッドが動かずに...
-
エクセルVBAにおけるON TIMEメ...
-
final修飾子を使っているのに、...
-
javascriptからjavaを呼び出したい
-
VBPをダブルクリックするとたま...
-
配列のメソッド
-
JSPで<SELECT>の中にDBから持っ...
-
Refreshメソッドの使い方
-
コマンドプロンプト実行後に画...
-
ウィンドウを最前面にできません
-
onClickで関数呼出し後に、結果...
-
VB.netで、シリアル通信のタイ...
-
日本の教育って時間が無い中で...
-
boolean型のフィールドとゲッタ...
-
VBA コピーが出来ません…!
-
Application.Wait の参照設定
-
VBAでSaveAs使用し、指定してい...
おすすめ情報