VBA -find在具有多个条件的颜色字段的范围内

Sub FindDataWithMultipleConditions()
    Dim ws As Worksheet
    Dim rngSearch As Range
    Dim rngFound As Range
    Dim colorIndex As Long
    Dim searchText As String

    ' 设置工作表和搜索范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rngSearch = ws.Range("A1:D100") ' 假设搜索范围是A1到D100

    ' 设置颜色索引和搜索文本
    colorIndex = RGB(255, 0, 0) ' 红色
    searchText = "特定文本"

    ' 查找满足条件的单元格
    Set rngFound = rngSearch.Find(searchText, LookIn:=xlValues, LookAt:=xlWhole)
    Do While Not rngFound Is Nothing
        If rngFound.Interior.Color = colorIndex Then
            ' 找到满足条件的单元格
            Debug.Print "找到满足条件的单元格: " & rngFound.Address
            Exit Do
        End If
        Set rngFound = rngSearch.FindNext(rngFound)
    Loop
End Sub