用VBA实现Excel中某单元格不能为空
其实代码是很简单的，只需要在ThisWorkbook里添加如下代码就OK了：Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Len(Worksheets("医学").Range("A1")) = 0 Then ‘判断医学这个SHEET的A1单元格是否为空 Msg
·
其实代码是很简单的，只需要在ThisWorkbook里添加如下代码就OK了：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Len(Worksheets("医学").Range("A1")) = 0 Then ‘判断医学这个SHEET的A1单元格是否为空
MsgBox "A1 Is Null", vbExclamation + vbOKOnly ’空的话，就报提示
Cancel = True
End If
End Sub
讨论HarmonyOS开发技术，专注于API与组件、DevEco Studio、测试、元服务和应用上架分发等。
更多推荐
1
0- 0
已为社区贡献1条内容
所有评论(0)