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

在Excel中正确显示了Qty和Unitp 。 但是，当我在“ 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

这个问题已经解决。 我已经声明了一些其他变量的描述。 只是将其形式从“描述”更改为“描述”，以及“金额”字段的用法。

工作得很好。

感谢您的帮助！