お世話になります。
下記のコードですが
If TextBox1.Value <> "" And TextBox2.Value <> "" Then
TextBox3.Value = TextBox1 * TextBox56
End If
テキストボックス1に -5を入力
テキストボックス2に 5を入力
テキストボックス3が -25になります。
今度は
テキストボックス1に 5を入力
テキストボックス2に -5を入力しようとすると、-を入力した時点でデバックとなります。
数 × -数 を行いたいのですが、
どのようにしたらよいのでしょうか?
教えて下さい。
ちなみに、テキストボックス2から、-5を入力するとデバックしません。
宜しくお願い致します。
No.2ベストアンサー
- 回答日時:
<>””だとNULLで無い、と判定ている。
数字かどうかで判定する。
If IsNumeric(TextBox1.Value) And IsNumeric(TextBox2.Value) Then
TextBox3.Value = TextBox1 * TextBox2
End If
ご回答ありがとうございます。
If IsNumeric(TextBox8.Value) And IsNumeric(TextBox10.Value) Then
TextBox11.Value = TextBox8 * TextBox10
myTH1 = TextBox8.Value * TextBox10.Value
ElseIf TextBox8.Value = "" Or TextBox10.Value = "" Then
TextBox11.Value = ""
myTH1 = 0
End If
マイナスが入りました。
本当に助かりました。
ありがとうございます
No.5
- 回答日時:
こんな感じではいかがですか?
-----------------------------------------------------
Private Sub TextBox1_Change()
If IsNumeric(TextBox1.Value) Then
If IsNumeric(TextBox2.Value) Then
TextBox3.Value = TextBox1.Value * TextBox2.Value
End If
End If
End Sub
-----------------------------------------------------
ちなみになぜエラーになったかと言うと、Change イベントは1文字づつイベントが発生してしまうため「-」だけでもイベントが発生してしまい「-」では計算が出来ないためです。またなぜ最初に「-」の方はエラーにならなかったかと言うとテキストボックス2が空欄だったため計算されなかったためです。
No.4
- 回答日時:
Change()イベントに書いているなら当たり前ですね。
「-」は数値ではありませんから。
せめてこれくらいはすればどうでしょうか。
Private Sub TextBox1_Change()
If TextBox1.Value = "" Or TextBox2.Value = "" Then
Exit Sub
End If
If Not IsNumeric(TextBox1.Value) Or Not IsNumeric(TextBox2.Value) Then
Exit Sub
End If
TextBox3.Value = TextBox1.Value * TextBox2.Value
End Sub
とかにしとけばいいのでは。
この場合、「.1」、「-.1」、更には全角数字も数値とみなします。
また、入力値に、特定の桁数までという制御がないので、結果が15桁を超えると「1E+15」などという結果になります。
No.3
- 回答日時:
TextBox3.Value = TextBox1 * TextBox1 を
TextBox3.Value = TextBox1.Value * TextBox2.Value
にしては、どうでしょうか。
こちらで、確認するとTextBox1にマイナスの値をいれても、TextBox2にマイナスの値をいれても
何れも正常に動作します。
ご回答ありがとうございます。
全文書かなくてすみません。
Private Sub TextBox1_Change()
If TextBox1.Value <> "" And TextBox2.Value <> "" Then
TextBox3.Value = TextBox1.Value * TextBox2.Value
End If
これですと、デバックになりました。
ただ、参考になりました。
ありがとうございます。
No.1
- 回答日時:
念のため確認ですが
「TextBox3.Value = TextBox1 * TextBox56」は「TextBox3.Value = TextBox1.Value * TextBox2.Value」の転記ミスですよね。
ありがとうございます。
4行目は
TextBox3.Value = TextBox1 * TextBox2
の間違いです。
Private Sub TextBox1_Change()
If TextBox1.Value <> "" And TextBox2.Value <> "" Then
TextBox3.Value = TextBox1 * TextBox1
End If
End Sub
Private Sub TextBox2_Change()
If TextBox1.Value <> "" And TextBox2.Value <> "" Then
TextBox3.Value = TextBox1 * TextBox1
End If
End Sub
こんな書き方をしています。
宜しくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ちょっと先の未来クイズ第2問
9月9日(月)に発表される「第3回子どもマネー川柳」に入賞する川柳を考えてこちらに投稿してください。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
VBA テキストボックスの計算
Visual Basic(VBA)
-
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
-
4
Excel VBA ユーザーフォーム内のラベルにテキストボックスの小計を出す方法
Visual Basic(VBA)
-
5
Excel VBA ユーザーフォーム内のラベルにテキストボックスの計算結果を出す方法
Visual Basic(VBA)
-
6
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
7
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
8
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
9
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
10
ユーザーフォームのTextに数値を入れるとセルにエ
Excel(エクセル)
-
11
Excel vbaで複数のテキストボックスの足し算
Visual Basic(VBA)
-
12
ユーザーフォームのラベルに日付を表示させる方法があればお願いします。出来ればコード書いていただけると
Visual Basic(VBA)
-
13
ユーザーフォームで数字にカンマを付けたい
Excel(エクセル)
-
14
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
15
TextBoxから数字が文字として入力される?
Visual Basic(VBA)
-
16
VBA テキストボックスで計算
Access(アクセス)
-
17
UserForm1.Showでエラーになります。
工学
-
18
VBAでユーザーフォームにセル値を表示させるには
Visual Basic(VBA)
-
19
Excel ユーザーフォームで計算 空欄の場合のエラー処理
Visual Basic(VBA)
-
20
テキストボックスに記述した数値を加算させたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
彼女のことが好きすぎて彼女の...
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
小数点以下を繰り上げたものを...
-
勃起する時って痛いんですか? ...
-
エクセル指定した範囲からラン...
-
リンク先のファイルを開かなく...
-
EXCELで条件付き書式で空白セル...
-
精液の落とし方を教えてください
-
風俗店へ行く前のご飯
-
2つの数値のうち、数値が小さい...
-
精子が黄色?
-
excelのIF関数 A,Bの大きいほ...
-
値が入っているときだけ計算結...
-
「内数」という言葉の意味がよ...
-
エクセルのラベルの値(文字列...
-
MIN関数で空白セルを無視したい...
-
ある範囲のセルから任意の値を...
-
Excel 0目標に対して数字があ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
彼女のことが好きすぎて彼女の...
-
白血球が多いとどんな心配があ...
-
勃起する時って痛いんですか? ...
-
検便についてです。 便は取れた...
-
精液の落とし方を教えてください
-
EXCELで条件付き書式で空白セル...
-
イタリアから帰国する際、肉製...
-
精子が黄色?
-
2つの数値のうち、数値が小さい...
-
これって喉仏ですか? 私は女性...
-
エクセル指定した範囲からラン...
-
甲状腺が腫れているが血液検査...
-
風俗店へ行く前のご飯
-
エクセルのラベルの値(文字列...
-
小数点以下を繰り上げたものを...
-
ある範囲のセルから任意の値を...
-
エクセルで数式の答えを数値と...
-
知能テストは、今。 義務教育課...
-
MIN関数で空白セルを無視したい...
おすすめ情報