Рик столкнулся с проблемой при разработке макроса, который настраивает экран для ввода данных пользователем. Столбцы A: G всегда должны оставаться на экране, поэтому его макрос замораживает эти столбцы. Затем он дает команду перейти в столбец Z, чтобы начать ввод. При этом столбцы T: Z помещаются справа от закрепленных столбцов A: G. На самом деле Рик хочет, чтобы столбцы Z: AF отображались справа от A: G, но он не знает, как этого добиться.

Есть несколько способов достижения желаемых результатов. Первый — просто переместиться «мимо» желаемой цели, а затем вернуться к ней, как в следующем макросе:

Sub GotoCol1()

With Application         ActiveWindow.FreezePanes = False         Range("H1").Select         ActiveWindow.FreezePanes = True         .Goto Range("IV1")

.Goto Range("Z1")

End With End Sub

Важными строками кода являются те, которые используют метод Goto. Первый переход — к последней ячейке первой строки, а второй — к истинной цели Z1. Перемещаясь таким образом, столбец Z оказывается справа от замороженного диапазона A: G.

Хотя это работает нормально, лучшим решением было бы использовать параметр Scroll с методом Goto. Рассмотрим следующий пример:

Sub GotoCol2()

With Application         ActiveWindow.FreezePanes = False         Range("H1").Select         ActiveWindow.FreezePanes = True         .Goto Reference:=Range("Z1"), Scroll:=True     End With End Sub

Параметр Scroll является необязательным для метода Goto; по умолчанию — False. Если вы установите для него значение True, то Goto прокручивает окно, так что верхний левый угол целевого диапазона (Z1) появляется в верхнем левом углу окна.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2464) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и более поздних версий) здесь:

link: / excelribbon-Positioning_a_Column_on_the_Screen [Размещение столбца на экране].