Excel VBA，检查同一行中单元格的值

Question

我有一个宏需要检查同一行的单元格中是否有1。我遇到的问题是我需要为3列范围做到这一点。

实际上，这部分根本不起作用，但我可以把它放在单元格中。

如果单元格中有1，我需要检查（＆＃34; P3：R＆＃34;＆amp; iNbKids）中的所有单元格（＆＃34; K＆＃34;＆amp; ActiveCell.Row） 。我尝试了很多东西，但我似乎无法弄明白。

iNbKids是一个整数

Answer 1

很难说肯定，但看起来你需要改变

If Cell.Value <> 0 Then

到

If Range("K"&r2.row).Value <> 0 Then

或

If Range("K"&r2.row).Value = 1  Then