如何在excel vba中的窗体上显示工作表

我试图在表单上显示工作表，但直到现在我都没有成功。工作表包含15列和大约2000行。有人能帮我吗

构建一个表单，表单上有一个列表框，还有一个按钮。然后将此代码放入表单模块。按钮的名称应为CommandButton1，列表框的名称应为ListBox1

最后，在listbox控件上，将columncount更改为15

Private Sub CommandButton1_Click()
    Unload Me
End Sub


Private Sub UserForm_Initialize()
    ' Activate the sheet that has the data you want displayed in the listbox
    Sheet1.Activate
    ' Put the range of the data you want displayed.
    ' Here I used columns "A" to "O" and 2000 rows
    ListBox1.RowSource = "A1:O2000"
End Sub

---

在表单中插入一个

列表框

，并将

行源

设置为要显示的数据，怎么样？如果您愿意，您也可以使用

列表视图

：备选答案在这里：这里：当我使用列表框时，它只显示第一列。对于ListView，我得到的错误是“找不到ethod或数据成员”。对于你发布的另外两个链接，我试图根据我的需要修改最后一个链接的代码，但没有效果。你可以使用列表框的属性“ColumnCount”，并为其提供工作表中的列数。但我刚才注意到，列表框并没有显示所有列。我在尝试另一张有17列的表格的行代码，它只显示了15列。我还添加了ListBox1.ColumnCount=17，但在编辑器中打开表单时它不起作用。请看属性框。您必须将“属性”框中的属性物理更改为17。你不能用代码。