| |
kanabunさん
前回はありがとうございました。進めていくところでまだ課題がでました。
ご指導いただければ幸いです。
他の投稿にもkanabunさんの名前があり感謝です。
前回の内容から以下の内容を作りました
Dim c As Integer, i As Integer, k As Integer
Dim v, m, r As Range
With Worksheets(1)
v = .Range("c17:c19").Value
End With
With Worksheets(2)
c = Selection.Row
.Range(Cells(c, 12), Cells(c, 19)).CurrentRegion
For i = 1 To 3
k = k + 1
m = Application.Match(v(k, 1), .Rows(c), 0)
If IsNumeric(m) And i = 1 Then
.Rows(c).Cells(m).Resize(2).Interior.Color = 255
End If
If IsNumeric(m) And i = 2 Then
.Rows(c).Cells(m).Resize(2).Interior.Color = 15773696
End If
If IsNumeric(m) And i = 3 Then
.Rows(c).Cells(m).Resize(2).Interior.Color = 65535
End If
Next
End With
End Sub
sheet1に
5 6
1 9
8 4
sheet2に
5 6 8 2 1 6 9 3 5 7 1 9 6 2 4 3
56 89 15 42 75 64 90 32 86 79 35 82 74 24 45 76
と同様の配列が同じ行に２つあります。
上のマクロですとrows(c)で読み取っているので、うまく動作しません。
↓
sheet1にヒットするsheet2に
5赤 1青 8黄 6赤 9青 4黄
56赤 75青 15黄 74赤 82青 45黄
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
