我在单元格 R5 中创建了一个包含名称的下拉列表，我们称它们为 Name1 Name2 Name3。我希望当用户选择某个名称时，工作表将向下滚动到特定行。例如，如果选择了 Name 1，我希望它转到第 2 行，如果 Name2 选择第 10 行，Name3 第 18 行。该列表与我要滚动到的数据位于同一个工作表上。有什么代码可以用来做这个吗？
【问题讨论】：
Worksheet Change 事件，您可以在其中查看带有下拉菜单的单元格是否已更改。
您需要使用工作表事件来处理此问题。像这样的：
在具有输入范围的工作表的工作表模块中，输入此代码
Private Sub Worksheet_Change(ByVal Target As Range)
Dim InputRange As Excel.Range
Set InputRange = Me.Range("R5")
'// Check if the change is happening in your dropdown cell
If Not Intersect(Target, InputRange) Is Nothing Then
Select Case InputRange.Value
Case "Name1"
Application.ActiveWindow.ScrollRow = 2
Case "Name2"
Application.ActiveWindow.ScrollRow = 10
Case "Name3"
Application.ActiveWindow.ScrollRow = 18
Case Else
'//...
End Select
End If
End Sub
编辑：
如果您无法使其正常工作。尝试通过单击代码左侧的区域来添加断点。当代码流到达该点时，断点将停止执行。这是确定 Excel 是否正在尝试运行此代码块的一种方法。
【讨论】：
假设我们在 S 和 T 列中放置了一个小跳转表，例如：
行号在 T 列中。我们把R5中的下拉菜单和工作表代码区的如下代码：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim R5 As Range, v As String, r As Range
Set R5 = Range("R5")
If Intersect(Target, R5) Is Nothing Then Exit Sub
v = R5.Value
Set r = Range("S:S").Find(what:=v, After:=Range("S1"))
Application.Goto Range("A" & r.Offset(0, 1).Value)
End Sub
每当用户在单元格 R5 中选择一个新名称时，代码将跳转到列 T 中列出的行。
因为是工作表代码，所以安装非常容易，自动使用：
如果您有任何疑虑，请先在试用工作表上进行尝试。
如果您保存工作簿，宏将与它一起保存。 如果您使用的是 2003 年以后的 Excel 版本，则必须保存 文件为 .xlsm 而不是 .xlsx
要删除宏：
要了解有关宏的更多信息，请参阅：
http://www.mvps.org/dmcritchie/excel/getstarted.htm
和
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
要了解有关事件宏（工作表代码）的更多信息，请参阅：
http://www.mvps.org/dmcritchie/excel/event.htm
必须启用宏才能正常工作！
【讨论】：
Application.Goto Range("A" & r.Offset(0, 1).Value)，而不是Range("A" & r.Offset(0, 1).Select？
右键单击单元格。在弹出窗口的底部，您会找到“超链接”。点击它。另一个窗口打开。在那里选择工作表并输入您想要去的单元格号码。就这样。在此单元格中，出现超链接下给出的地址。如果你给它一个名字，这个名字就会出现。此后，每当您单击此工作表中的此单元格/名称时，您都会转到“超链接”下指定的工作表中的单元格。您可以在新位置输入数据。但是您将无法在按 Enter 键时返回此单元格。当您在新位置按“Enter”时，您会像往常一样转到该工作表中的下一个单元格。我使用另一个超链接返回。它对我有用。我希望这是 excel 提供的一种工具，可以根据超链接轻松跳转到新位置。希望不会有任何级联效应。我希望这正是您想要的。
【讨论】：
按键盘上的 TAB。它可能会起作用。试试看吧。
【讨论】：