目录
题
使用复合框制作一个工作表导航,以便实现工作簿及工作表的切换。
码
创建一个窗体,使用两个复合框制作二级下拉列表,其中一个作为当前打开的所有工作簿的列表,另一个作为所选中的工作簿中所有工作表的列表。
步骤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