Excel VBA質問箱 IV

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

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


43767 / 76736 ←次へ | 前へ→

【37997】複数条件の一致について
質問  だいすけ  - 06/5/24(水) 22:09 -

引用なし
パスワード
   いつも大変お世話になっております。

今回このようなマクロを作成しました。

Sub test ()
Dim wb As Workbook
Dim ws, ws2 As Worksheet
Dim R, RR As Range
Dim wb_r As Long


wb_r = ActiveWorkbook.Worksheets("CVPARTS").Range("A1").Range("A65536").End(xlUp).Row
If wb_r <> 1 Then
wb_r = wb_r + 1


For Each R In Range(Worksheets("集めた目録").Range("A1:B65536"), Worksheets("集めた目録").Range("A1").Range("B65536").End(xlUp).Row)
  For Each ws2 In wb.Worksheets
    If InStr(1, ws2.Name, "マスター") <> 0 Then
      For Each RR In Range(ws.Range("D1:G65536", ws.Range("D1").Range("G65536").End(xlUp).Row)
        If R = RR Then
           wb.Worksheets("CVPARTS").Cells(wb_r, 1).Value = R.Value
           wb_r = wb_ + 1
        End If
      Next RR
    End If
  Next ws2
Next R
End Sub

上記のコードの目的は
1."集めた目録"というシートのAセルBセルの値を上から順に読む
2.このブックには"〜マスター"と名の付くシートが4枚ある
3.そのシートのGセルの値とHセルの値が、"集めた目録"シートの上から順に読んで いるAセル、Bセルに対応しているかを比較する
4.その結果両方とも一致していれば、"CVPARTS"の10行目から順に、
 "〜マスター"シートのDセルの値は"CVPARTS"シートのEセルに、Eセルの値はFセル に、Fセルの値はGセルに、Gセルの値はHセルに、Hセルの値はIセルにといったよ うに、表示させていきたいのですが・・・・

wb.Worksheets("CVPARTS").Cells(wb_r, 1).Value = R.Value
           wb_r = wb_ + 1
既に上記の時点で(というよりもっと前より)分からなくなっております。
お手数ですが、力をお貸しねがえないでしょうか?

0 hits

【37997】複数条件の一致について だいすけ 06/5/24(水) 22:09 質問
【38003】Re:複数条件の一致について ハチ 06/5/25(木) 0:35 発言
【38006】Re:複数条件の一致について だいすけ 06/5/25(木) 7:09 発言
【38007】Re:複数条件の一致について だいすけ 06/5/25(木) 7:11 発言
【38015】Re:複数条件の一致について ハチ 06/5/25(木) 10:03 発言
【38018】Re:複数条件の一致について だいすけ 06/5/25(木) 10:49 発言
【38025】Re:複数条件の一致について だいすけ 06/5/25(木) 11:30 質問
【38027】Re:複数条件の一致について ハチ 06/5/25(木) 11:43 回答
【38029】Re:複数条件の一致について ハチ 06/5/25(木) 12:02 発言
【38034】Re:複数条件の一致について だいすけ 06/5/25(木) 13:01 発言
【38040】Re:複数条件の一致について ハチ 06/5/25(木) 13:45 発言
【38042】Re:複数条件の一致について だいすけ 06/5/25(木) 13:52 発言
【38043】Re:複数条件の一致について ハチ 06/5/25(木) 14:03 発言
【38044】Re:複数条件の一致について だいすけ 06/5/25(木) 14:13 発言
【38048】Re:複数条件の一致について ハチ 06/5/25(木) 14:38 発言
【38049】Re:複数条件の一致について Statis 06/5/25(木) 14:40 発言
【38050】Re:複数条件の一致について ハチ 06/5/25(木) 14:48 発言
【38052】Re:複数条件の一致について Statis 06/5/25(木) 15:01 発言

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