VBA TextBox 式の書き方

質問

皆様、こんにちは。
いつもお世話になっています。
次のように書いていますが、エラーが出てしまいます。％というのが間違っているようですが、どのように表現すれば通じるか、分かりません。教えていただければ助かります。どうぞよろしくお願いします。

TextBox9.Text =" & Val(TextBox1.Text) & "*0.4%
か
TextBox9.Text = Val(TextBox1.Text) * 4%
を試しました。

回答No.1

myRange · ベストアンサー

４％は、0.04　ですから

TextBox2.Text = Val(TextBox1.Text) * 0.04

とします。

お礼

MyRange様、どうもありがとうございました。できました！すごく簡単で恥ずかしいくらいです　^^;
また何かありましたらどうぞよろしくお願いいたします！

回答No.2

imogasi

VBAでは１/１００という意味で、％は使えないようだ。
0.04を掛けざるを得ないようだ。
ーー
Sub test01()
MsgBox Range("A1") * 4
End Sub
で４のところを４％で入れると４になってしまう。
％は整数変数の記号（初期旧Basic時代から）だからだと思う。
ーー
Const 4% = 0.04も変数名が４から始まるのでダメ
ーー
Sub test01()
Const c4% = 0.04
MsgBox Range("A1") * c4%
End Sub
もダメだった。
％は整数変数の記号（旧Basic時代から）のせいだと思う。
ーーー
苦肉の策
Sub test01()
Const c4pct = 0.04
MsgBox Range("A1") * c4pct 'c4Percentとか
End Sub

お礼

imogasi様、ありがとうございました。できました！