VBA運行完畢時會彈出一個警告窗口,怎麽關閉
时间: 2023-08-21 10:06:46 浏览: 62
要关闭 VBA 运行完毕时弹出的警告窗口,可以使用 `Application.DisplayAlerts` 属性来控制警告消息的显示。将该属性设置为 `False` 可以禁止显示警告消息。以下是修改后的代码示例:
```vba
Dim SourceSheet As Worksheet
Dim LastRow As Long
Dim i As Long
Application.DisplayAlerts = False ' 禁止显示警告消息
Set SourceSheet = ThisWorkbook.Sheets("场") ' 将 "场" 替换为实际的工作表名称
With SourceSheet
LastRow = .Cells(.Rows.Count, "O").End(xlUp).Row ' 获取 O 列最后一行的行号
For i = 2 To LastRow
If Not IsEmpty(.Cells(i, "O").Value) Then ' 判断 O 列中单元格的值是否为空
.Cells(i, "N").Value = "66" ' 在 N 列写入 "有到"
End If
Next i
End With
Application.DisplayAlerts = True ' 恢复显示警告消息
```
在上述代码中,我们将 `Application.DisplayAlerts` 属性设置为 `False`,禁止显示警告消息,以避免 VBA 运行完毕时弹出的警告窗口。在代码执行完毕后,将该属性恢复为 `True`,以便在其他操作中重新启用警告消息的显示。
请注意,请将 `"场"` 替换为实际的工作表名称。
如果您有任何其他问题,请随时提问。
相关推荐
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)