接上一期，下面我为大家写一个读取当前工作表名称的代码，当我们有多个工作表且有些工作表没显示出来（非隐藏），可以通过VBA代码读取工作表名称到列表框控件ListBox1中，然后鼠标点击列表框控件ListBox1中的选项进而选择工作表！
（2）复制以下代码，粘贴在“读取工作表”按钮下。
—————-↓—————————————代码开始
Dim j As Long, drr()
ReDim drr(1 To Sheets.Count, 1 To 1)
For j = 1 To Sheets.Count
drr(j, 1) = Sheets(j).Name
Next j
If Sheets.Count >= 1 Then
ListBox1.List() = drr
Erase drr
End If
—————-↑—————————————代码结束
效果如下：
（3）复制以下代码，粘贴在“ListBox1”列表框控件下（通过双击ListBox1进入代码模式，或对着控件ListBox1按右键→查看代码）。
—————-↓—————————————代码开始
On Error GoTo line1:
For i = 0 To ListBox1.ListIndex
If ListBox1.Selected(i) = True Then
If ListBox1.List(i) <> "" Then
Sheets(ListBox1.List(i)).Select: Exit For: Exit Sub
End If
End If
Next
line1:
—————-↑—————————————代码结束
效果如下（特别注意，如果代码中引用的列表框控件名称ListBox1和列表框控件名称ListBox1不一致会运行错误。如果列表框控件的名称为ListBox3，则代码中的所有ListBox1改为ListBox3，比如下图红色方框内就有4处名字为ListBox1的，需要全部改为ListBox3）：
本次内容告一段落，欢迎留言交流，您的每一份点赞与支持，都是我坚持的最大鼓励。
这是 VBA 统计插件系列的第3期，教你搭建专属窗体基础框架，后续会持续更新更多进阶技巧、功能优化、实用拓展，手把手带大家把 VBA 统计插件打磨到极致！
下期解锁更多 VBA 统计干货，让你的统计工作更高效、更个性化！
