在工作中有时需要把设计好的电子表格给其他用户填写,表格中的一些单元格为必填项。虽然可以通过设置颜色、批注等方式提醒用户,但仍有一些用户会忘记填写。这时可以用通过下面的宏代码,当用户在保存工作簿时进行提醒,如果指定的单元格为空则不能保存工作簿。假如工作簿中“Sheet1”表的E6单元格为必填,步骤如下:
1.按Alt+F11打开VBA编辑器,在“工程”窗口中双击“ThisWorkbook”。
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会弹出一个对话框提醒用户并跳转到指定的单元格。
,保存工作簿时提醒指定单元格不能为空tag: Excel教程,Excel学习,excel视频教程,电脑培训学习 - 办公软件学习 - Excel教程