Excel中添加下拉列表，實現(xiàn)單元格和工作表跳轉(zhuǎn)

pengx 2011-07-05

展開全文

最近幫朋友研究這個問題，學(xué)會了一招，共享給大家。

1、添加下拉列表

以excel2007為例，選擇“數(shù)據(jù)”工具欄，

，選擇“數(shù)據(jù)有效性”

，會彈出一個對話框，在“設(shè)置”這個標(biāo)簽中，按照下圖所示選擇：

在“允許”中選擇“序列”，取消“忽略空值”復(fù)選框，如果選中該選項，生成的下拉列表首項是空值；在“來源”中輸入各下拉選項，以逗號分割，也可以點右端圖標(biāo)選擇已有的單元格的值。點擊確定就可以了。最后形成的下拉列表如下圖：

2、實現(xiàn)跳轉(zhuǎn)

選擇上面做的下拉列表所在的單元格，按Alt+F11，會彈出Excel宏編輯窗口，在彈出的窗口左側(cè)雙擊下拉列表所在工作表，在右側(cè)彈出的空白窗口中輸入下面的代碼：

Private Sub selectChange(ByVal Target As Range)
If Target.Address = "$G$2" Then 'G2是下拉列表所在單元格的位置
Sheets(Target.Value).Select '跳轉(zhuǎn)到下拉列表當(dāng)前選項對應(yīng)的工作表，前提是選項值和工作表名要一致

End If
End Sub

保存代碼，即完成工作表跳轉(zhuǎn)了。

單元格跳轉(zhuǎn)同這個類似，示例代碼如下：

Private Sub selectChange(ByVal Target As Range)
     If Target.Address = "$G$2" Then 'G2是下拉列表所在單元格的位置
     If Target.Value = "Sheet2" Then [C79].Select  'C79是想要跳轉(zhuǎn)到的單元格位置，根據(jù)實際需要設(shè)置
     If Target.Value = "Sheet3" Then [D79].Select  'D79是想要跳轉(zhuǎn)到的單元格位置，根據(jù)實際需要設(shè)置

End If
End If
End Sub