验证是否填写了必填字段

时间:2021-02-24 14:21:11

标签: excel vba

我有一个 excel 工作簿,它有 5 个静态选项卡,可以使用模板选项卡创建更多选项卡。 在每个选项卡中都有一个特定的字段或范围,在新创建的选项卡中也必须填写(最多 60 个)。

我的问题是我怎样才能看到,比如说在主表中,一个向我展示的摘要:

  1. 哪个标签缺少字段
  2. 缺少哪些字段(单元格的地址)

我尝试将范围命名为“MyRange”并计算单元格是否为非空白。 但这不适用于新创建的工作表。

我也尝试了条件格式,但同样不会给我一个摘要。

与此同时,我也遇到了一种解决方案,但这也不是我想要的:

Sub listEmptyCells()

    Dim emptyAddresses() As String
    Dim i As Long
    Dim ws As Worksheet
    Dim rng As Range
    
    Set ws = Sheets("1.Data Source") ' CHANGE AS NECESSARY
    Set rng = ws.Range("B30:B32")
    
    If WorksheetFunction.CountBlank(rng) = 0 Then
        MsgBox ("No empty cells in the range")
        Exit Sub
    End If
    
    emptyAddresses() = Split(rng.SpecialCells(xlCellTypeBlanks).Address, ",")
    
    For i = LBound(emptyAddresses) To UBound(emptyAddresses)
        ws.Cells(i + 1, 2).Value = emptyAddresses(i)
    Next i

End Sub

非常感谢您的帮助和指导

一切顺利 杰克

0 个答案:

没有答案