VBA For Eachステートメントの使い方

The following two tabs change content below.

• この記事を書いた人
• 最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

最新記事 by taka (全て見る)

• 『雑記』最近の私の話～ - 2019年9月26日
• 【動画】自作パソコン構成変更！ケースをNZXT　H500に交換しました！ - 2019年6月5日
• VBA 『Array関数』指定した要素で配列を作成する - 2019年5月23日
• 「動画」初完全ワイヤレスイヤホン『Jabra Elite Active 65t』 - 2019年5月17日
• VBA　日付で令和を簡単に判定してみよう - 2019年5月7日

どうも、taka(@takabou63)です(^^♪

さて、今回は【For Eachステートメントの使い方】です。

今まで【For～Next】や【Do～Loop】についてご紹介してきましたが、今回の【For Each】は今までとは少々使用方法が違います、なので.【For～Next】や【Do～Loop】のような感覚でいると理解がしずらいかもしれません(;´･ω･)

今回は使い方とサンプルを用意しますので参考にしてください(^^♪

VBAにおけるFor Eachステートメントとは

【For Eachステートメント】は【１つのグループの中身を一つずつ取り出して順番に処理していく】というイメージになります(;^ω^)

Sub sample()

Dim 変数名 As Long
For Each 変数名 In グループ名

繰り返す処理

Next 変数名

この説明だけでは理解がしずらいですよね(;´･ω･)

たとえば↓のようにした場合

Sub sample()

Dim ws As Variant

For Each ws In Worksheets

MsgBox ws.Name

Next ws

End Sub

これは【Worksheetsコレクション】からワークシートの名前を順番に取り出す コードです。

For Eachステートメントを使用したサンプルコード

上記の説明だけでは少しわかりにくいと思いますのでいくつかsampleをご紹介します(´・ω・`)

↓は【RangeA1：C3】というグループに対して文字列【E-VBA】を記述するコードです。ちなみにこの場合は【A1→B1→C1→A2→B2・・・】という順番で処理されていきます。

Sub sample()

Dim rg As range

For Each rg In range("A1:C3")

rg.Value = "E-VBA"

Next rg

End Sub

下記のサンプルは【range(“A1:D10”)】を先に選択して、選択されている範囲を取得する【Selection】をグループに指定することによって選択されている【range(“A1:D10”)】に文字列を入力するプログラムです。

Sub sample()

Dim rg As range

range("A1:D10").Select

For Each rg In Selection

rg.Value = "E-VBA"

Next rg

End Sub

下記のコードはユーザーフォーム上のコントロールのオブジェクト名をすべて取得してMsgboxに表示するコードです。sampleではCommandButtonに割り振ってあります。

今回は【VBAでRGBと16進数カラーコード変換ツール】のフォーム上に取得ボタンを追加してテストしています。

Private Sub CommandButton1_Click()
    Dim ms As String
    Dim myCntl As Variant
    For Each myCntl In Controls
        ms = ms & myCntl.Name & vbCrLf
    Next myCntl
    MsgBox ms

End Sub

取得ボタンを押したことによってフォーム上のコントロールをすべて取得しました。処理の順番はおそらくタブオーダーの順番です(;^ω^)

最後に

いかがでしたでしょうか？覚えてしまえば便利な【For Eachステートメント】ですが、ほかの繰り返し処理に比べると考え方が異なるためとっつきにくい印象があります(;´･ω･)

実際私も【For Each】を覚えたのはVBAを初めてからだいぶ後のことでした(笑)

今回の記事で【For Eachステートメント】について多少なりとも理解ができてもらえたらなら幸いです(;^ω^）

フォロー・チャンネル登録お願いします

VBA以外についてのブログはこちら↓

■Twitterフォロー

■YouTubeチャンネル登録

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link