Показать выбор в левом верхнем углу таблицы

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 в коде.