excel VBA 查找 某列的单元格的颜色值为15的行号

Question

希望查找 D列中,从第2行开始到最后一行的 单元格的颜色值为15的行号,,请问如何定义,语句如何写
如
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = [d65536].End(xlUp).ColorIndex
if a = 15 then
m = Target.Row
Range("a" & m & ":by" & Target.Row).Interior.ColorIndex = 15
End Sub
大概就是这个意思,,,求语句如何书写
少写一句

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = [d65536].End(xlUp).ColorIndex
if a = 15 then
Columns.Range("A" & a &":by" & a).Interior.ColorIndex = 0 '这句刚没写上
m = Target.Row
Range("a" & m & ":by" & Target.Row).Interior.ColorIndex = 15
End Sub

Answer 1

Sub CColor()

 Dim result As String    '保存查找结果

 Dim colName As String    '要查找的列号，这里假设是B列

 colName = "B"

 Dim colorIndex As Integer    '要查找的颜色的值，按题目要求设置为15

 colorIndex = 15

 result = "符合条件的行号有："

 With Worksheets(1)        '假设查找工作簿中第一张工作表

   For i = 2 To .UsedRange.Rows.Count

     If .Range(colName & i).Interior.colorIndex = colorIndex Then

       result = result & vbCrLf & i

     End If

   Next

 End With

 If InStr(1, result, vbCrLf) < 1 Then    '如果没找到符合条件的单元格

 result = "没找到符合条件的单元格！"

 End If

 MsgBox result

End Sub

 如果需要，可以自行将Sub改为Function，把查找到的结果放在一个文本中，供其它过程使用。