| |
▼gorn さん：こんにちは〜〜
>別sheetの固定セルにある数値を取得し、それと一致するセルに色をつける
>見よう見まねでmatch関数と範囲名前を使い途中までは進んでいるように
>思いますが、まだ組めていません。
Worksheets(2)のA列に「行ごとの検索値」が書いてあるとし、
Worksheets(1)の1行目からデータとして、2行づつ順にMatch検索し、
ヒットしたら、そのセルと直下のセルを赤で塗りつぶしてみました。
Sub Try1()
Dim i As Long, k As Long
Dim v, m, r As Range
With Worksheets(2)
v = .Range("A1", .Cells(.Rows.Count, 1).End(xlUp)).Value
End With
With Worksheets(1).Cells(1).CurrentRegion
.Interior.ColorIndex = xlNone ’初期化
For i = 1 To .Rows.Count Step 2
k = k + 1
m = Application.Match(v(k, 1), .Rows(i), 0)
If IsNumeric(m) Then
.Rows(i).Cells(m).Resize(2).Interior _
.ColorIndex = 3
End If
Next
End With
End Sub
|
|
kanabun
- 11/10/28(金) 21:27 -
