VBA - 输入框 - 用户表单

Question

这是我的代码：

qty = InputBox("Please enter the quantity to be added.", "Add Quantity")
Cells(row, 2) = qty
Description = InputBox("Please enter a description.", "Enter Description")
Cells(row, 3) = Description
Unitp = InputBox("Please enter a unit price.", "Enter UnitPrice")
Cells(row, 4) = Unitp
Amount = InputBox("Please enter an amount.", "Enter Amount")
Cells(row, 5) = Amount

Qty＆amp; Unitp在Excel中正确显示。但是，当我在Description输入框中输入字符时，它会抛出错误。但是如果我输入no。它会通过，但在Excel单元格中显示为FALSE。这是Descripton和{}的情况。 Amount。

有人可以帮忙吗？

Answer 1

您需要为它们声明变量以获取正确的输入，将其置于代码上方：

Dim qty as Integer
Dim Unitp as Double
Dim Description as String
Dim Amount as Integer

Answer 2

此问题已解决。我已经声明了其他变量的描述。刚将其改为形式描述为Desc＆amp;对Amount字段来说很明智。

工作得很好。

感谢您的帮助！