Question

在我的用户表单中，我有一个文本框，只允许将数值输入到此文本框中，一旦输入数值并单击texbox旁边的按钮，就应该对数值进行计算并将其添加到我的列表框中。当我单击按钮添加数值时，我收到错误object required。下面显示了我如何尝试执行此过程

userInput= Textbox1.Value
List.AddItem executeFormula(userInput)

Function executeFormula(inputs As Integer)
    inputs = inputs * 5
End Function

我已经缩小了问题范围，功能完美无缺，但是当我尝试将功能添加到List.AddItem

的末尾时

Answer 1

您是否在代码顶部定义了Option Explicit？ List对象是否根据您在表单上的内容正确命名？我怀疑这是旧的VBA等效的空引用异常，VBA无法获得对该列表框的工作引用。

您可以尝试使用：

Set List = UserForm1.List ' or whatever the name of your form is.

Answer 2

两个小问题：

您的函数应通过函数名称
您应该明确添加 String

从空白的“表单样式”列表框开始：

Sub trewr()
    Dim lb As ListBox, ii As Integer
    Set lb = ActiveSheet.ListBoxes(1)
    ii = 56
    lb.AddItem (CStr(executeFormula(ii)))
End Sub

Function executeFormula(inputs As Integer) As Integer
    executeFormula = 5 * inputs
End Function

执行功能时对象需要错误

2 个答案: