エクセルVBAで列全体をループ
以下は、我々は全体の1列目の色をループエクセルVBAでプログラムで一定値を下回っているすべての値を検索します。
ワークシート上のコマンドボタンを配置し、次のコード行を追加します。
1.まず、タイプロングの私と呼ばれる変数を宣言します。ロング変数が整数変数よりも大きな容量を持っているので、私たちはここに長く型の変数を使用します。
Dim i As Long
2.次に、黒に列Aのすべてのセルのフォントの色を変更するコードの行を追加します。
Columns(1).Font.Color = vbBlack
ループを追加します。3.。
For i = 1 To Rows.Count Next i
注：ワークシートは、Excel 2007以降では、最大1,048,576の行を持つことができます。
あなたが使用しているバージョンに関係なく、すべての行をループ上記のコード行。
4.次に、我々は、細胞D2に入力された値よりも低い全ての値を色。空のセルは無視されます。ループに次のコード行を追加します。
If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then
Cells(i, 1).Font.Color = vbRed
End If
あなたはシート上のコマンドボタンをクリックしたときに（これはしばらく時間がかかる場合があります）結果：
