Excel

For Eachの使い方

投稿日:2020年4月12日 更新日:

今回はVBAのFor Eachについて解説します。

シート上は特に準備することが無く、以下のソースコードを実行します。


Sub For_Each()                          'For Each プロシージャ

    Dim cell_A1_A5 As Range             'Range型の cell_A1_A5 を宣言する。
    
    Dim s As Range                      'Range型の s を宣言する。
    
    With ThisWorkbook.Worksheets("Sheet1")          '「 ThisWorkbook.Worksheets("Sheet1") 」の記述を省略できる
    
       Set cell_A1_A5 = .Range(.Cells(1, 1), .Cells(5, 1))  'このファイルのSheet1シートの A1~A5 を cell_A1_A5 に代入する。
                                                                                            
    End With                                        'End Wih

    For Each s In cell_A1_A5                        'In cell_A1_A5 に含まれるセルの数だけ For Each がループされる。

        MsgBox s.Row                                '行位置を表示する。

    Next                                            '次の要素へカウントアップ

End Sub                                             'For Each プロシージャの終わり

A1セルからA5セルをcell_A1_A5とし、For Each文によってcell_A1_A5内の各セルをsとして行位置をメッセージ表示する処理を5回繰り返します。

実行すると1~5とメッセージ表示されることがわかります。

なお、以下の過去記事と組み合わせることで入力したすべてのセルの背景色を黄色くすることもできます。

-Excel

執筆者:


comment

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

関連記事

Enum(列挙型)の使い方

今回はEnumの使い方について解説します。(参考元:moug) Excelではいくつかの色にインデックス番号が割り振られており、ColorIndexプロパティに対応した数値を当てはめると、今回ではA1 …

Excelのリスト化でファイルが壊れる件

訳あってVBAでセルをリスト化する機会があり、今回はその時躓いたことを記事にしました。 [目次] 1.起こったバグ2.原因3.対処法 1.起こったバグ セルをリスト化するものとして、今回は以下のソース …

コマンドボタンを挿入してマクロを実行する方法

今回はExcelのシートにコマンドボタンを挿入してマクロを実行する方法について解説します。 [目次] 1.通常のマクロ実行2.コマンドボタンでマクロ実行 1.通常のマクロ実行 通常マクロを実行するとき …

【SAS】SASで良く使うテクニック。その7 「条件付き書式」~差分があるセルに色を付けたい時~【Excel】

今回はSASで良く使うテクニックということで、データセットのコンペアにおいて、差分があるセルに色を付けたい時ときは「条件付き書式」が役に立つ理由を解説していきます。 (参考:【SAS】SASで良く使う …

DoEvents(マクロ実行中に画面操作する)

VBAの学習で、DoEventsを使ったシステムを作成したので今回記事にします。 まずは、シート上を以下のように準備します。 そして以下のソースコードを記述し、実行していきます。 Public Sto …