В этомвопрос, он спрашивал о сочетании клавиш для переключения вкладок. Но это сочетание клавиш перемещает лист назад или вперед, что означает, что нажатие Ctrl+ PageUpна последнем листе не перемещает первый лист.
Есть ли сочетание клавиш, позволяющее осуществлять круговое переключение (как Ctrlв TabWindows)?
решение1
Это упрощенная версия того, что я описал в комментарии.
Sub SwitchSheets()
Dim NextSheet As Worksheet
Set NextSheet = ActiveSheet.Next
If NextSheet Is Nothing Then
ThisWorkbook.Sheets(1).Activate
Else
NextSheet.Select
End If
End Sub
На View
вкладке нажмите на Macros
, выберите SwitchSheets
, перейдите к Options
и установите для него горячую клавишу (удерживайте ее Shiftпри необходимости, чтобы добавить ее в аккорд).