在VBA项目窗口中,双击包含验证列表的工作表。这将打开该Worksheet的代码模块。粘贴此代码并将范围(“E1”)更改为正确的单元格地址。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Taget, Range("E1")) Is Nothing Then
On Error Resume Next
Sheets(Range("E1").Text).Select
On Error GoTo 0
End If
End Sub