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

目录

题

码

复合框（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