Как создать кнопку возврата в Excel

Question

Мне нужно создать кнопку возврата в Excel, которая позволяет пользователю вернуться к ранее просмотренному рабочему листу. Не уверен, как это сделать в VBA, любые мысли будут оценены.

Спасибо, Дейв.

Answer 1

Следующие действия выполняются в редакторе Visual Basic (Alt + F11).

В любом стандартном модуле, в самом верху (ниже любых операторов Option, которые вы можете иметь) поместите это ....

Код:

Public strLastSheet As String

в модуле рабочего листа скопируйте следующий код:

Код:

Sub GotoLastSheet()
On Error Resume Next
ThisWorkbook.Sheets(strLastSheet).Activate
End Sub

Введите следующий код в модуль ThisWorkbook вашей рабочей книги.

Код:

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
strLastSheet = Sh.Name
End Sub

На вкладке разработчика нажмите кнопку вставки (пустое поле в элементах управления формы). Назначьте макрос:«… GotoLastSheet»

Вы сделали. Переименуйте кнопку "Назад". Надеюсь, это поможет, Тед