EXCEL中用VBA实现有选择的控制必输

在使用EXCEL作数据模板的时候，经常会碰到有些字段要求必须输入，但EXCEL没有控制必输的有效机制，使用数据有效性只能在编辑状态下检查数据的有效性，效果往往不理想所以，我使用VBA在数据保存和表格关闭时检查必输字段，可以有效的控制数据模板的完整性；现分享给大家，希望对大家有所帮助！

效果如图：

在保存或关闭时，如果单位名称已输入，但是分组不有录入则提示必输消息，并取消数据保存或取消关闭；

代码如下：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

'---定义数据检查范围变量

Dim sRange As Range

'---定义行状态标记数组

Dim array1() As String

ReDim array1(500)

'---检查工作表名称

If ThisWorkbook.ActiveSheet.Name = "公共资源" Then

'---循环检查范围内的数据

  For Each sRange In Range("c4:d20")

'---不同列的检查

    Select Case sRange.Column

    Case 3   '---主键列用于设置检查标记，有主键的列进行数据完整性检查，无主键不作检查

      If sRange.Value <> "" Then

      array1(sRange.Row) = "1"

      End If

    Case 4   '---要检查的数据列

      If array1(sRange.Row) = "1" Then  '---检查主键存在标记

        If sRange.Value = Empty Then    '---判断是否有数据

          MsgBox "请先在 " & sRange.Address(sRange.Row, sRange.Column) & " 单元格输入内容再保存", vbExclamation

          Cancel = True                 '---设置取消标记，不作数据更改保存

          Exit Sub

        End If

      End If

    End Select

  Next

End If

End Sub