我正在尝试生成一个弹出窗口，该弹出窗口会在给定的WaitTime几秒钟内关闭。
我尝试应用“ VBA Excel宏消息框自动关闭”中的方法；我的代码如下：
Sub TestSubroutine()
Dim TemporalBox As Integer
Dim WaitTime As Integer
Dim WScriptShell As Object
Set WScriptShell = CreateObject("WScript.Shell")
WaitTime = 1
TemporalBox = WScriptShell.Popup("The message box will close in 1 second.", _
WaitTime, "File processed")
End Sub
弹出窗口已显示，但一秒钟后不会关闭。
编辑#1
根据@Skip Intro评论，我更新了代码：
Sub TestSubroutine()
Dim WaitTime As Integer
WaitTime = 1
CreateObject("WScript.Shell").Popup "The message box will close in 1 second.", _
WaitTime, "File processed"
End Sub
然而，这并没有解决最初的问题，弹出窗口在 1 秒后没有关闭。 …
我正在尝试使用消息框,并尝试了一个简单的是/否消息框所以我编写了这段简单的代码.但是,无论我按什么按钮,"chc"变量总是返回1.我提供了代码,所以你可能会看到我做错了什么.这可能是非常错误的.
If MsgBoxResult.Yes Then
chc = 1
ElseIf MsgBoxResult.No Then
chc = 0
End If
MsgBox(chc)
标题可能通常很简单，但即使在网上搜索了几个论坛后，我也没有得到解决方案。
让我解释一下这个问题。
我有一个 excel 工作簿，其中很少有列使用 if 条件引用其他单元格。根据单元格的内容，定义单元格的背景颜色。例如。如果单元格为空白，它会自动变为红色。这些红色单元格表示缺少信息。所以我试图设计一个宏来识别这些红细胞并获取每个红细胞的地址。
为此，我使用了代码进行测试， MsgBox IIf(ActiveCell.Interior.ColorIndex = 3, "Yes", "No")
但这不起作用。原因是，无论它是什么颜色，宏都将颜色索引标识为 -4142。无论是白色还是蓝色或红色，它仍然显示-4142。
当我在论坛上问这个问题时，我被重定向到这个页面。
http://www.cpearson.com/excel/CFColors.htm
我测试了该页面中给出的功能。它适用于我创建的示例工作簿。但不在我试图验证的工作簿中。
请你帮助我好吗？
我正在尝试完成一个寻找“ #REF！”的简单宏。由于用户更改行并破坏了基础公式而导致工作表中出现错误。
我已经找到了：
Sheets("Location_Multiple").Select
Range("A1:AL10000").Select
Selection.Find(What:="#REF!", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
据我了解，我需要输入If参数为true
MsgBox"Please go back and check...."
我只是不确定如果...应该遵循什么...
任何指针将不胜感激。
我有一个小脚本运行(基本上触发一个msgbox告诉人们他们的帐户密码即将过期).
我希望它在说30分钟后关闭自己,但无法正确理解它,任何人都可以帮忙吗？
下面是调用msgbox的部分
if (daysLeft < warningDays) and (daysLeft > -1) then
Msgbox "Your Password Expires in " & daysLeft & " day(s)" & " at " & whenPasswordExpires & chr(13) & chr(13) & "Please ensure that you change your password before" & chr(13) & "its expiry time to prevent any disruption of service.", 4144, "PASSWORD EXPIRATION WARNING!"
End if
-
加文.
除了MsgBox之外,还有另一种在Excel中显示消息的方法吗？
我在考虑安全警报/启用宏警报样式.我可以使用相同的空间来显示一些文字吗？
我试图通知用户,他们不需要单击按钮.
干杯
我现在正在尝试编写一个 IF 语句来说明以下内容：如果文件超过 5 天，则不要运行宏。如果超过 5 天，请运行宏。
我希望这是一个是或否的对话框。这是我的代码。请帮忙。我还在努力学习这个vba代码。
Sub LastModifiedFile()
'Function FileLastModified(strFullFileName As String)
Dim fs As Object, f As Object, s As String, dtmodpath As String
dtmodpath = "\\jdshare\pdcmaterials\5_Tools\FTP\Cancelled_Report.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(dtmodpath)
's = UCase(strFullFileName) & vbCrLf
s = f.DateLastModified
FileLastModified = s
Set fs = Nothing: Set f = Nothing
Range("E5").Value = FileLastModified
'If FileExists(strFullName) Then
'MsgBox FileLastModified(strFullName)
'Else
'MsgBox "File Older than 5 Years : " & vbNewLine & strFullName
'End If …我一直在努力使手动过程更像是一次点击过程,而且我遇到了来自vbs脚本的这些msgbox弹出窗口的问题.基本上我使用的是powershell并做了类似的事情:
foreach ($loc in $locs):
& cscript $loc
$ locs中的$ loc是一个变量,其中包含需要运行的.vbs文件的路径.
问题是我们的一个开发人员在每个.vbs文件中包含两个msgbox语句,弹出这些语句并要求您单击确定.编辑vbs脚本并删除它们是微不足道的,但我不想改变我们的开发人员的脚本 - 所以问题是:是否有可能使PowerShell对从cscript行生成的msgbox做出反应？我不确定如何将盒子带入上下文或通过PowerShell对它做出反应.
我是 c# 新手，所以如果这是一个愚蠢的明显问题，或者我的措辞不好，我深表歉意。
我正在开发一个 VC# 项目，该项目需要非常频繁地使用 MsgBox() 和 InputBox() 方法，并且将整个内容输入出来或在代码中的其他地方找到它并复制粘贴它变得令人沮丧. 首先想到的是#define，但由于它是一个函数而不是一个常量/变量，我不确定如何做到这一点，或者是否有可能。
在此先感谢您的帮助。
我正在尝试使用 if 语句来检查空白并在存在空白字段时返回 msgbox。如果没有空白字段，它将运行另一个代码块。然而，即使您填写了所有字段，消息框也始终会返回，并且下一个代码块不会运行。我对 VBA 和一般编写代码还很陌生，所以任何建议都会有帮助。
有问题的代码：
'Check required fields
If IsEmpty(C3) Then
MsgBox ("Fill out all required fields")
ElseIf IsEmpty(C7) = True Then
MsgBox ("Fill out all required fields")
ElseIf IsEmpty(C9) = True Then
MsgBox ("Fill out all required fields")
ElseIf IsEmpty(C11) = True Then
MsgBox ("Fill out all required fields")
ElseIf IsEmpty(C13) = True Then
MsgBox ("Fill out all required fields")
ElseIf IsEmpty(C17) = True Then
MsgBox ("Fill out all required fields")
Else