vba - 用户表单中的VBA excel计算

Question

我有一个包含组合框和两个文本框的用户窗体，用户从组合框1 中选择一种化学物质（文本），然后在文本框1（数字）中输入化学物质的高度。然后根据他选择的化学品，我定义化学品罐的密度和面积。然后我需要计算： textbox2.value=density*area*textbox1.value 每种化学品的密度和面积都不同。方程是质量=密度*面积*体积。我试过这个代码： Private Sub ComboBox1_Change() Dim chem As String

chem = ComboBox1.Value
    mychem

End Sub
Sub mychem()
Dim density As Double
Dim volume As Double

If chem = "Sodium" Then
area = 22
density = 1.058
End If
If chem = "HCl 9%" Then
area = 22
density = 1.043
End If
If chem = "alum" Then
area = 70
density = 1.163
End If
If IsNumeric(Txtheight.Text) Then
                txtmass.Value = density *area * CDbl   (Txtheight.Value)

                   End If
end sub

Answer 1

密度和体积是变量，它们没有Value属性。

TextBox4.Value = CDbl(density) * CDbl(volume) * CDbl(TextBox8.Value)

此外，密度和体积已经是 Doubles，您无需使用 CDbl 转换它们。

你应该花时间重命名你的控件。我会建议txtHeight，但您的描述不清楚文本框是否包含高度、面积或体积（？）。