TextBoxの値を使った計算式

質問

皆様、こんにちは。
いくつかのテキストボックスを含んでいるユーザーフォームを作りました。ユーザーがこれらのテキストボックスに入力したデータを使った式をあるセルに設定しようとしていますが、「＃NAME?」というエラーメッセージが出てしまいます。コードは以下のように書いています。
Private Sub CommandButton1_Click()
Range("P24").Value = TextBox8.Value
Range("Z24").Formula = "=Val(TextBox8.Text)*37.86"
Range("AA24").Formula = "=Val(TextBox8.Text)*57.86/1000*44/12"
Range("AB24").Formula = "=Val(TextBox1.Text)*37.86/1000*0.25+Val(TextBox3.Text)/0.11*0.013+Val(TextBox4.Text)*/0.12*0.0076+Val(TextBox5.Text)/0.25*0.015+Val(TextBox6.Text)/0.31*0.017+Val(TextBox7.Text)/0.22*0.013"
　Unload 軽油の消費量
End Sub

何方か詳しい方に正しい書き方を教えていただければ非常に助かります。

どうぞよろしくお願いいたします。

回答No.3

myRange · ベストアンサー

＞Range("Z24").Formula = "=Val(TextBox8.Text)*37.86"

この時のセルZ24を数式バーで確認すれば分かると思います。

先ず、エクセルには、VALという関数はありません。
使うなら、VALUE　です。
VALはＶＢＡの関数です。
また、TextBox8とコントロール名もダメです。
上記式は、２つエラーがあるということですね。

また、VALUEはわざわざセルの式に入れる必要はありませんよね。

'---------------------------------------------　
Private Sub CommandButton1_Click()
　Range("P24").Value = TextBox8
　Range("Z24").Formula = "=" & Val(TextBox8) & "*37.86"
　Range("AA24").Formula = "=" & Val(TextBox8) & "*57.86/1000*44/12"

Range("AA24").Formula = _
　　"=" & Val(TextBox1) & "*37.86/1000*0.25" & _
　　"+" & Val(TextBox3) & "/0.11*0.013" & _
　　"+" & Val(TextBox4) & "/0.12*0.0076" & _
　　"+" & Val(TextBox5) & "/0.25*0.015" & _
　　"+" & Val(TextBox6) & "/0.31*0.017" & _
　　"+" & Val(TextBox7) & "/0.22*0.013"

Unload 軽油の消費量
End Sub
'------------------------------------

それから長い式は上記のように改行した方がいいでしょう。

お礼

myRange様、hana-hana3様、kybo様、ありがとうございました。
myRange様がおっしゃっているように、Valを式の中に入れなくても、動きました。
Range("AB24").Formula = "=" & TextBox1.Text & "*37.86/1000000*0.25"
のように書いてみたら、エラーが出ずにうまくいきました！
本当にありがとうございました！

回答No.2

hana-hana3

Range("Z24").Formula = "=Val(" & TextBox8.Text & ")*37.86"
Range("AA24").Formula = "=Val(" & TextBox8.Text & ")*57.86/1000*44/12"
Range("AB24").Formula = "=Val(" &TextBox1.Text & ")*37.86/1000*0.25+Val(" & TextBox3.Text & ")/0.11*0.013+Val(" & TextBox4.Text & ")*/0.12*0.0076+Val(" & TextBox5.Text & ")/0.25*0.015+Val(" & TextBox6.Text ")/0.31*0.017+Val(" & TextBox7.Text & ")/0.22*0.013"

回答No.1

kybo

""の中にTextBox8.Text等を記載してはいけません。
以下のようにします。（数式があっているかどうかは確認していません）

Private Sub CommandButton1_Click()
Range("P24").Value = TextBox8.Value
Range("Z24").Formula = "=Val(" & TextBox8.Text & ")*37.86"
Range("AA24").Formula = "=Val(" & TextBox8.Text & ")*57.86/1000*44/12"
Range("AB24").Formula = "=Val(" & TextBox1.Text & ")*37.86/1000*0.25+Val(" & TextBox3.Text & ")/0.11*0.013+Val(" & TextBox4.Text & ")*/0.12*0.0076+Val(" & TextBox5.Text & ")/0.25*0.015+Val(" & TextBox6.Text & ")/0.31*0.017+Val(" & TextBox7.Text & ")/0.22*0.013"
Unload 軽油の消費量
End Sub