如何在保存前判断指定位置单元格是否填写完整并给予提示？

作者：绿色风分类：时间：2022-08-17 浏览：173

楼主
kevinchengcw

Q: 如何在保存前判断指定位置单元格是否填写完整并给予提示？
A: 通过在工作表的beforesave事件中加入如下代码即可实现这一目的，代码如下：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Arr
Dim N As Integer
Dim Str As String
Arr = Split("C2,F2,D4,F4,H4,C8,I8,E9,E10", ",") '定义要判断的单元格区域地址的数组
Str = "" '初始化记录未填写内容的单元格地址的字符串为空
For N = LBound(Arr) To UBound(Arr) '循环数组中各个项目
If Worksheets("sheet1").Range(Arr(N)) = "" Then Str = Str & Arr(N) & "," '判断对应工作表的对应单元格地址是否为空，如为空则将地址串接给字符串变量
Next N
If Str <> "" Then '判断字符串是否为空，不为空则证明有单元格是空白
Str = Left(Str, Len(Str) - 1) '修正一下字符串（去掉最后面的逗号）
Cancel = True '取消文件的保存
MsgBox "请填写好下面位置的单元格内容：" & vbNewLine & Str, 0, "提示" '提示未填写的单元格地址
End If
End Sub

以上代码放入thisworkbook中即可执行，对应地址可以自行修改为需要的单元格范围（也可以用range加range变量的方式，对于相连的多个单元格比较好用）。

2楼
い卋玑┾宝珼

挺实用的小例子

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表