2016-04-07 19 views
0

同じ行のセルに1があるかどうかをチェックするマクロがあります。私が持っている問題は、3列の範囲でそれを行う必要があることです。Excel VBA、同じ行のセルからの値を確認する

実際、この部分は全く機能しませんが、細胞の形で入れることができます。

セルに1がある場合( "K" & ActiveCell.Row)、( "P3:R" & iNbKids)からすべてのセルをチェックする必要があります。私は多くのことを試しましたが、私はそれを理解していないようです。

iNbKidsは整数

+0

参照してください。あなたが変更する必要があるように見えます[this](http://stackoverflow.com/help/how-t) o-ask) – OldUgly

+0

コードやスクリーンショットのスニペットを追加できますか? –

+0

私が言ったように、今はその部分では何も働いていませんが、私が持っているものを加えることができます。範囲(k:activecell.row)に1つ以上のセルが1つある場合にのみ、r2黄色のセルを持つ必要があります。 これは私の問題がどこにあるかです。 セットR2 = ActiveWorkbook.Worksheets( "Feuil1")範囲:そしてR2 内の各セルについて( "P3 R" &iNbEnfants + 2) 」Cell.Value場合<> 0 のActiveCellでCell.Select 。 端と.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 終了 次 –

答えて

0

確かに言うのは難しいですが、

If Cell.Value <> 0 Then 

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

それとも

If Range("K"&r2.row).Value = 1 Then 
関連する問題