Excel 列表框显示工作簿中的任何活动工作表

我有2个用户表单，一个用于在工作簿中选择工作表（工作表1、工作表2、工作表3…）的主页，还有一个用于在所选工作表中输入内容的页面。在另一个用于输入的页面上，我有一个列表框，我想用它来显示主页中任何选定页面中的当前数据。我得到了一个代码，允许主页上的组合框显示工作簿中当前的工作表，但问题是我无法编写代码，将主页中所选工作表中的数据填充到第二页的列表框中

用于将工作簿中的工作表显示到页面的组合框中的代码如下所示：

Private Sub UserForm_Initialize()

   Dim sh As Worksheet
   For Each sh In ThisWorkbook.Worksheets
   Me.cboUsername.AddItem sh.Name

   Next sh

End Sub

我尝试了以下几行以使工作表显示在第二页的列表框中，但没有成功：

Private Sub TicketUserForm_Initialize()
   lstDisplay.RowSource = Sheets(Homepage.cboUsername.Value)
   lstDisplay.ColumnCount = 9
End Sub

所附链接包含所述页面的预览

---

您需要类似于ListBox1.RowSource=“SheetName！RangeAddress”的内容。见@Siddharth Rout谢谢你的建议。但是，它只处理一个特定的工作表，但我需要一个允许listbox从任何选定的工作表填充数据的代码，如@SiddharthRout所说，您需要指定范围，所以类似这样：

lstDisplay.RowSource=Sheets（Homepage.cboUsername.Value）。范围（“A1:E5”）

。如果ColumnCount为5，则将显示5列（和5行）以及单元格A1至E5中的值。