計數實例

Question

要求是一段代碼，其可以指望的字符串的情況下，即（ABC，DEF，GHK）的基礎上，如果它們存在於有色單元格和否，並將結果放在下面的單元格中，如圖所示。

任何人都可以請指教？

我嘗試了示例代碼

Sub Color() 

Dim varCounter As String 
Dim color As Integer 
Dim nocolor As Integer 

Range("E5").Select 
color= 0 
nocolor= 0 

     Do Until Selection.Value = "" 
        If Selection.Font.Color = RGB(255, 0, 0) Then 
        color= color+ 1 
        Else 
        nocolor= nocolor+ 1 
        End If 
        Selection.Offset(1, 0).Select 
     Loop 
    Range("E47").Select 
    Selection.Value = no 


    Range("E48").Select 
Selection.Value = color 

End Sub 

這是一個非常簡單的代碼檢查文本字體是彩色或沒有，buut我找不到任何事情檢查單元格的背景顏色。

我也嘗試過excel公式，但是我只能搜索文本和計數，它不會基於單元格的背景顏色進行計數。

Answer 1

這裏有一個簡單的用戶定義函數。你可以把它放在一個普通的模塊中。

Public Function CountByColorAndText(rng As Excel.Range, SearchText As String, CountColored As Boolean) As Long 
Dim cell As Excel.Range 
Dim CellCount As Long 

For Each cell In rng 
    If cell.Value = SearchText Then 
     If (cell.Interior.ColorIndex = -4142 And Not CountColored) Or _ 
      (cell.Interior.ColorIndex <> -4142 And CountColored) Then 
      CellCount = CellCount + 1 
     End If 
    End If 
Next cell 
CountByColorAndText = CellCount 
End Function 

它採用三個參數：範圍評估，字符串搜索以及您是否計數有色（或無色）細胞：然後，您可以從任何工作表，在它的工作簿中調用它

所以，上面列E的公式爲：

=CountByColorAndText($A$2:$A$13,$D3,FALSE) 

列F，它是除了最後一個參數是相同的， CountColored是TRUE。

我不寫許多用戶定義的函數，所以有人可能會來指出問題或改進。

Answer 2

代替Font.Color使用Interior.Color

Answer 3

再次編寫代碼會很棒。但我有一個修改後的代碼這裏一個，如果你有興趣去看看..我只是想知道，如果這是一些commmon項目雖然，怎麼昨天OP問同樣的問題....

VBA, COUNTIF, Exclude based on cell color

BTW INTERIOR.COLOR會告訴你一個很大的數字，是RGB，在那裏，你可能想使用INTERIOR.COLORINDEX

既然你正在檢查RGB格式的表示，可以嘗試以下。不過，我建議你不要使用select，它會減慢你的代碼。根據您的需要，您可以更改sheets，ranges。

例如

Dim rng as Range 
Dim cell as Range 

'-- name column 
Set rng = Sheets(2).Cells(Sheets(2).Rows.Count, "C").End(xlUp).Row 

color= 0 
nocolor= 0 

For Each Cell In rng 
    If Cell.InteriorColor = RGB(256,0,0) then 
     color= color+ 1 
    Else 
     nocolor= nocolor+ 1 
    End If 
    Next Cell 

'--output 
Sheets(2).Range("E47").Value = nocolor 
Sheets(2).Range("E48").Value = color