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

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

関連記事

CSVファイルをエクセルシートに展開する方法

今回はカンマ区切りのCSVファイルをExcelのシートに展開する方法について解説します。 [目次] 1.Excelで開く方法【問題あり】2.データ区切りを使う方法3.データの取得を使う方法 1.Exc …

【SAS】SASで良く使うテクニック。その9 「Alt+E+S+V+E」~縦横の並び替えを行いたいとき~【Excel】

今回はSASで良く使うテクニックということで、縦横の並び替えを行いたい時は、「Alt+E+S+V+E」が役に立つ理由を解説していきます。 具体的な使用場面は、 データセットの場合、カラムは横並びですが …

【SAS】SASで良く使うテクニック。その5 「SUM関数」~データセットの差分がいくつあるのか数えたい時~【Excel】

今回はSASで良く使うテクニックということで、データセットの差分がいくつあるのか数えたいときは「SUM関数」が役に立つ理由を解説していきます。 (参考:【SAS】SASで良く使うテクニック。その1 E …

【SAS】SASで良く使うテクニック。その8 「=」~修正前後のプログラムを比較したい時~【Excel】【VBA】

今回はSASで良く使うテクニックということで、修正前後のプログラムを比較したい時は、「=」が役に立つ理由を解説していきます。(このテクニックはコーディングなら、SASに限らず、VBAでも他のどの言語で …

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

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