質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
87.20%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

ループ

ループとは、プログラミングにおいて、条件に合致している間、複数回繰り返し実行される箇所や、その制御構造を指します

解決済

VBA マクロの2重のループ処理の書き方

icecleam
icecleam

総合スコア0

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

ループ

ループとは、プログラミングにおいて、条件に合致している間、複数回繰り返し実行される箇所や、その制御構造を指します

2回答

0評価

0クリップ

1231閲覧

投稿2020/09/19 03:02

編集2022/01/12 10:58

以下のコードcode1で①のnの値に干渉せずに②のi+3をループさせたいです。

一度code2のように記載したのですが、もちろんそれだと①のnも同時に+1されてしまいます。
別の変数を用意して、mとnを別でループさせたいのですが書き方がわからずうまく実装できませんでしたので、その書き方を教えていただきたいです。
よろしくお願いします。

code1

Macro

With wsAcq Dim n As Long 'ループで使用します。 Dim m As Long 'ループで使用します。 Dim ec1 As Long '各開発の一番下の担当者のセルを取得 For n = i + 3 To ec1 '① wsSet.Cells(lngRowsNo, 2).Value = .Cells(i, 2).Value For m = i + 3 To ec1 wsSet.Cells(lngRowsNo, 3).Value = .Cells(i + 3, 3).Value '② Next m lngRowsNo = lngRowsNo + 1 Next n

code2

Macro

wsSet.Cells(lngRowsNo, 3).Value = .Cells(i + 3, 3).Value '② i = i + 1

良い質問の評価を上げる

以下のような質問は評価を上げましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

  • プログラミングに関係のない質問
  • やってほしいことだけを記載した丸投げの質問
  • 問題・課題が含まれていない質問
  • 意図的に内容が抹消された質問
  • 過去に投稿した質問と同じ内容の質問
  • 広告と受け取られるような投稿

評価を下げると、トップページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

y_waiwai
y_waiwai

2020/09/19 03:06

①のnってどれのことでしょうか
icecleam
icecleam

2020/09/19 03:11

For「 n」 = i + 3 To ec1 '① かっこでくくった部分のことです。
hatena19
hatena19

2020/09/19 03:49

提示のコードは2重ループになってないし、nはループ内で使ってないし、それ以外の変数の初期化の部分もないし、これでは何がしたくて、何が問題なのかサッパリです。 状況を再現できるコード全体を提示して、どこが想定と違うのか説明してください。
icecleam
icecleam

2020/09/19 04:13

すみません、今コードの全体と内容の修正を編集として実施しましたので 再度ご確認いただければと思います。
Usirow
Usirow

2020/09/19 06:10 編集

もしかして、mのループ内でのみ、iの値を+1していき、mのループを抜けたらまた元のiに戻るという処理をしたいのでしょうか? コードを読む限り、mループ内の i + 3 は 常に m と同値になっているはずなので wsSet.Cells(lngRowsNo, 3).Value = .Cells(i + 3, 3).Value '② →wsSet.Cells(lngRowsNo, 3).Value = .Cells(m, 3).Value '② とするだけで良さそうに見えます。
icecleam
icecleam

2020/09/19 06:13

そうですね mのループだけを回して担当者を行を更新していくようにしたいです。 以下のように修正したら、担当者が開発AではHのみ、開発BではLのみが記載されてしまいました。。 質問のコードだと開発AではAのみ、開発BではIのみが転記されてしまいます。 For m = i + 3 To ec1 wsSet.Cells(lngRowsNo, 3).Value = .Cells(m, 3).Value Next m
kuma_kuma_
kuma_kuma_

2020/09/19 06:18

よくわからんけど、こういう事? For lngRow = 1 To .UsedRange.Rows.Count For lngCol = 1 To .UsedRange.Columns.Count '.UsedRange.Cells(lngRow, lngCol) next lngCol next lngRow
Usirow
Usirow

2020/09/19 06:31

修正する前も後も、ループ内で書き込み先の行を示す IngRowsNo が一定なので、mループ内で同じセルに上書きし続けてる状態ですね。ステップ実行すればすぐに気付けるはずです。 IngRowsNo になにか変数をくっつけてループ内で加算させてしまえば大丈夫でしょう。

まだ回答がついていません

会員登録して回答してみよう

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
87.20%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

ループ

ループとは、プログラミングにおいて、条件に合致している間、複数回繰り返し実行される箇所や、その制御構造を指します