Excel VBA - 範囲内のセルでセルの値が0より大きい場合、

Question

私は常にx行とy列を持つテーブルを持っています。各セルには番号が含まれています。通常は0で、時には1以上です。

現在のところ、ゼロ以外の値があるかどうかを確認するコードがあります。次に、これらの値を処理するためのスニペットに移動します。

更新されたコードでは、1つのセルでも0より大きい値がある場合は、コードの特定のスニペットに移動します。それ以外の場合は無視してください。

ループでこれを実行しようとしましたが、複数のセルの値が0より大きい場合、現在のコードが複数回実行されますが、これは最適ではありません。だから、私はループが私が望むものではないと思います。

擬似コード、それは動作しませんでした：

For Each cell in Range("B2:C8") 
    If cell.value > 0 Then 
     "some code" 
    End If 
Next cell 

これは任意の時間に複数の非ゼロ値が発生する問題である「いくつかのコード」非ゼロ値が発見されるたびに、実行されます。

Answer 1

あなたは、以下のようなコードを少し変更する必要があります

For Each cell in Range("B2:C8") 
    If cell.value > 0 Then 
     "some code" 
     exit for 'Now that we have executed the code once we don't need to run it again! 
    End If 
Next cell 

Answer 2

私が理解できるように、私はそれより短く

if worksheetfunction.sum(Range("B2:C8")) > 0 then 

Answer 3

になるだろう：非ゼロ値の最初の出現で、あなたのコードは何かをして、別のゼロ以外の値の検索をやめてください。右？ この場合、「Exit For」は問題を解決するはずです。

For Each cell in Range("B2:C8") 
    If cell.value > 0 Then 
     "some code" 
     Exit For 
    End If 
Next cell