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

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

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

for文は、様々なプログラミング言語で使われている制御構造です。for文に定義している条件から外れるまで、for文内の命令文を繰り返し実行します。

VBA

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

Q&A

解決済

3回答

19838閲覧

forを2つ同時に処理したい

退会済みユーザー

退会済みユーザー

総合スコア0

for

for文は、様々なプログラミング言語で使われている制御構造です。for文に定義している条件から外れるまで、for文内の命令文を繰り返し実行します。

VBA

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

0グッド

1クリップ

投稿2021/01/15 00:11

編集2021/01/15 01:10

前提・実現したいこと

下記ソースコードの変数num1とnnをfor文で同時に動かしたいです

発生している問題・エラーメッセージ

明確なエラーはでていませんが、forを同時に回すことができず
困っております。

追記
現状の問題点はnum1とnnが同時に回らず、nnのみが回ってしまいます。
"実現したいこと" の部分でも記載致しましたが、forでnum1とnnを
同時に回していきたいです。
具体的には
num1が13→15→17・・・
nnが8→9→10・・・
という形で1つずつではなく、同時に繰り返し処理をしてほしいです

該当のソースコード

vba

1 Dim num1, n, nn As Variant 2 Dim ws1 As Worksheet 3 For n = 3 To Worksheets.Count 4 Set ws1 = Worksheets(n) 5 For nn = 8 To Worksheets(n).Cells(Rows.Count, 10).End(xlUp).Row + 1 6 With Worksheets("雛形 (2)") 7 AA = .Cells(Rows.Count, 2).End(xlUp).Row 8 For num1 = 13 To AA Step 2 + 1 9 If Worksheets(n).Range("J" & nn) <> "" Then 10 .Range("N" & num1) = ws1.Range("I" & nn) 11 .Range("S" & num1) = ws1.Range("D" & nn) 12 .Range("V" & num1) = ws1.Range("K" & nn) + ws1.Range("L" & nn) 13 .Range("Z" & num1) = ws1.Range("J" & nn) 14 End If 15 Next num1 16 End With 17 Next nn 18 Set ws1 = Nothing 19 Next n 20

補足情報(FW/ツールのバージョンなど)

エクセル2007

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

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

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

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

y_waiwai

2021/01/15 00:15

提示のコードではどういう不具合があるんでしょう。 そして、それをどうしたいんでしょうか
退会済みユーザー

退会済みユーザー

2021/01/15 00:24

追記の方をさせて頂きました。 宜しくお願いいたします。
y_waiwai

2021/01/15 01:04

回す、というのがどういう意味なのか不明です。 提示のコード上の何が不具合で、それを具体的にどうしたいって話なんでしょうか
退会済みユーザー

退会済みユーザー

2021/01/15 01:11

修正させて頂きました。 宜しくお願いいたします。
guest

回答3

0

ベストアンサー

結論から言いますと、現状のようにForをネスト(入れ子)させた場合、両方の変数を同時に動かすことは不可能です。
内側の変数が変化しても外側の変数は固定です。内側が最後までいってから、外側が変化します。

具体的には

num1が13→15→17・・・
nnが8→9→10・・・
という形で1つずつではなく、同時に繰り返し処理をしてほしいです

Forをネストさせずに一つのForループで実現できます。

vba

1Public Sub test() 2 Dim num1 As Long, nn As Long 3 4 For nn = 8 To 10 5 num1 = n * 2 - 3 6 Debug.Print "nn:" & nn & ", num1:" & num1 7 Next nn 8End Sub

上記の実行結果(イミディエイトウィンドウの出力)

nn:8, num1:13 nn:9, num1:15 nn:10, num1:17

投稿2021/01/15 01:28

編集2021/01/15 01:30
hatena19

総合スコア33856

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

退会済みユーザー

退会済みユーザー

2021/01/15 01:47

ご回答ありがとうございます。 具体例まで挙げて頂き、大変助かりました。
guest

0

nn のforループの最初に
num1=nn*2-3
をいれとけばいいのでは

投稿2021/01/15 01:13

y_waiwai

総合スコア87849

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

下記が8未満ならnnのForは抜けます。
Worksheets(n).Cells(Rows.Count, 10).End(xlUp).Row + 1
AAが13未満ならnum1のForは抜けます。
それぞれの値を確認してください。

ステップインを使ってどこで抜けるかを確認し、
抜けた部分から原因究明しましょう。


まったく同時にForを二つ、はできないのでForを一つにしてその中で変更していきます。

投稿2021/01/15 00:22

編集2021/01/15 01:35
radames1000

総合スコア1925

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

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

ただいまの回答率
85.44%

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

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

質問する

関連した質問