excel保存工作簿时提醒指定单元格不能为空解决方案

office教程网 2025-01-31 02:10:01 550

后台-插件-广告管理-内容头部广告位

后台-系统设置-扩展变量-手机广告位-内容正文顶部

摘要：

在工作中有时需要把设计好的电子表格给其他用户填写，表格中的一些单元格为必填项。虽然可以通过设置颜色、批注等方式提醒用户，但仍有一些用户会忘记填写。这时可以用通过下面的宏代码，当用户在保存工作簿时进行提醒，如果指定的单元格为空则不能保存工作簿。假如工作簿中“Sheet1”表的E6单元格为必填，步骤如下：

1.按Alt F11打开VBA编辑器，在“工程”窗口中双击“ThisWorkbook”。

利用VBA获取Excel最近使用的工作簿列表
下面的VBA代码可以获取Excel中最近使用的工作簿的完整路径和名称，并将其放到代码所在工作表的A列中。在Excel 2007和Excel 2010中，如果通过“Office按钮（或“文件”选项卡）→Excel选项→高级”设置显示“最近使用

2.在代码窗口中输入下列代码：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Worksheets("Sheet1").Range("e6") = "" Then
MsgBox "Sheet1表的E6单元格不能为空！", , "提醒"
Worksheets("Sheet1").Activate
ActiveSheet.Range("e6").Select
Cancel = True
End If
End Sub

当Sheet1表的E6单元格为空时，无论用哪种方式（如另存为、快捷键等）保存工作簿，Excel会弹出一个对话框提醒用户并跳转到指定的单元格。