Вы можете легко перемещаться между листами в книге, используя Ctrl + Pg Up и Ctrl + Pg Down. Что, если вы хотите использовать ярлык для перемещения между двумя конкретными несмежными листами, такими как Sheet1 и Sheet4? В этом случае лучше всего использовать макрос для прыжков.

При желании вы можете определить два макроса, которые будут выполнять прыжки. Один макрос перейдет на Sheet1, а другой — на Sheet4. Их было бы достаточно легко создать с помощью средства записи макросов, и вы могли бы назначить сочетание клавиш для каждого макроса.

Если вы ищете один ярлык для переключения между двумя листами, вы можете использовать такой макрос:

Sub JumpBetween1()

If ActiveSheet.Name = "Sheet1" Then         Worksheets("Sheet4").Activate     Else         Worksheets("Sheet1").Activate     End If End Sub

Макрос просто проверяет, какой лист отображается в данный момент.

Если это Sheet1, то отображается Sheet4. Во всех остальных случаях отображается Sheet1. Это удобно, но это означает, что если у вас в настоящее время отображается Sheet2, ярлык всегда будет отображать Sheet1. Возможно, вы не захотите, чтобы макрос выполнял какие-либо действия, если не отображается Sheet1 или Sheet4. В этом случае вам следует использовать этот вариант макроса:

Sub JumpBetween2()

If ActiveSheet.Name = "Sheet1" Then         Sheets("Sheet4").Activate     ElseIf ActiveSheet.Name = "Sheet4" Then         Sheets("Sheet1").Activate     End If End Sub

Обратите внимание, что единственное различие между двумя макросами заключается в том, что последний вариант использует ElseIf для проверки, отображается ли Sheet4. Это означает, что если отображаются какие-либо рабочие листы, кроме Sheet1 или Sheet4, макрос ничего не сделает.

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

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

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

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

Этот совет (9669) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Shortcut_to_Move_between_Two_Worksheets [Ярлык для перемещения между двумя рабочими листами].