Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


15724 / 76734 ←次へ | 前へ→

【66485】ループ処理を教えてください
質問  Gobou  - 10/9/5(日) 23:27 -

引用なし
パスワード
   もし、あシートのG1セルがAの場合には
 あシートの1列目には、いシートの1列目がコピーされる
 あシートの2列目には、うシートの1列目がコピーされる
 あシートの3列目には、えシートの1列目がコピーされる
 あシートの4列目には、おEシートの1列目がコピーされる
あシートのG1セルがBの場合には
 あシートの1列目には、いシートの2列目がコピーされる
 あシートの2列目には、うシートの2列目がコピーされる
 あシートの3列目には、えシートの2列目がコピーされる
 あシートの4列目には、おEシートの2列目がコピーされる
あシートのG1セルがCの場合には
 あシートの1列目には、いシートの3列目がコピーされる
 あシートの2列目には、うシートの3列目がコピーされる
 あシートの3列目には、えシートの3列目がコピーされる
 あシートの4列目には、おEシートの3列目がコピーされる

としたい。
しかし、ループ処理が苦手なので、以下のようになってしまった。
ループ処理を使う場合。どう書くとよいのですか?


Sub sample()
 If Worksheets("あ").Range("G1") = "A" Then
  Worksheets("い").Range("A:A").Copy Destination:=Worksheets("あ").Range("A:A")
  Worksheets("う").Range("A:A").Copy Destination:=Worksheets("あ").Range("B:B")
  Worksheets("え").Range("A:A").Copy Destination:=Worksheets("あ").Range("C:C")
  Worksheets("お").Range("A:A").Copy Destination:=Worksheets("あ").Range("D:D")
 End If
 If Worksheets("あ").Range("G1") = "B" Then
  Worksheets("い").Range("B:B").Copy Destination:=Worksheets("あ").Range("A:A")
  Worksheets("う").Range("B:B").Copy Destination:=Worksheets("あ").Range("B:B")
  Worksheets("え").Range("B:B").Copy Destination:=Worksheets("あ").Range("C:C")
  Worksheets("お").Range("B:B").Copy Destination:=Worksheets("あ").Range("D:D")
 End If
 If Worksheets("あ").Range("G1") = "C" Then
  Worksheets("い").Range("C:C").Copy Destination:=Worksheets("あ").Range("A:A")
  Worksheets("う").Range("C:C").Copy Destination:=Worksheets("あ").Range("B:B")
  Worksheets("え").Range("C:C").Copy Destination:=Worksheets("あ").Range("C:C")
  Worksheets("お").Range("C:C").Copy Destination:=Worksheets("あ").Range("D:D")
 End If
End Sub
2 hits

【66485】ループ処理を教えてください Gobou 10/9/5(日) 23:27 質問
【66487】Re:ループ処理を教えてください Hirofumi 10/9/6(月) 5:18 回答
【66488】Re:ループ処理を教えてください Hirofumi 10/9/6(月) 6:10 回答
【66489】Re:ループ処理を教えてください Yuki 10/9/6(月) 15:43 発言

15724 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free