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出错!有谁知道原因或解决方法吗??
...全文
1623打赏收藏
传递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出错!有谁知道原因或解决方法吗??