用戶表單計算VBA excel

Question

我有一個包含combox和兩個文本框的用戶表單 用戶從combobox1中選擇一個化學文本並輸入文本框1（數字）中的化學品高度。 然後根據他選擇的化學品，我定義了化學品罐的密度和麪積。 然後我需要計算：textbox2.value =密度*面積* textbox1.value 密度和麪積是不同的每一個化學品。 該公式是質量=密度*面積*體積。 我試圖此代碼： 私人小組ComboBox1_Change（） 昏暗化學作爲字符串

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) 

此外，密度和音量已經是雙倍數，您不需要使用CDbl轉換它們。

你應該花時間重新命名你的控件。我建議txtHeight但您的描述不清楚文本框是否包含高度，面積或體積（？）。