VBA 繰り返し処理For〜Next

ページコンテンツ

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

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フォロー

Twitterもやってます(^^♪Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪

Twitterフォロー

Follow @takabou63

キーワード検索

カテゴリーで絞る

月で探す

VBA 繰り返し処理For〜Next

taka

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

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

変数にSTEPを追加する

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

ファイルやコードの利用について

Twitterフォロー

Sponsored Link

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

スポンサーリンク

現在のオンライン数

翻訳【translation】

プロフィール

当サイトの環境について

新着エントリー

メニュー

Twitter

月別の投稿

カテゴリー

キーワード検索

カテゴリーで絞る

月で探す

タグで絞る

taka

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

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

変数にSTEPを追加する

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

ファイルやコードの利用について

Twitterフォロー

Sponsored Link

関連記事

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

関連記事

スポンサーリンク

現在のオンライン数

翻訳【translation】

プロフィール

当サイトの環境について

新着エントリー

人気記事

メニュー

Twitter

月別の投稿

カテゴリー

タグ

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