Фокус MsgBox в Excel

Это будет работать в Excel независимо от того, какое другое приложение имеет фокус:

Перед окном сообщения или любым предупреждением поместите следующий код:

AppActivate Application.Caption
DoEvents

Поверьте мне, это потрясающе!

Я провел небольшое тестирование и нашел для вас потенциальную работу.

Я установил эту простую процедуру, чтобы проверить вашу ситуацию:

Sub test()
    If Application.Wait(Now + TimeValue("0:00:10")) Then
        MsgBox "Time expired"
    End If
End Sub

Я запускаю это, затем сворачиваю все окна, и когда таймер истекает, ничего не происходит. Если я переключаюсь на Excel, я вижу окно сообщения, но ничего другого.

Итак, я попробовал это:

Sub test()
    If Application.Wait(Now + TimeValue("0:00:10")) Then
        ThisWorkbook.Activate
        MsgBox "Time expired"
    End If
End Sub

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

Я думаю, что если добавить ThisWorkbook.Activate прямо перед кодом MsgBox, то же самое произойдет и в вашем файле.

Это не совсем то, что вам нужно, но, надеюсь, лучше, чем то, где вы находитесь.

* к сожалению, я не прочитал остальную часть вашего вопроса, я использовал AppActivate и работал, как ожидалось, и я использую MS Office Professional Plus 2010.

Я не мог заставить работать метод Guitarthrower, но смог заставить его работать в качестве примера. Вместо ThisWorkbook.Activate попробуйте AppActivate ("Microsoft excel"), затем MsgBox

Sub test()
    If Application.Wait(Now + TimeValue("0:00:10")) Then
        AppActivate ("Microsoft excel")
        MsgBox "Time expired"
    End If
End Sub

Похоже, процесс макроса делает приложение невосприимчивым. Не уверен, поможет ли это, но рассматривали ли вы возможность добавления DoEvents или Sleep (вызов API) в свой длительный процесс, чтобы вернуть управление ОС? Sleep — это вызов API, поэтому вам нужно объявить его в модуле, чтобы использовать его. DoEvents предотвращает блокировку приложения, но использует больше ЦП, поэтому, если оно находится в цикле, я буду обращаться к нему время от времени (30% или меньше итераций). Если это не цикл, и вы знаете, где находятся узкие места в вашем длительном процессе, вы можете вызывать DoEvents после каждого длительного процесса.

#If VBA7 And Win64 Then
' 64 bit Excel
Public Declare PtrSafe Sub Sleep Lib "kernel32" ( _
    ByVal dwMilliseconds As LongLong)
#Else
' 32 bit Excel
Public Declare Sub Sleep Lib "kernel32" ( _
    ByVal dwMilliseconds As Long)
#End If

Исходный код Sleep API

Затем в вашем процессе

Sub SomeLongProcessWithDoEventsExample()
   For i = 1 to 100000
       'Some lengthy code
       If i Mod 333 = 0 Then
          DoEvents
       End If
   Next i
End Sub

Sub SomeLongProcessWithSleepExample()
   For i = 1 to 100000
       'Some lengthy code
       If i Mod 333 = 0 Then
          Sleep 1 * 1000 'Millseconds
       End If
   Next i      
End Sub

Я бы предложил установить Application.ScreenUpdating = False, а затем снова включить его после завершения процесса, но это может усугубить ситуацию.

Обновить

Просто прочитайте комментарии, которые были введены при наборе моего ответа. Другим вариантом вместо окна сообщения может быть открытие окна папки, в которой файлы сохраняются после того, как все файлы были созданы (замените Environ$("APPDATA") на место сохранения):

Shell "explorer.exe" & " " & Environ$("APPDATA"), vbMaximizedFocus

ИЛИ откройте один из PDF-файлов:

Shell Environ$("COMSPEC") & " /c Start C:\SomeFile.pdf", vbMaximizedFocus

Другой вариант

Я не мог поместить это в комментарии, потому что было слишком много кода, но вместо этого сделайте вызов API к MessageBox, но не устанавливайте владельца окна сообщения (hWnd), установите его на &H0 или &O0. vbSystemModal должен вывести его на первое место. Я не знаю, позволит ли это вам выбрать окно приложения Excel после того, как пользователь нажмет «ОК»:

MessageBox &O0, "My Message", "My Caption", vbOKOnly + vbSystemModal


#If VBA7 And Win64 Then
Public Declare PtrSafe Function MessageBox _
    Lib "User32" Alias "MessageBoxA" _
       (ByVal hWnd As LongLong, _
        ByVal lpText As String, _
        ByVal lpCaption As String, _
        ByVal wType As LongLong) _
    As Long

#Else
Public Declare Function MessageBox _
    Lib "User32" Alias "MessageBoxA" _
       (ByVal hWnd As Long, _
        ByVal lpText As String, _
        ByVal lpCaption As String, _
        ByVal wType As Long) _
    As Long

#End If

Я пробовал больше всего других ответов:

• ThisWorkbook.Activate
• AppActivate()
• Application.Wait()
• Sleep библиотека

По какой-то причине ничего из вышеперечисленного не работает. Я считаю, что в нашей компьютерной среде существуют какие-то действительно специфические бизнес-настройки, которые могут создавать проблему. Как уже упоминалось, все вышеперечисленные решения, вероятно, должны работать на любой новой отформатированной установке Windows 7 с любой установленной версией Office 2010, даже в настройке с двумя мониторами. Так что +1 ко всем этим ответам. Кроме того, я заметил, что проблема возникает только в некоторых конкретных книгах. Действительно странное поведение, это может быть просто ошибка Office 2010, связанная с чем-то, что я делаю в своей книге (будь то VBA или просто Excel).

При этом мое реальное решение (которое на самом деле не является решением исходной проблемы) не использует MsgBox(). Существует несколько обходных путей, и я обнаружил, что Forms — лучший для меня. Поэтому вместо того, чтобы тратить больше времени на эту проблему, я придумал действительно простой следующий код, чтобы заменить мой оригинальный MsgBox():

Application.ScreenUpdating = False
frmMsgBox.Show
Application.ScreenUpdating = True

Я могу поместить любой текст в метку в frmMsgBox, а поскольку это Excel, я могу просто передавать параметры, используя скрытые ячейки.

Спасибо за помощь.