用户表单中的VBA excel计算

Question

我有一个包含组合框和两个文本框的用户表单 用户从组合框1 中选择一种化学物质（文本）并在文本框1（数字）中输入化学物质的高度。 然后根据他选择的化学品，我定义化学品罐的密度和面积。 然后我需要计算：textbox2.value=density*area*textbox1.value 每种化学品的密度和面积都不同。 方程是质量=密度*面积*体积。 我试过这段代码： 私有子 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，但您的描述不清楚文本框是否包含高度、面积或体积（？）。