在电子表格的左上角显示选择答案

【问题标题】：Display selection at upper left corner of spreadsheet在电子表格的左上角显示选择
【发布时间】：2009-07-22 08:19:58
【问题描述】：

你好，在 excel-2007 vb 中可以做这种事情吗...

例如用户选择单元格或范围.... 假设单元格 G13，现在该单元格将显示在工作表的左上角（即默认情况下通常 A1 所在的位置）在范围选择的情况下，范围的左上角将显示在工作表的左上角...

提前非常感谢！

【问题讨论】：

您是要在单元格 A1 中填充文本“G13”，还是要物理地自动滚动电子表格以使 G13 位于左上角？
我的意思是第二个“滚动电子表格，让 G13 在左上角？”

标签： vba excel excel-2007

【解决方案1】：

这是让电子表格滚动到所需单元格的方法：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False            
        ActiveWindow.ScrollColumn = Target.Column
        ActiveWindow.ScrollRow = Target.Row
    Application.EnableEvents = True
End Sub

我想你会发现这会让用户发疯，但你可以修改它以获得更友好的效果。

【讨论】：

【解决方案2】：

ALT + F11
双击左侧树视图中的 ThisWorkbook（在 VBA 内）。
将此代码粘贴到 WorkBook 类中

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Cells(1, 1).Value = Selection.Cells(1).Address
End Sub

将Selection.Cells(1).Address 更改为Selection.Cells(1).Value

注意：这将发生在工作簿内的所有工作表上。您可以通过在代码中使用 Sh 实例添加检查来更改它，使其适用于特定工作表。

【讨论】：