Question

所以我是编程新手（2周）。我正在制作一个数据框来查找项目的总价。我使用文本框，复选框和按钮来查找总数。

我输入了柠檬和橙子的数量，当我按下按钮时，它根据从纸张中提取的价格计算出它的成本。

现在我把复选框放了，因为有一个设定数量。我想在检查时将“糖”的价格加到总价中。

有人可以帮助我将复选框添加到总价中吗？

例如，数据框如下所示：谢谢enter image description here

新代码几乎按我希望的方式工作。谢谢你的建议，我试着参考表格，它给了我错误。但它现在就是这样的。

- 当我在输入框中输入数字并按下计算时，它会给我正确的总数。 - 当我选中复选框时，它会增加总数，但是当我按下“计算”时，计算总数而不包括复选框。 - 当我按下多个复选框时，例如：选择“Checksugar”，然后选中“checkbox2”，总数只会添加“Checkbox2”的值。然后当我再次按“Calc”时，总计忽略复选框。

我想要它做什么：当我选择多个复选框时，我希望总计添加而不是相互替换。我还希望代码在我按“Calc”而不是输入框的总数时给出总值。

我认为我需要做的是：有些人如何在“TxtTotal”中添加If语句，但我不知道该怎么做。或者有多个If语句。

有人可以帮忙吗？

Private Sub Calculate_Click（）

TxtTotal = TxtLemon *范围（“E21”）。值+ TxtLime *范围（“E20”）。值_ + TxtOranges *范围（“E19”）。值_ + TxtApple *范围（“E25”）。值_ + TxtCactus *范围（“E24”）。值

End Sub

Private Sub Checksugar_Click（）如果Me.Checksugar.Value = True那么

TxtTotal = TxtLemon * Range("E21").Value + TxtLime * Range("E20").Value _

+ TxtOranges * Range（“E19”）。值_ + TxtApple *范围（“E25”）。值_ + TxtCactus *范围（“E24”）。值+范围（“E22”）。值

结束如果结束子

Private Sub Checkbox2_Click（）如果Me.Checkbox2.Value = True那么

TxtTotal = TxtLemon *范围（“E21”）。值+ TxtLime *范围（“E20”）。值_ + TxtOranges *范围（“E19”）。值_ + TxtApple *范围（“E25”）。值_ + TxtCactus *范围（“E24”）。值+范围（“E27”）。值

结束如果结束子

Answer 1

 IF CheckSugarValue.Value = True Then
       'do stuff
        TxtTotal.Value = TxtTotal.Value + ThisWorkbook.Sheets("your sheet name).Range("E22").Value
 End if

你有一个正确的非参考资料的不良习惯。既然你是最好的，现在可以理解，同时你可以养成良好的习惯。将控制对象内容转换为可用值通常使用＆＃34; .Value＆＃34;通常大多数人会将这些值存储在变量中。你没有明确地引用工作表名称会让你遇到一些大问题b / c模糊引用会使编译器看错表。我就像在我的例子中那样养成了长期做的习惯。

VBA新手有复选框问题

1 个答案: