求助：如何用VB实现读取Excel数据赋值给列表框？

xxxn118

Private Sub List1_Click()
Sheets("Sheet1").Select
Dim strRead As String
strRead = Range("A1").Value
List1.AddItem strRead
End Sub
列表框没有数据显示
请各位大虾帮忙修改一下~

wayy

1. Private Sub UserForm_Initialize()
   
2.   ListBox1.AddItem Range("A1")
   
3. End Sub

复制代码

列表框内容要在这里面加。