如何限制 Ctrl +以 Excel 工作表结束

Question

我在第 500 - 503 行插入了一些数据。我故意将数据放置在这些行中，因为这些行将在宏中使用，而不是在用户视图中使用。与用户相关的数据在第100行结束。

我隐藏了第500 - 503行，但按Ctrl + End后，光标移动到第499行。

我的要求是按Ctrl + End后，光标应该在最后第 100 行的单元格。

那么，我该怎么做？

编辑：感谢您的所有回答。许多人建议我再准备一张非用户相关数据的表，但我没有。另外我不应该有 vba 脚本。（应该之前给你这些条件......我的错！）

Answer 1

通过更好的隔离可以解决这个问题。

也就是说，设计供用户使用的工作表应限制为仅包含用户界面所需的元素。在这种情况下，只有用户应该看到的行。

任何需要保留在并非为用户直接使用而设计的工作表中的数据都应该位于其自己的工作表上，甚至可以对用户完全隐藏。

Answer 2

当然，您问题的具体答案是：捕获 Ctrl-END 键的使用。

您可以通过在工作表中指定以下事件触发器来轻松完成此操作：

Private Sub Worksheet_Activate()
    Application.OnKey "^{END}", "SuppressMe"
End Sub

Private Sub Worksheet_Deactivate()
    Application.OnKey "^{END}", ""
End Sub

另一个模块包含

Sub SuppressMe()
    ' you can be very creative here about line 100 or not 100
    MsgBox "Co-Cooooo :-P"
End Sub

另一个满足您所描述的要求并消除观察和抑制按键的需要的可爱方法是将导航限制为第 100 行。现在是 Ctrl-END会将用户置于第 100 行的最右列，并且 Ctrl-DOWN 也会被覆盖。事实上，用户无法越过第 100 行

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row > 100 Then
        Me.Cells(100, Target.Column).Select
    End If
End Sub

，但是......等等！难道真的没有办法了吗？ ...当然，用户仍然可以滚动超过第 100 行并检测到您的小第 500 行复活节彩蛋。因此，我 100% 同意之前关于不同策略的建议，因为

• 用户发现第 500 - 503 行被隐藏，可能会变得非常好奇为什么
• Ctrl-END 不是用户可以导航到第 100 行的唯一方法 -您需要抑制 END-DOWN （2 个键组合...您需要缓冲 END 并询问下一个键：您是 DOWN 吗...玩得开心！）
• 并且您正在浪费磁盘空间只为第 500 行存储一张包含如此多空白行的工作表

您可能有理由实施按键抑制器，但请始终记住，用户有许多不同的方法可以绕过它，这需要非常仔细地考虑。

Answer 3

这是 Excel 的内置行为，我认为您无法更改它。建议：

• 将隐藏数据放在同一工作簿的另一张工作表上。这确实是最干净的工作方式。
• 或者，使用Ctrl向下箭头或End向下箭头而不是Ctrl< kbd>结束。

Answer 4

正如其他人所说，将非用户数据分隔在不同的工作表上当然更好。

也就是说，您可以做的一件事是保护您的工作表并禁止访问锁定的单元格，只保留用户必须在其中输入解锁内容的单元格。

这样做可以防止 CtrlEnd 执行任何操作：它无法跳转到最后一个单元格，因为它被锁定，因此它不会执行任何操作。 （在 Excel 2007 上测试）

但是，将用户数据和非用户数据分离到不同的工作表中可能会更好。