根據另一列中的單元格值驗證一列中的單元格值

Question

我想驗證Excel中的三列。

1. 如果我在一列中提供值，而其余兩列將其保留為空，則對於其余兩列應拋出錯誤。
2. 如果我們將三列留空，則不應引發任何錯誤

這是我的代碼：

rowToValidate = ActiveCell.Row

colToValidate = ActiveCell.Column + 1

Dim celAdd As String
celAdd = rowToValidate + colToValidate

Answer 1

做到這一點的方法不同，但這是一種方法，假設各列是並排的。 您可以根據需要調整Offset 。

Sub Test()
    If Not IsEmpty(ActiveCell.Value) And _
           IsEmpty(ActiveCell.Offset(, 1).Value) And _
           IsEmpty(ActiveCell.Offset(, 2).Value) Then
        ' Do whatever you wanted to do
    End If
End Sub