Excel中添加下拉列表，实现单元格和工作表跳转

    最近帮朋友研究这个问题，学会了一招，共享给大家。

    1、添加下拉列表

        以excel2007为例，选择“数据”工具栏，，选择“数据有效性”，会弹出一个对话框，在“设置”这个标签中，按照下图所示选择：

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

 

    2、实现跳转

        选择上面做的下拉列表所在的单元格，按Alt+F11，会弹出Excel宏编辑窗口，在弹出的窗口左侧双击下拉列表所在工作表，在右侧弹出的空白窗口中输入下面的代码：

Private Sub selectChange(ByVal Target As Range)
     If Target.Address = "$G$2" Then 'G2是下拉列表所在单元格的位置
     Sheets(Target.Value).Select '跳转到下拉列表当前选项对应的工作表，前提是选项值和工作表名要一致

    End If
End Sub

 

   

    保存代码，即完成工作表跳转了。

单元格跳转同这个类似，示例代码如下：

Private Sub selectChange(ByVal Target As Range)
     If Target.Address = "$G$2" Then 'G2是下拉列表所在单元格的位置
     If Target.Value = "Sheet2" Then [C79].Select  'C79是想要跳转到的单元格位置，根据实际需要设置 
     If Target.Value = "Sheet3" Then [D79].Select  'D79是想要跳转到的单元格位置，根据实际需要设置  

    End If
    End If
End Sub