validation两个列值

我想validation两列值 – 如果值是真的，那么它应该显示警报消息。

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，并且它们应该保存一个长数据types的值。

但在以下代码行中…

 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提到的那样，检查variablesb是这样的…

 b <> 0