Tag: msgbox

数据从工作表中拉出后，MsgBox会出现多次: 我想得到一些帮助下面的代码。我很新，但我认为这是一个简单的解决scheme，我只是无法将其他search的build议翻新到我的代码。 msgboxes工作正常，第一遍来检查文本框的值是否正确，但是当我检查一个表单的公式结果是否正确时，我得到5个消息框popup。希望这是有道理的，让我知道，如果你有任何build议！ `Private Sub SpeedCommand_Click() Dim ctl As Control If TextBox1AM180.Value > 12000 And TextBox1AM180.Value <> "" Then MsgBox "Rate Value is out of range for this boom. Ensure rate value is less than 12,000 lbs./acre", vbExclamation, "Main Bin Application Rate" Me.TextBox1AM180.SetFocus Exit Sub End If If (TextBox2AM180.Value > 120 Or TextBox2AM180.Value < […]

在msgbox显示时，在就绪模式下是否胜出？: 只是好奇。这是一个比较理论化（与Excel VBA相关）的问题。而不是试图解决一个特定的问题。我已经了解到，Excel已经准备好了，剪切，复制和其他模式。我只是想知道什么样的模式，当msgbox显示。如果它不在就绪模式，它是在什么模式？（可以剪切，复制模式还是别的？）

macros范围/特定单元格msg框: 你能帮我用macros吗？我有一个3代码，只显示我的信息框只有 – 特定的值。但是不为我工作。：/我不知道为什么。一些错误，我想使所有的范围和后显示我msgbox值时履行。有人知道吗？现在我已经显示我错误看图像 Public Sub found(worksheets) Dim found As Boolean Dim c As Range found = False For Each c In worksheets("data").Range("D155,D456,D757,D1058,D1359,D1660,D1961:D1964,D36811,D36813,D38015,D38617,D39219,D39821,D40423,D41025,D52576,D53178,D54984,D55586,D56790,D57392,D58897") If c.Value = 8 Then found = True c.Value = -1 End If Next If found Then MsgBox (" ZAHLASTE BALENÍ !!!") & vbCrLf & ("BALÍCÍ MNOŽSTVÍ […]

VBScript：等待Excel MsgBox，单击确定: 我写了一个VBScript，可以自动处理Excel工作簿。对于这些工作簿中的某些工作簿，MsgBox在打开时会被触发。这个消息框正在中断自动化。有没有一种方法来听取这个MsgBox在VBScript和“点击”确定，当它popup？

将内容从单元格移动到空格msgbox？: 我有一个有趣的问题 – 我试图写VBA代码，将采取一个单元格的内容，并把它放入一个msgbox。问题是我无法计算如何将回车符放入此string。我的代码看起来像这样。 Dim myMsg as string myMsg = Worksheets("Data").cells(1,1) msgBox myMsg 所以，如果单元格A1包含… THIS IS MY NEXT AND NOW THIS IS A NEW LINE …我怎么能强迫回车到那条线的中间？

在Excel中MsgBox以外的消息警报？: 有没有另一种方式来显示消息Excel以外的MsgBox？我正在考虑安全警报/启用macros警报样式。我可以使用相同的空间来显示一些文字吗？我试图通知用户，他们不需要点击一个button。干杯

当显示多个错误时，消息框取得行号: 每次在列“W”中插入文本时，我都使用此代码来接收错误消息。发生这种情况时，文本被删除，并出现一个信息框： “W行＆r＆”只能包含数字！“ 它告诉错误的行号。 r – 被设置为Target.Row 我的问题是，当我复制w10：w12范围内的文本时，我收到错误消息3次，这很好。但在消息框中，它只显示行号w10 – 3次，即“ 行W10必须只包含数字！ ”。我怎样才能让代码显示消息框w10，然后w11，最后是w12？ Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range Dim r As Long r = Target.Row Application.EnableEvents = False For Each cell In Target If Not Application.Intersect(cell, Range("w10:w10000")) Is Nothing Then If Not IsNumeric(cell.Value) Then MsgBox "The row W" & […]

显示一个2行的消息popupvba 6: 有没有办法在vba 6的popup窗口中显示2或3或4或n行消息？目前我的popup窗口（调用MsgBox函数）显示消息像这样： You did something wrong. Please enter valid input. 我希望它显示这样的消息 You did something wrong. Please enter valid input. 你能提供一个代码示例吗？许多thx提前，radu

MsgBox是/否Excel VBA: 我的VBA脚本中有一个Yes/No MsgBox ，它返回一个供用户回答的问题。每当按下“是”或“否”button时，除了运行相应代码的脚本之外， MsgBoxpopup另一个带有数字“6”或“7”的MsgBox 。如何禁用第二个MsgBox ？这是我的代码： Dim question As Integer question = MsgBox("Unfortunately, the Database has no sources regarding " & Category & " in " & country & ". Would you like to broaden your search and see all sources regarding " & country & "?", vbYesNo + vbQuestion, "Empty Sheet") […]

警告空单元格的用户，并根据前一列中的值指示位置: 我是VBA新手。我有一个我认为很简单的问题，但是我是愚蠢的。我必须生成一个MsgBox警告用户input空白单元格中的数据。我还必须通过指出前一列中的参数来提及空白单元格的目的地。其实我的excel列表非常大，但是，我上传的图片显示了我的需求。在列AI中已经input了公司的名字 – 法拉利，奥迪和兰博基尼，而在列BI中提到了他们各自的汽车。在C，D，EI提到了他们的月销量数字。如果用户没有input一个条目的销售数字，我们需要在检查数据有效性时提醒他。这个图片的信息应该是：请input售出的兰博基尼Aventador和兰博基尼Veneno的单位数量。在我的图像中，黄色突出显示未input数据。在我的文件中，我只有一列（只有一个月）的销售，但成千上万的行（汽车）。