我需要一个不停止宏的消息框。有没有办法插入一个断行,就像 msgbox 的"vbNewLine"一样?
这些都不起作用:
Chr(13)
Chr(10)
vbLf
vbCr
vbCrLf
vbNewLine
"<br>"
Function mshta(ByVal MessageText As String, Optional ByVal Title As String, Optional ByVal PauseTimeSeconds As Integer)
'mshta.exe as an alternative for msgbox
'[...] some other stuff
Dim ConfigString As String
Set WScriptShell = CreateObject("WScript.Shell")
ConfigString = "mshta.exe vbscript:close(CreateObject(""WScript.Shell"")." & "Popup(""" & MessageText & """," & PauseTimeSeconds & ",""" & Title & """))"
WScriptShell.Run ConfigString
End Function
如果我计算函数:
mshta "Hello<magic?>World"
我希望它显示:
Hello
World
这是一个支持使用 API 调用而不是 WScript.Shell 并在 Excel VBA 中工作的回车解决方案。它支持标准枚举参数(如 vbQuestion + vbYesNo
),并且可以返回用户响应。 如果发生超时,则返回32000
。
这也具有在与应用程序相同的显示器上显示弹出窗口而不是主显示器的优点。
' This part needs to be at the top of a VBA module
#If Win64 Then
Private Declare PtrSafe Function MsgBoxTimeout _
Lib "user32" _
Alias "MessageBoxTimeoutA" ( _
ByVal hwnd As LongPtr, _
ByVal lpText As String, _
ByVal lpCaption As String, _
ByVal wType As VbMsgBoxStyle, _
ByVal wlange As Long, _
ByVal dwTimeout As Long) _
As Long
#Else
Private Declare Function MsgBoxTimeout _
Lib "user32" _
Alias "MessageBoxTimeoutA" ( _
ByVal hwnd As Long, _
ByVal lpText As String, _
ByVal lpCaption As String, _
ByVal wType As VbMsgBoxStyle, _
ByVal wlange As Long, _
ByVal dwTimeout As Long) _
As Long
#End If
Sub TestMsgbox()
Dim ReturnValue
ReturnValue = MsgBoxTimeout(0, "Do you like this message?" & vbCrLf & "This message box will be closed after 4 seconds." & vbCrLf & vbCrLf & "(See Immediate window for return value)", "Return Choice", vbQuestion + vbYesNoCancel, 0, 4000)
Select Case ReturnValue
Case vbYes
Debug.Print "You picked Yes."
Case vbNo
Debug.Print "You picked No."
Case vbCancel
Debug.Print "You picked Cancel."
Case 32000
Debug.Print "Timeout before user made selection."
End Select
End Sub
更多信息:https://www.extendoffice.com/documents/excel/3836-excel-message-box-timer-timeout.html