Как сделать так, чтобы Excel открывался в первом столбце диаграммы, а не в крайнем правом углу?

Question

Каждый раз, когда я открываю очень большую таблицу Excel, она открывается в правой части графика (например, столбец Z, затем пустое пространство, а не начало (столбец A) диаграммы). Как я могу изменить это, чтобы показать столбец A первым?

Answer 1

Как указывалось в datatoo, местоположение последней активной ячейки влияет на то, где открывается рабочая книга. Если вы хотите убедиться, что он открывается в определенном месте, я предпочитаю ActivewWindow.ScrollIntoView. Потому что это на самом деле не меняет сохраненный выбор.

Private Sub Workbook_Open()
    ActiveWindow.ScrollIntoView 1, 1, 1, 1
End Sub

Это позволит прокрутить самый верхний левый угол вашего документа в верхний левый угол вашего окна.

Answer 2

Обычно это результат последнего расположения активной ячейки, когда файл был сохранен перед закрытием. Если у вас не запущен макрос для события Workbook_Open, который это меняет.

Если вы не возражаете против макроса в рабочей книге, или хотите заставить его, вы можете попробовать это

Private Sub Workbook_Open()
Range("A1").Select
End Sub

Answer 3

Благодаря datatoo, я добавил предложенную строку: Range("A1").Выберите сценарий, который у меня уже был запущен, чтобы отфильтровать рабочую книгу при открытии, и он отлично работает для размораживания областей, если выбранная ячейка находится в замороженной области, которую вы хотите отобразить. Спасибо!

Вот, для тех, кто хочет весь сценарий. Он не фильтрует рабочую книгу, а затем переходит к выбранной ячейке.

ЗАМЕЧАНИЯ ПО ИСПОЛЬЗОВАНИЮ:

• Измените « F1 » на ячейку в диапазоне, который вы хотите отображать на открытии.
• Это используется в таблице, созданной в Excel, под названием "Задачи".
• Измените « Задачи » на имя вашей таблицы.

• Важно повторить строку автофильтра, потому что первый экземпляр удаляет все фильтры, а второй возвращает их обратно, но без выбора.

  Sub Auto_Open()
  ActiveSheet.ListObjects("Tasks").Range.AutoFilter
  ActiveSheet.ListObjects("Tasks").Range.AutoFilter
  Range("F1").Select
  End Sub}