VBA验证如果一个范围内的一个单元格有一个值，所有的单元格都应该有一个值

Question

我有一个电子表格，用户将在其中从 A 到 D 列中输入数据。我想在消息框中标识范围 (Ai:Di) 不是完全空白或完全填充的任何行 (i)。用户可以填充的总范围是 A2:D501。

如果没有识别出任何行，宏应继续执行我已经编写的下一段代码，然后继续保存工作簿。

一个转折 - C 列预先填充了 =IF(A2"",TODAY(),"")。因此，C 永远不会真正为空白。宏需要将上述公式视为空白，这样如果一行仅在 C 列中有该公式，则不会计算在内。

感谢您的帮助，我是新手！

Answer 1

类似的东西

Function Validate() as boolean
Dim WB as WorkBook
Dim WS as Worksheet
Dim CellA as Range
Dim CellB as Range
Dim CellC as Range
Dim CellD as Range
Dim RowNum as integer
Dim ErrorCnt as integer
Dim ErrorList as String
dim ValueCount as integer
set WB  = ThisWorkBook
Set WS = WB.Worksheets("SheetName")
ErrorCnt = 0
ErrorList = ""
For RowNum  = 2 to 501
    Set CellA = ws.Cells(RowNum, 1)
    Set CellB = ws.Cells(RowNum, 2)
    Set CellC = ws.Cells(RowNum, 3)
    Set CellD = ws.Cells(RowNum, 4)
    ValueCount  = 0
    If CellA.Value <> "" Then ValueCount = ValueCount +1
    If CellB.Value <> "" Then ValueCount = ValueCount +1
    If CellD.Value <> "" Then ValueCount = ValueCount +1
    If (ValueCount  >0 and ValueCount   <3) then 
        ErrorCnt = ErrorCnt +1
        If ErrorCnt = 1 Then
           ErrorList = Cstr(RowNum)
        Else
           ErrorList = ErrorList  & ", " & Cstr(RowNum)  
        End if
    End if
Next
If ErrorCnt = 0 Then
    Validate = True
ElseIf ErrorCnt = 1 Then
    MSgbox "1 Error on Row " & ErrorList 
    Validate = False
Else
    MSgbox cstr(RowNum) & " Errors on Rows " & ErrorList 
    Validate = False
End If
End Function

您还可以使用其他函数来进一步验证，例如，如果只有数字对 D 列有效，则将该行替换为

If isnumeric(CellD.Value) Then ValueCount = ValueCount +1