Ｐａｇｅ 597 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼For next をつかって。 gori 03/1/22(水) 21:25 ┗Re:For next をつかって。 ポンタ 03/1/22(水) 21:46 ┗Re:For next をつかって。 gori 03/1/23(木) 17:10 ─────────────────────────────────────── ■題名 ： For next をつかって。 ■名前 ： gori ■日付 ： 03/1/22(水) 21:25 -------------------------------------------------------------------------
| こんばんは。 For next を使って次の事をやりたいのですが、教えてください｡ sheets(1).cells(a,b) = sheets(2).cells(c,d) a =3 to 34 step1 b = 3 c = 15 to 27 step 4 d = 2 to 8 step1 最初にaとdが増えていきます｡dが８になったらまた２からはじめます｡ そのときCは４増えます｡ ですがaはそのまま1づつ増えます｡ a 3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29 b 2,3,4,5,6,7,8,2,3,4,5,6,7,8 2 3 4 5 6 7 8 2 3 c 15 19 23 27 という形で増やしていきたいのですが、どのようにかいたらいいのでしょうか。 |
| 質問が理解できてませんが、カンで書きました。 お試しください。 Sub test() Dim i As Integer, j As Integer, k As Integer k = 3 For i = 15 To 27 Step 4 For j = 2 To 8 Sheets(1).Cells(k, j).Value = Sheets(2).Cells(i, k).Value k = k + 1 Next Next End Sub |
| ▼ポンタ さん： >質問が理解できてませんが、カンで書きました。 > >お試しください。 > >Sub test() > Dim i As Integer, j As Integer, k As Integer > k = 3 > For i = 15 To 27 Step 4 > For j = 2 To 8 > Sheets(1).Cells(k, j).Value = Sheets(2).Cells(i, k).Value > k = k + 1 > Next > Next >End Sub ぽんたさんありがとうございます｡ うまくいきました｡ |