Компактная проверка ошибок

Question

Есть ли элегантный способ написать, если A ИЛИ B ИЛИ C тогда X еще ничего не делает?Например,

If WorksheetFunction.CountA(Range("J:J")) <> SymbolCount Then
    MsgBox "Check column J in Estate worksheet for fill completion"
End If
If WorksheetFunction.CountA(Range("K:K")) <> SymbolCount Then
    MsgBox "Check column K in Estate worksheet for fill completion"
End If

Самое креативное решение, о котором я мог подумать, - это добавить CountAs и посмотреть, соответствует ли он SymbolCount * NumberOfTests, но это будет означать предоставление неспецифического ответного сообщения.

Answer 1

Вот попытка (если я правильно понял ваш вопрос):

Sub test()
Dim SymbolCount As Integer, i As Integer
Dim aCols(2) As String
aCols(0) = "J"
aCols(1) = "K"

SymbolCount = 0
For i = 0 To UBound(aCols) - 1
    If WorksheetFunction.CountA(Range(aCols(i) & ":" & aCols(i))) <> SymbolCount Then
        MsgBox "Check column " & aCols(i) & " in Estate worksheet for fill completion"
    End If
Next i
End Sub