excel - VBA 将颜色索引存储在变量中

Question

我的程序应该检查单元格的颜色索引，然后根据其颜色增加计数器。由于某种原因，我似乎无法将颜色索引存储到变量中。

这是代码:

Dim orange As Integer, green As Integer, blue As Integer, i As Integer, check As Long

For i = 0 To 79

    check = ThisWorkbook.Sheets("Name").Cells(i, 11).Interior.ColorIndex

    If check = 33 Then
        blue = blue + 1
    ElseIf check = 43 Then
        green = green + 1
    ElseIf check = 44 Then
        orange = orange + 1
    End If

Next I

提前致谢!

Answer 1

这是因为您的 i 值从 0 开始。Cell(0,11) 不是有效单元格。调整 for 循环从 1 开始。

Dim orange As Integer, green As Integer, blue As Integer, i As Integer, check As Long

For i = 1 To 79

    check = ThisWorkbook.Sheets("Name").Cells(i, 11).Interior.ColorIndex

    If check = 33 Then
        blue = blue + 1
    ElseIf check = 43 Then
        green = green + 1
    ElseIf check = 44 Then
        orange = orange + 1
    End If

Next I