Excel通过下拉菜单实际工作簿跳转

1、第一步：选择“数据”工具栏，选择“数据有效性,会弹出一个对话框，在“设置”这个标签中，按照下图所示选择：

2、第二步：在“允许”中选择“序列”，取消“忽略空值”复选框，如果选中该选项，生成的下拉列表首项是空值；在“来源”中输入各下拉选项，以逗号分割，也可以点右端图标选择已有的单元格的值。点击确定就可以了。

3、第三步：实现跳转 选择上面做的下拉列表所在的单元格，按Alt+F11，会弹出Excel宏编乩态祗嚆辑窗口，在弹出的窗口左侧双击下拉列表所在工作表，在右侧弹出的空白窗口中输入下面的代码：Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address(0, 0) = "J1" Then If Target.Value <> "" Then str1 = Target Sheets(str1).Select Sheets(str1).[J1].Value = str1 End If End If Application.EnableEvents = TrueEnd Sub

4、第四步：保存代码，即完成工作表跳转了。