Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Переход (активация) на последнюю активную книгу
 
#1
04.06.2026 12:14:10
Доброго дня!
Подскажите марос, пожалуйста, позволяющий при нажатии на кнопку активировать книгу, которая была активной последней
Изменено: evg_glaz - 04.06.2026 12:14:54
 
 
 
#2
04.06.2026 12:40:38
Код
Option Explicit
Private AppE As MyAppEvents

Private Sub StartEvents()
    Application.EnableEvents = True
    Set AppE = New MyAppEvents
End Sub

Private Sub StopEvents()
    Set AppE = Nothing
End Sub

Public Sub SelectPreviousWorkbook()
    On Error Resume Next
    Workbooks(AppE.DeactivatedWorkbookName).Activate
    On Error GoTo 0
End Sub


Private WithEvents myApp As Application
Public DeactivatedWorkbookName As String

Private Sub Class_Initialize()
 Set myApp = Application
End Sub

Private Sub myApp_WorkbookDeactivate(ByVal Wb As Workbook)
    DeactivatedWorkbookName = Wb.Name
End Sub
 
 
 
#3
04.06.2026 13:55:25
МатросНаЗебре, ничего не происходит
 
 
 
#4
04.06.2026 14:13:10
Цитата
написал:
ничего не происходит
Является ли следствием "ничего не делаю"?
 
 
 
#5
04.06.2026 14:18:59
Цитата
написал:
Является ли следствием
Из Вашего файла ничего не происходит по нажатию
 
 
 
#6
04.06.2026 14:24:45
Включите обработку событий StartEvents.
После этого по нажатию будет переходить на предыдущую активную книгу.
 
 
 
#7
04.06.2026 14:30:16
МатросНаЗебре, вроде включено (я пока в Вашем файле пытаю)
 
 
 
#8
04.06.2026 15:45:05
Не Application.EnableEvents = True, а процедуру StartEvents. Ладно уже не надо
Код
Option Explicit
Private AppE As MyAppEvents

Private Sub StartEvents()
    Application.EnableEvents = True
    Set AppE = New MyAppEvents
End Sub

Private Sub StopEvents()
    Set AppE = Nothing
End Sub

Public Sub SelectPreviousWorkbook()
    If AppE Is Nothing Then StartEvents
    
    On Error Resume Next
    Workbooks(AppE.DeactivatedWorkbookName).Activate
    On Error GoTo 0
End Sub
 
 
 
#9
04.06.2026 15:53:26
МатросНаЗебре, Спасибо большое!
 
 
 
#10
04.06.2026 16:45:58
МатросНаЗебре, первым открываю файл с макросом (1), потом другую книгу (2), после первого перехода с 2 на 1 по нажатию кнопки в 1 макрос не срабатывает и обратно на 2 не переходит, при последующих переходах работает отлично. В чем может быть дело?  
Изменено: evg_glaz - 04.06.2026 16:48:10
 
 
 
#11
04.06.2026 16:54:54
Цитата
написал:
В чем может быть дело?
Как бы это неожиданно не звучало, но дело в том, что не включена обработка событий StartEvents. Можно:
- нажать кнопку перед открытием (2). Нелогично, но сработает.
- взять код из прикреплённого файла, он нажмёт за Вас.
 
 
 
#12
04.06.2026 17:52:06
МатросНаЗебре, как надо! Благодарен за помощь!  
 
 
 
#13
05.06.2026 10:44:53
МатросНаЗебре, а возможно такое реализовать, чтобы после автоматического перехода из книги с макросом (1) в книгу (2), в 2 активировался одноименный (открытый в книге 1) лист (названия листов одинаковые в обоих файлах).
 
 
 
#14
05.06.2026 10:50:10
Код
Public Sub SelectPreviousWorkbook()
    If AppE Is Nothing Then StartEvents
    
    Dim ActiveSheet_Name As String
    ActiveSheet_Name = ActiveSheet.Name
    
    On Error Resume Next
    Workbooks(AppE.DeactivatedWorkbookName).Activate
    Sheets(ActiveSheet_Name).Activate
    On Error GoTo 0
End Sub
 
 
 
#15
05.06.2026 14:39:47
МатросНаЗебре, Отлично! Большое спасибо! Хороших выходных!  
 
 
 
#16
29.07.2026 09:05:29
МатросНаЗебре, добрый день!
Цитата
написал:
а возможно такое реализовать, чтобы после автоматического перехода из книги с макросом (1) в книгу (2), в 2 активировался одноименный (открытый в книге 1) лист (названия листов одинаковые в обоих файлах).
и далее активировалась одноименная (активная в файле 1) ячейка?
Спасибо Вам большое за периодическую помощь!!!
 
 
 
Страницы: 1
Читают тему
Наверх