計算具有特定填充顏色和像元值的像元數

Question

我在下面使用代碼，但無法正常工作。

Function CountColorValue(CountRange As Range, CountColor As Range, CountVAlue As Range)

  Dim numbers As Long
  Dim Cell As Range

  Set rCell = CountRange

  For Each rCell In CountRange
    If rCell.Interior.ColorIndex = Color Then
      If rCell.Value = Value Then
        numbers = numbers + 1
      End If

      GetColorCount = TotalCount

End Function

Answer 1

謙虛地建議您進入VBE的“工具”►“選項”，然后在“編輯器”屬性頁上，在“ 要求變量聲明”旁邊打勾。 這將幫助您避免拼寫錯誤或完全省略所使用變量的名稱。

Function CountColorValue(CountRange As Range, CountColor As Range, CountValue As Range)

    Dim iNumbers As Long
    Dim rCell As Range

    For Each rCell In CountRange
        If rCell.Interior.ColorIndex = CountColor.Interior.ColorIndex Then
            If rCell.Value2 = CountValue.Value2 Then
                iNumbers = iNumbers + 1
            End If
        End If
    Next rCell

    CountColorValue = iNumbers

End Function

似乎您正在嘗試將兩個緊密相關的功能融合在一起，但是如果沒有正確的變量聲明和賦值，就無法在一個功能中使用另一個功能。