excel - #VALUE 错误在 Excel 2013 中设置 Interior.ColorIndex 属性

Question

我正在尝试遍历工作表中的行，在第 11 列中查找非零值，然后突出显示整行。我在此站点上找到了这样做的示例，但是当我尝试模拟这些示例时，我收到了从函数返回的 #VALUE 错误。

代码如下:

Function HighlightRows() As Long
    Dim c As Long
    Dim i As Long
    Dim w As Worksheet


    Set w = ThisWorkbook.Worksheets("Sheet1")
    c = 0
    For i = 2 To w.UsedRange.Rows.Count
        If w.Cells(i, 11).Value = 1 Then
            c = c + 1
            w.Rows(i).Interior.ColorIndex = 3
        End If
    Next i

    HighlightRows = c

End Function

当我注释掉试图设置代码的 Interior.ColorIndex 属性的代码时，一切似乎都正常工作，并且我得到了函数返回的适当计数(当然，除了我没有突出显示)。

我还尝试了以下方法:

w.Cells(i,11).EntireRow.Interior.ColorIndex = 3

w.Range("B"& i & ":O"& i).Interior.ColorIndex = 3

w.Range(细胞(i,2),细胞(i,15)).Interior.ColorIndex = 3

我错过了什么？

Answer 1

使用 子而不是 功能 :

Sub HighlightRows()
    Dim c As Long
    Dim i As Long
    Dim w As Worksheet


    Set w = ThisWorkbook.Worksheets("Sheet1")
    c = 0
    For i = 2 To w.UsedRange.Rows.Count
        If w.Cells(i, 11).Value = 1 Then
            c = c + 1
            w.Rows(i).Interior.ColorIndex = 3
        End If
    Next i

    MsgBox c

End Sub