VBA 繰り返し処理For〜Next

1 繰り返し処理の基本的な使い方【For〜Next】

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

taka

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

繰り返し処理の基本的な使い方【For〜Next】

というわけで、まずは「For〜Next」の基本的な使い方がこちら↓(^^)

Sub sample()
Dim カウント変数 As Long
For カウント変数= スタート値To ゴール値
〜繰り返す処理〜
Next 変数名
End Sub

Sub sample()

Dim カウント変数 As Long

For カウント変数= スタート値To ゴール値

〜繰り返す処理〜

Next 変数名

End Sub

For〜Nextはスタート値とゴール値に任意の数値を入れて処理をすることができます(^^♪

カウント変数は処理を繰り返すたびに値が1ずつ加算されていき、カウント変数がゴール値になるまで繰り返し処理を行います( ..)φメモメモ

つまり「1 to 10」なら10回処理、「5 to 10」なら5回の処理が実行されるということですね(^^♪

では実際に動かしてみましょう ^^) _旦~~

下のコードはセルA1～A10に1を記入するコードです。

Sub sample()
Dim i As Long
For i = 1 To 10
Cells(i, 1).Value = 1
Next i
End Sub

Sub sample()

Dim i As Long

For i = 1 To 10

Cells(i, 1).Value = 1

Next i

End Sub

宣言は変数に数値を入れるのでLongを宣言します。
For i から変数に入れたい数値のスタート値（1）とゴール値（10）を指定する
Cells（i,1）のiにはスタート値の1からゴール値10を順に繰り返していく。
Nextは折り返し地点になりForの後に戻る。

これがFor〜Nextの基本の使い方になります(^_-)-☆

変数にSTEPを追加する

つづいて少しだけFor〜Nextの応用の使い方「STEP」について(^^♪

基本的にFor〜nextの変数はスタート値から順に1ずつ繰り返していくのですが、STEPを追加することで変数に数値を加算することができます。

Sub sample()
Dim i As Long
For i = 1 To 10 Step 2
　　　　　Cells(i, 1).Interior.ColorIndex = 3
Cells(i, 1).Value = i
Next
End Sub

Sub sample()

Dim i As Long

For i = 1 To 10 Step 2

　　　　　Cells(i, 1).Interior.ColorIndex = 3

Cells(i, 1).Value = i

End Sub

このコードを実行すると下記画像のような結果になります(-ω-)/

Step 2を追加するとカウント変数が2ずつ加算されていくことになるので、1.3.5.7.9という数値を変数に代入されることになります(^^)

注意点
Stepを追加した場合はゴール値の数値以上かどうかを判定しますので、上記のコードの場合は9で止まるという事になります

For〜Next中にFor〜Nextを入れる【入れ子】

さて、繰り返し処理に慣れてきたらぜひ実践していただきたいこと・・・それは繰り返し処理に、繰り返し処理を入れ込む【入れ子】です(^^♪

下記のコードは変数Aの中に変数Bを入れ子することによってCells(1,1～10)を繰り返し、終了したらCells(2,1～10)を処理していくコードになります。

Sub sample()
　　Dim A As Long
　　　Dim B As Long
　　　　For A = 1 To 10
　　　　　For B = 1 To 10
　　　　　Cells(A, B) = 1
　　　　Next B
　　Next A
End Sub

Sub sample()

　　Dim A As Long

　　　Dim B As Long

　　　　For A = 1 To 10

　　　　　For B = 1 To 10

　　　　　Cells(A, B) = 1

　　　　Next B

　　Next A

End Sub

画像を見ていただくとわかると思いますが、セルのA1(Cells1,1)～J10(Cells10,10)まで数値が入力されましたね(^^)/

このコードは今後複雑なシステムを作成するのに必ず役に立つことなのでぜひ覚えておいてください(^^♪
習うより慣れろ、という言葉があるように一度この上記のコードを編集して実行をしてみてどこがどのように変わるのかを自分で確認するのが一番覚えるかと思います(^^♪

ぜひ一度お試しください(^^)/

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

■Twitterフォロー

Follow @taka_pc1027

■YouTubeチャンネル登録

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

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

カテゴリーで絞る

月で探す

VBA 繰り返し処理For〜Next

taka

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

繰り返し処理の基本的な使い方【For〜Next】

変数にSTEPを追加する

For〜Next中にFor〜Nextを入れる【入れ子】

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

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

Sponsored Link

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

アクセスカウンター

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

カテゴリーで絞る

月で探す

taka

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

繰り返し処理の基本的な使い方【For〜Next】

変数にSTEPを追加する

For〜Next中にFor〜Nextを入れる【入れ子】

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

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

Sponsored Link

共有:

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

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

VBA【Savedプロパティ】Bookが変更されたかを取得する

VBAでsheet操作3【sheetの名前変更】

VBA ブックとシートの指定方法まとめ

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

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

VBA データのある最終行を取得する方法

UserFormを×で閉じれなくする方法

VBA VBAからエクスプローラーを開いてみた

アクセスカウンター

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

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

VBA　VBAからエクスプローラーを開いてみた