网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
excel吧 关注：281,485贴子：1,551,933
  • 2回复贴，共1页

【VB】求助：如何实现EXCEL表格不填写指定单元格就无法保存？


如图，我希望将红色框选的几个单元格设置为必填项，不填写就无法保存，使用了如下宏指令
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim EmpyNum As Integer
EmpyNum = 0
For i = 13 To 22
For j = 7 To 7
If (Trim(Worksheets(1).Cells(i, j)) = "") Then
EmpyNum = EmpyNum + 1
End If
Next
Next
If EmpyNum >= 0 Then
MsgBox "该填的单元格都没填写，不能保存文件"
Cancel = True
End If
End Sub
但是保存之后提示：该填的单元格都没填写，不能保存文件，也就是我设置的报错提示，但是相应单元格我都已经填写了内容，请问下是命令行的行列定位错了还是什么原因呢？


现更改命令如下，已可正常运行，但是请问如何指定多个单元格或者说如何划定区域呢？
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Worksheets("放假注意事项-宿舍撤离前安全检查checklist").Range("G13") = "" Then
MsgBox "Sheet1表的G13单元格不能为空！", , "提醒"
Worksheets("放假注意事项-宿舍撤离前安全检查checklist").Activate
ActiveSheet.Range("G13").Select
Cancel = True
End If
If Worksheets("放假注意事项-宿舍撤离前安全检查checklist").Range("G14") = "" Then
MsgBox "Sheet1表的G14单元格不能为空！", , "提醒"
Worksheets("放假注意事项-宿舍撤离前安全检查checklist").Activate
ActiveSheet.Range("G14").Select
Cancel = True
End If
If Worksheets("放假注意事项-宿舍撤离前安全检查checklist").Range("G15") = "" Then
MsgBox "Sheet1表的G15单元格不能为空！", , "提醒"
Worksheets("放假注意事项-宿舍撤离前安全检查checklist").Activate
ActiveSheet.Range("G15").Select
Cancel = True
End If
If Worksheets("放假注意事项-宿舍撤离前安全检查checklist").Range("G16") = "" Then
MsgBox "Sheet1表的G16单元格不能为空！", , "提醒"
Worksheets("放假注意事项-宿舍撤离前安全检查checklist").Activate
ActiveSheet.Range("G16").Select
Cancel = True
End If
If Worksheets("放假注意事项-宿舍撤离前安全检查checklist").Range("G17") = "" Then
MsgBox "Sheet1表的G17单元格不能为空！", , "提醒"
Worksheets("放假注意事项-宿舍撤离前安全检查checklist").Activate
ActiveSheet.Range("G17").Select
Cancel = True
End If
If Worksheets("放假注意事项-宿舍撤离前安全检查checklist").Range("G18") = "" Then
MsgBox "Sheet1表的G18单元格不能为空！", , "提醒"
Worksheets("放假注意事项-宿舍撤离前安全检查checklist").Activate
ActiveSheet.Range("G18").Select
Cancel = True
End If
If Worksheets("放假注意事项-宿舍撤离前安全检查checklist").Range("G19") = "" Then
MsgBox "Sheet1表的G19单元格不能为空！", , "提醒"
Worksheets("放假注意事项-宿舍撤离前安全检查checklist").Activate
ActiveSheet.Range("G19").Select
Cancel = True
End If
If Worksheets("放假注意事项-宿舍撤离前安全检查checklist").Range("G20") = "" Then
MsgBox "Sheet1表的G20单元格不能为空！", , "提醒"
Worksheets("放假注意事项-宿舍撤离前安全检查checklist").Activate
ActiveSheet.Range("G20").Select
Cancel = True
End If
If Worksheets("放假注意事项-宿舍撤离前安全检查checklist").Range("G21") = "" Then
MsgBox "Sheet1表的G21单元格不能为空！", , "提醒"
Worksheets("放假注意事项-宿舍撤离前安全检查checklist").Activate
ActiveSheet.Range("G21").Select
Cancel = True
End If
If Worksheets("放假注意事项-宿舍撤离前安全检查checklist").Range("G22") = "" Then
MsgBox "Sheet1表的G22单元格不能为空！", , "提醒"
Worksheets("放假注意事项-宿舍撤离前安全检查checklist").Activate
ActiveSheet.Range("G22").Select
Cancel = True
End If
End Sub


2025-08-16 02:21:51
广告
不感兴趣
开通SVIP免广告
我没用过这类功能，我用你的代码测试了下，根本就不触发，我也不知道原因。
仅就你代码来看，双重循环是多余的，直接写成(Worksheets(1).Cells(i,7)就可以省略一个循环。还有就是判断是否填写内容，可以用isempty函数，感觉比Trim(Worksheets(1).Cells(i, j)) = ""靠谱


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 2回复贴，共1页
分享到: