Sub ClearColumns() Dim lastRow As Long Dim i As Long lastRow = Worksheets("A").Cells(Rows.Count, "AT").End(xlUp).Row For i = 2 To lastRow If Worksheets("A").Cells(i, "AT").Value > 0 And Year(Worksheets("A").Cells(i, "BB").Value) <> Year(Date) Then Worksheets("A").Cells(i, "AU").ClearContents Worksheets("A").Cells(i, "AV").ClearContents End If Next i End Sub以上代码加上提示框“是否继续执行”,选是就执行,选否就退出
时间: 2023-07-19 12:20:35 浏览: 48
您可以在 Sub 的开头添加一个提示框来实现这个功能,代码如下:
```vb
Sub ClearColumns()
'提示框
If MsgBox("是否继续执行?", vbYesNo) = vbNo Then
Exit Sub
End If
'原有代码
Dim lastRow As Long
Dim i As Long
lastRow = Worksheets("A").Cells(Rows.Count, "AT").End(xlUp).Row
For i = 2 To lastRow
If Worksheets("A").Cells(i, "AT").Value > 0 And Year(Worksheets("A").Cells(i, "BB").Value) <> Year(Date) Then
Worksheets("A").Cells(i, "AU").ClearContents
Worksheets("A").Cells(i, "AV").ClearContents
End If
Next i
End Sub
```
在代码中,我们首先添加了一个提示框,如果用户选择“否”,则使用 `Exit Sub` 语句退出 Sub。如果用户选择“是”,则继续执行原有代码。
需要注意的是,MsgBox 函数会返回一个值,用于表示用户的选择。其中,`vbYesNo` 参数表示提示框中只显示“是”和“否”两个选项,返回值为 `vbYes` 或 `vbNo`。如果用户选择“是”,则返回 `vbYes`,否则返回 `vbNo`。
相关推荐
![docx](https://img-home.csdnimg.cn/images/20210720083331.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![docx](https://img-home.csdnimg.cn/images/20210720083331.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)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)