Excel 2010 VBA 入门 132 利用复合框制作工作簿/表导航

最新推荐文章于 2024-04-15 22:30:04 发布

原创

最新推荐文章于 2024-04-15 22:30:04 发布 · 2.9k 阅读

6 ·

CC 4.0 BY-SA版权

文章标签：

#Excel VBA

这篇博客介绍了如何使用Excel VBA中的ComboBox控件创建二级下拉列表，用于实现工作簿和工作表的便捷切换。通过在用户窗体中添加两个ComboBox，一个展示所有工作簿，另一个显示选定工作簿的工作表。详细步骤包括创建用户窗体、设置控件和编写代码。此外，还讲解了ComboBox控件的特点和如何设置为只读下拉列表。

题

使用复合框制作一个工作表导航，以便实现工作簿及工作表的切换。

码

创建一个窗体，使用两个复合框制作二级下拉列表，其中一个作为当前打开的所有工作簿的列表，另一个作为所选中的工作簿中所有工作表的列表。

步骤1 按组合键【Alt+F11】打开VBE。
步骤2 选择菜单“插入”→“用户窗体”，并在窗体中添加两个Label控件以及两个ComboBox控件，然后将Label控件的Caption属性分别设置为“工作簿”和“工作表”。

步骤3 在“工程资源管理器”中用鼠标右键单击之前插入的窗体，选择“查看代码”，并输入以下代码。

Option Explicit

Private Sub ComboBox1_Change()
    Dim sht As Worksheet
    With Me.ComboBox2
        If Me.ComboBox1.Value <> "" Then
            .Clear
            For Each sht In Workbooks(Me.ComboBox1.Value).Worksheets
                .AddItem sht.Name
            Next sht
        End If
    End With
End Sub

Private Sub ComboBox1_Enter()
    Dim wbk As Workbook
    With Me.ComboBox1
        .Clear
        For Each wbk In Workbooks