/ / Excel VBAで列全体をループする

Excel VBAで列全体をループする

以下では、 Excel VBA それ 最初の列全体をループする 特定の値より低いすべての値を色付けします。

Excel VBAで列全体をループする

Excel VBAで列全体をループする

ワークシートにコマンドボタンを配置し、次のコード行を追加します。

1.まず、long型のiという変数を宣言します。 Long変数はInteger変数よりも容量が大きいため、Long型の変数を使用します。

Dim i As Long

2.次に、列Aのすべてのセルのフォント色を黒に変更するコード行を追加します。

Columns(1).Font.Color = vbBlack

3.ループを追加します。

For i = 1 To Rows.Count

Next i

注意: Excel 2003では65,536行まで、Excel 2007以降では1,048,576行までのワークシートを作成できます。使用しているバージョンにかかわらず、上のコード行はすべての行をループします(ダウンロード可能なExcelファイルはExcel 97-2003形式です)。

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

シート上のコマンドボタンをクリックすると結果が表示されます(時間がかかる場合があります)。

ループ全体の列結果

ループ全体の列結果

また読む: