在Excel里想点击控件后，弹出对话框，经确认后再运行该控件指定的宏。
答案:2 悬赏:20 手机版
解决时间 2021-03-04 03:04
- 提问者网友：火车头
- 2021-03-03 20:52
在Excel里想点击控件后，弹出对话框，经确认后再运行该控件指定的宏。
最佳答案
- 五星知识达人网友：孤独入客枕
- 2021-03-03 22:02
请在宏清除数据之前，添加以下代码：
If MsgBox("请确认是否清除指定单元内容？按“否”取消。", vbYesNo, "提示：") = vbNo Then
End
End If
If MsgBox("请确认是否清除指定单元内容？按“否”取消。", vbYesNo, "提示：") = vbNo Then
End
End If
全部回答
- 1楼网友：往事埋风中
- 2021-03-03 22:31
在你录制的宏的最开始添加3行代码
Sub TEXT()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim i As Integer
i = MsgBox("是否要清除数据", 1, "数据清除")
If i = 2 Then Exit Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''
''''下面是你录制的东西
End Sub
Sub TEXT()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim i As Integer
i = MsgBox("是否要清除数据", 1, "数据清除")
If i = 2 Then Exit Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''
''''下面是你录制的东西
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯