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

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

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