初めまして、ＶＢＡについて質問をさせてください。 「テスト資料」と「Sheet1」がそれぞれ別ブックで氏名と施設名の情報をもっています。 「テスト資料」では、氏名及び施設名が行ごとに並んでおり、氏名はＣ列、施設名はＬ列から最終列（そのときによって変動）にあります。「Sheet1」では、氏名はＧ列、施設名はＥ列にあります。 「テスト資料」の氏名及び施設名がSheet1の氏名及び施設名に一致する行を 探しだし、値がどちらも同じなら、「テスト資料」の該当する行のＡ列からＤ列と、 一致した施設名のセルを２２番の色で塗りつぶす （上のＶＢＡでは記述方法が分からなかったため、ひとまずA列からD列を指定しています） という処理がしたいのですが、下記を実行しても何も起こりません。 どのようにすれば処理ができるのか、どなたかご助力お願いいたします。 Dim i As Integer, j As Integer For i = 3 To Sheets("PQ_Proc_H_EUC_E009_選考会資料").Cells(Rows.Count, 1).End(xlUp).Row For j = 12 To Sheets("PQ_Proc_H_EUC_E009_選考会資料").Cells(Columns.Count, 1).End(xlToLeft).Column If Sheets("PQ_Proc_H_EUC_E009_選考会資料").Cells("i,C").Value = Sheets("Sheet1").Range("G:G").Value And Sheets("PQ_Proc_H_EUC_E009_選考会資料").Cells("i,j").Value = Sheets("Sheet1").Range("E:E").Value Then Sheets("PQ_Proc_H_EUC_E009_選考会資料").Range("A:D").Interior.ColorIndex = 22 End If Next j Next i
↧