Tag: messagebox

有没有办法将图像添加到VBA中的MessageBox？

我想知道是否有可能将图像添加到VBA的消息框主要，但如果没有任何其他语言。 MsgReply = MsgBox("InspectionCreator – Continue?", vbMsgBoxSetForeground + vbSystemModal + vbYesNo) If vbYes = MsgReply Then Listener.Connect2SW Else: End End If

VBA Excel-如何使用MS Excel中的取消buttonclosures？

我在Private Sub Workbook_BeforeClose(Cancel As Boolean)时运行macros，但是每当用户单击取消buttonmacros不应运行。 我一直遵循以下几行代码 Private Sub Workbook_BeforeClose(Cancel As Boolean) If Cancel = True Then MsgBox "You clicked on Cancel" ElseIf Cancel = False Then Call SDA End If 结束小组 但是，每当我按取消button它不显示任何MessageBox.Any帮助将不胜感激。

单击“否”replace文件时如何返回保存消息框

在Excel-VBA中，我使用以下代码保存文件： fullFileName = Application.GetSaveAsFilename(…) ActiveWorkbook.SaveAs fullFileName 这工作正常，直到所选的名称已经存在。 消息框然后提示：“文件是否应该被replace？”。 我想回答“ No ，并返回到上一个消息框并select另一个名称。 而是，单击No中断macros并产生一个错误。 我怎么能解决这个问题？ （网上有很多例子，展示了如何使用Application.DisplayAlerts=False来绕过这个消息框，然后保存，这不是我想要的！）

如果目标单元格中​​的公式超出特定值，则显示“消息框”的VBA代码

我试图写一个简单的macros来显示一个popup式窗口（vbOKOnly）如果一个单元格中的值超过了某个值。 我基本上有一个产品和折扣的工作表。 我在A1单元格中有一个公式，它将折扣显示为所有条目的有效折扣百分比（50％或.5）。 我正在寻找的代码是如果单元格A1的值超过所说的50％，则显示一个消息框，因为另一个单元格的input将折扣推到了50％以上。 谢谢！