如何在 Excel 中根據字型顏色計數或求和單元格?


Excel 是一款強大的工具,允許使用者執行各種各樣的任務,從簡單的計算到複雜的資料分析。Excel 的眾多功能之一是能夠使用格式化來幫助組織和分析資料。在本教程中,我們將重點介紹如何根據單元格中使用的字型顏色來計數或求和單元格。在處理大型資料集或嘗試快速識別資料集中的趨勢或模式時,這可能是一個有用的工具。無論您是 Excel 初學者還是經驗豐富的使用者,本教程都將提供逐步說明,幫助您掌握這項有用的技能。

根據字型顏色計數或求和單元格

在這裡,我們將首先使用 VBA 應用程式建立一個公式,然後使用它來完成任務。讓我們來看一個簡單的過程,瞭解如何根據 Excel 中的字型顏色計數或求和單元格。

步驟 1

考慮一個 Excel 表格,其中您的資料以不同的字型顏色表示,類似於下圖。

首先,右鍵單擊工作表名稱並選擇“檢視程式碼”以開啟 VBA 應用程式,然後單擊“插入”並選擇“模組”,然後將下面提到的程式碼複製到文字框中,如下所示。

右鍵單擊 > 檢視程式碼 > 插入 > 模組 > 複製程式碼。

Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double
Application.Volatile
Dim rng As Range
For Each rng In pRange1
   If rng.Font.Color = pRange2.Font.Color Then
      CountColour = CountColour + 1
   End If
Next
End Function

步驟 2

現在要計算紅色字型,單擊空單元格(在本例中為單元格 G2)並按 Enter 鍵輸入公式 =CountColour(A1:C6,F2) 以獲取結果。

步驟 3

然後,要計算所有剩餘的顏色,請使用公式 =CountColour(A1:C6,F3)、=CountColour(A1:C6,F4) 分別計算藍色和綠色。

步驟 4

現在,要根據字型顏色計算總和,請使用以下 VBA 程式碼。

Public Function SumByColor(pRange1 As Range, pRange2 As Range) As Double
Application.Volatile
Dim rng As Range
Dim xTotal As Double
xTotal = 0
For Each rng In pRange1
   If rng.Font.Color = pRange2.Font.Color Then
      xTotal = xTotal + rng.Value
   End If
Next
SumByColor = xTotal
End Function

然後使用公式 =SumByColor(A1:C6,F2) 並重覆上述步驟,我們的最終結果將類似於下圖。

結論

在本教程中,我們使用了一個簡單的示例來演示如何根據 Excel 中的字型顏色計數或求和單元格,以突出顯示特定資料集。

更新於:2023年7月12日

6000+ 次檢視

啟動您的 職業生涯

完成課程獲得認證

開始學習
廣告