Question

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

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

提前多多感谢！

Answer 1

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实例添加检查来更改它使其适用于特定工作表。

Answer 2

以下是将电子表格滚动到所需单元格的方法：

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 个答案: