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

1 VBAにおけるFor Eachステートメントとは
2 For Eachステートメントを使用したサンプルコード
3 最後に
- 3.1 共有:

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

taka

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

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

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

Sub sample()
Dim 変数名 As Long
For Each 変数名 In グループ名
繰り返す処理
Next 変数名

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

Sub sample()

Dim ws As Variant

For Each ws In Worksheets

MsgBox ws.Name

Next ws

End Sub

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

注意点
【For Eachステートメント】では、取り出した内容を変数に格納します。なので上記のようにWorksheetsを格納する場合は変数の型を【Woksheet 型】か【すべての方に対応できるVariant型】を宣言する必要があります。格納する内容によって変数の宣言を考る必要がありますのでご注意ください(´・ω・)

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

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

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

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ステートメント】について多少なりとも理解ができてもらえたらなら幸いです(;^ω^）

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

■Twitterフォロー

Follow @taka_pc1027

■YouTubeチャンネル登録

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

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

カテゴリーで絞る

月で探す

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

taka

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

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

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

最後に

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

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

Sponsored Link

コメントを残すコメントをキャンセル

アクセスカウンター

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

カテゴリーで絞る

月で探す

taka

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

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

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

最後に

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

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

Sponsored Link

共有:

コメントを残す コメントをキャンセル

RECOMMENDこちらの記事も人気です。

VBA 【ComboBox(コンボボックス)】コントロール

セルを結合する/結合を解除する

VBA【Application.Unionメソッド】複数のセルを参照する

ユーザーフォームに時計をつけてみる

VBA【Stopステートメント】処理を中断する

VBA 【Option Explicit】について

VBAを覚えるならマクロの記憶はオススメしない

VBA 繰り返し処理Do～Loopの使い方

アクセスカウンター

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

コメントを残すコメントをキャンセル

VBA　【ComboBox(コンボボックス)】コントロール