求助高手，EXCEL的有条件退出？

来源：百度知道 编辑：UC知道 时间：2024/06/05 18:09:25
怎么用VBA实现：
在退出excel表格前，有一个程序会自动触发，这个程序可以实现：若A列中的单元格的背景颜色存有指定的红色时，则
1. 弹出提示框"仍存在红色！！"语句
2. 不能退出，直到所有的背景都不存在这个指定的颜色才能退出。

能贴个做好的附件给我最好了，谢谢！
就剩下这么点分 差不多全给你吧～

在“ALT”+“F11”进入VBA编辑窗口，双击ThisWorkbook，把以下代码复制到右面窗体内，保存即可（注意把宏安全性设为中或低）：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For i = 1 To 65536
If Cells(i, 1).Interior.ColorIndex = 3 Then '颜色值3为红色，需要其他颜色自己定义
MsgBox "A列仍存在红色！不能退出EXCEL！"
Cancel = True
Exit For
End If
Next i
End Sub

你的意思是不要有不符合条件的存在,所以只要用数据有效性就行了

HI我吧

回答者： winnerzjt - 高级经理 七级 2-21 08:13

数据有效性

貌似不是很容易 关注下