消息警告以外 MsgBox 在 Excel?

如果要显示消息，无需与用户交互 , 您可以创建自定义形状并显示它。

以前

, 这意味着在显示表单后，正常执行 VBA 继续。

例子 /表格 = "UserMsgBox", 标签 = "Label1"/

Sub Test//

 UserMsgBox.Show vbModeless



 UserMsgBox.Label1.Caption = "This is my 1st message to you"

 UserMsgBox.Repaint

 Application.Wait Now + TimeValue/"00:00:02"/



 UserMsgBox.Label1.Caption = "This is my 2nd message to you"

 UserMsgBox.Repaint

 Application.Wait Now + TimeValue/"00:00:02"/



 UserMsgBox.Label1.Caption = "This is my 3rd and last message to you"

 UserMsgBox.Repaint

 Application.Wait Now + TimeValue/"00:00:02"/



 UserMsgBox.Hide



End Sub

其次，您可以在应用程序窗口底部的状态字符串区域中显示文本。 Excel 通过

Application.StatusBar = "My bottom line message to you"

我宁愿使用 OnTime 用于规划任务，不使用 Wait. 等待可以防止所有其他行动 Excel. 因此，用户应该等到直到形式消失。 从 OnTime 用户仍然有机会在同时做某事。 所以这是我的报价 /也使用正式的方法/:

Public Sub showform//



Load UserForm1

UserForm1.StartUpPosition = 0

UserForm1.Left = Application.Left + Application.Width * 0.9 - UserForm1.Width

UserForm1.Top = Application.Top + Application.Height * 0.9 - UserForm1.Height

UserForm1.Show /False/

Application.OnTime Now + TimeValue/"0:00:05"/, "closeform"



End Sub



Public Sub closeform//



UserForm1.Hide

Unload UserForm1



End Sub

您可以使用此类型的消息窗口而不是标准 VBA MsgBox. 它支持 Unicode

Application.Assistant.DoAlert "Hoc Excel Online Title", "your message", 0, 4, 0, 0, 0

回答本问题，请参阅以下所有类型列表的链接以下 msgbox

使用的语法也是低希望它会有所帮助！

MsgBox/"Some Text", vbCritical, "Message title"/

https://msdn.microsoft.com/en- ... .aspx
舟