Fatal编程技术网
  • vba/
  • Vba 在电子表格的左上角显示所选内容

Vba 在电子表格的左上角显示所选内容

vba excel

Vba 在电子表格的左上角显示所选内容,vba,excel,excel-2007,Vba,Excel,Excel 2007,您好，有没有可能在excel-2007 vb中执行此类操作 例如，用户选择单元格或区域。。。。 假设单元格G13，现在该单元格将显示在图纸的左上角（即默认情况下A1所在的位置） 如果选择范围，范围的左上角将显示在工作表的左上角 提前多谢 ALT+F11 双击左侧树状视图（VBA内部）中的此工作簿。 将此代码粘贴到工作簿类中 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

您好，有没有可能在excel-2007 vb中执行此类操作

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

提前多谢

ALT+F11
双击左侧树状视图（VBA内部）中的此工作簿。
将此代码粘贴到工作簿类中

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）.地址更改为
Selection.Cells（1）.值


注意：工作簿中的所有工作表都会发生这种情况。您可以通过在代码中使用
Sh
实例添加检查来更改它，使其适用于特定的工作表。
以下是如何使电子表格滚动到所需的单元格：


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



我想你会发现这会让用户发疯，但你可能可以修改它以获得更友好的效果。
你的意思是用文本“G13”填充单元格A1，还是物理上自动滚动电子表格以使G13位于左上角？我是指第二个“滚动电子表格，使G13位于左上角？”