作者：绿色风
分类：
时间：2022-08-17
浏览：131
楼主
omnw |
Q：指定的单元格未全部填充时如何禁止保存？
A：
工作表中指定的单元格未全部填充完毕时，保存工作簿时将会给出未填充的项目（非单元格）的列表，同时取消本次保存操作。
- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
- Dim Arr As Variant
- Dim MyName() As String
- Dim i As Integer
- Dim rng As Range
- Dim N As Integer
- Dim Str As String
-
- Arr = Array("C2", "F2", "D4", "F4", "H4", "C8", "I8", "E9", "E10") '需要填充的单元格范围
- ReDim MyName(UBound(Arr) - LBound(Arr) + 1) '重新定义数组，用于存放项目的名称
- For N = LBound(Arr) To UBound(Arr) '获取项目名称
- Set rng = Range(Arr(N))
- Do While rng.Offset(0, -1).Row >= 1 '从待填充单元格向左一直查询第一个为空的单元格，作为项目名称
- If rng.Offset(0, -1) <> "" Then
- MyName(N) = rng.Offset(0, -1)
- Exit Do
- Else
- Set rng = rng.Offset(0, -1) '如果单元格为空，则继续向左
- End If
- Loop
- Next
- Str = ""
- For N = LBound(Arr) To UBound(Arr) '检查所有待填充的单元格，如果为空就记录下来。
- If Worksheets("sheet1").Range(Arr(N)) = "" Then Str = Str & MyName(N) & VBA.Chr(10)
- Next N
- If Str <> "" Then
- Str = Str & VBA.Chr(10) & "保存已经被取消！"
- MsgBox "请填写好下面内容：" & vbNewLine & Str, 0, "提示" '给出未正确填充的项目名称
- Cancel = True '取消保存
- End If
- End Sub
注：工作表中项目的名称位于待填充单元格的左侧。
 表格.rar
|
2楼
xmyjk |
学习了，谢谢O版 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一