Question

我基本上想根据某些标准通过VBA进行一些格式化。出于原因，我需要避免条件格式化。

我一直收到此错误消息，此行突出显示... “案例是=”相同“”

代码适用于两列中的一半，并给出了此错误。我该怎么做才能将它应用到我的范围内？

data.table

Answer 1

您可能遇到了一些“案例”问题

在这种情况下你可以使用：

    Select Case UCase(cell.Value) '<--| consider the UPPERCASE string of your current cell value
        Case "SAME" '<---| and compare it against "SAME"
            cell.Interior.ColorIndex = 46
        Case ""
        Case Else
    End Select

此外，您可能希望使用更简洁的CellRange设置以及仅使用“text”值循环遍历单元格的更有效方法

Sub DifferenceReport()
    Dim CellRange As Range, cell As Range

    With Sheets("Difference")
        Set CellRange = Intersect(.Range("G3:AI200"), .Range("G:G, H:H, K:K, N:N, Q:Q, T:T, Z:Z, AC:AC, AF:AF, AI:AI"))
    End With

    For Each cell In CellRange.SpecialCells(xlCellTypeConstants, xlTextValues)
        Select Case UCase(cell.Value)
            Case "SAME"
                cell.Interior.ColorIndex = 46
            Case ""
            Case Else
        End Select
    Next
End Sub

Case＆amp; amp;错误不匹配13范围

1 个答案: