|
▼皆様
さきほどはありがとうございました。
さきほど、色を付けたセルと同じ行の
Cセルの値をみて、その値と同じセルにも色を付けたく
以下のコードを書いてみたのですが・・・・
Sub test()
Dim ws As Worksheet
Dim R, 値1 As Range
Dim Savrow As Long
Dim 検索範囲 As String, 検索文字 As String
Dim 値 As String
検索文字 = "組立図"
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = "CVPARTS" Then
検索範囲 = "H:H"
ElseIf InStr(1, ws.Name, "ユニットマスター") <> 0 Then
検索範囲 = "G:G"
Else
検索範囲 = ""
End If
If 検索範囲 = "G:G" Then
Set R = ws.Range(検索範囲).Find(検索文字, , , xlPart, , , False, False)
If Not R Is Nothing Then
Savrow = R.row
Do
ws.Cells(R.row, 7).Interior.Color = RGB(0, 255, 0)
値 = ws.Cells(R.row, 7).Offset(, -4).Value
Set 値1 = ws.Range("C:C").Find(値, , , xlPart, , , False, False)
If Not 値1 Is Nothing Then
ws.Range(ws.Cells(値1.row, 3), ws.Cells(値1.row, 3)). _
Interior.Color = RGB(0, 255, 0)
End If
Set R = ws.Range(検索範囲).FindNext(R)
Loop Until R.row = Savrow
End If
End If
Next
End Sub
どこがおかしいのかわかりません。
たびたび申し訳ございません。
|
|