vba - 在电子表格的左上角显示选择

Question

嗨，是否有可能在 excel-2007 vb 中做这种事情......

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

提前非常感谢！

Answer 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

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

Answer 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您可以通过使用代码中的实例添加检查来更改它以使其适用于特定工作表。