验证两个列值

Question

我想验证两个列值 - 如果值为true，则它应显示警告消息。

Sub sal() 
Dim a As Long 
Dim b As Long 
a = Range("x3", Range("x3").End(xlDown)).Value 
b = Range("w3", Range("w3").End(xlDown)).Value 
If a = 100 And b <> " " Then MsgBox "already acheived" 
End If 
End Sub

显示运行时错误13。

Answer 1

你已声明a和b为long，它们应该包含一个long数据类型的值。

但是在以下代码行中......

a = Range("x3", Range("x3").End(xlDown)).Value 
b = Range("w3", Range("w3").End(xlDown)).Value

您正尝试将具有多个单元格的范围值分配给它们。

你应该像这样使用它......

a = Range("x3").Value
b = Range("w3").Value

同样如YowE3L所述，检查变量b，如...

b <> 0