传递Listbox1出错
Private Sub UserForm_Click()
addItem Me.ListBox1, "ewrafsd"
End Sub
Function addItem(LB As ListBox, Value As String)
With LB
.addItem Value
End With
End Function
传递Listbox1出错！有谁知道原因或解决方法吗？？ VBA 自頂！！望高手能看到！！ 把函数中的As ListBox去掉吧 函数代码没有问题，可以运行。
1 检查 UserForm 是否有效的控件名称。
2 检查 ListBox1 是否有效的 ListBox 控件名称或该控件是否存在。
补充：VB , VBA
