如何在 Excel 中使用条件格式按颜色计数/求和单元格?

ms exceladvanced excel functionmicrosoft technologies更新于 2024/12/25 3:24:17

您可以使用强大的条件格式工具，根据特定条件(例如颜色)直观地突出显示单元格。利用此功能，您可以根据分配给特定单元格的颜色进行计算，并突出显示关键数据点。在本课中，我们将逐步指导您根据单元格颜色计数或求和单元格。无论您是 Excel 新手还是经验丰富的用户，本文都将向您展示如何充分利用条件格式来有效地分析和处理数据。

在开始之前，请确保您对 Excel 及其可用的格式选项有基本的了解。本指南假定您已经熟悉电子表格的基本概念，并且能够熟练使用 Excel 的用户界面。那么，让我们开始学习如何在 Excel 中使用条件格式根据单元格颜色计数或求和!

使用条件格式按颜色计数/求和单元格

在这里，我们将首先创建一个 VBA 模块，然后运行它来完成任务。让我们通过一个简单的过程来了解如何在 Excel 中使用条件格式按颜色计数或求和单元格。

步骤 1

假设有一个 Excel 工作表，其中包含一系列填充颜色不同的单元格，如下图所示。

首先，右键单击工作表名称，然后选择"查看代码"以打开 VBA 应用程序。

右键单击 >"查看代码"。

步骤 2

然后点击"插入"，选择"模块"，并将以下代码复制到文本框中。

插入 > 模块 > 复制。

代码

Sub DisplayFormatCount()
	Dim Rng As Range
	Dim CountRange As Range
	Dim ColorRange As Range
	Dim xBackColor As Long
	Dim xFontColor As Long
	On Error Resume Next
	xTitleId       = "Count Cell Colour"
	Set CountRange = Application.Selection
	Set CountRange = Application.InputBox("Count Range :", xTitleId, CountRange.Address, Type: = 8)
	Set ColorRange = Application.InputBox("Color Range(single cell):", xTitleId, Type: = 8)
	Set ColorRange = ColorRange.Range("A1")
	xReturn        = 0
	For Each Rng In CountRange
		qqq           = Rng.Value
		xxx           = Rng.DisplayFormat.Interior.Color
		If Rng.DisplayFormat.Interior.Color = ColorRange.DisplayFormat.Interior.Color Then
         xBackColor   = xBackColor + 1
		End If
		If Rng.DisplayFormat.Font.Color = ColorRange.DisplayFormat.Font.Color Then
			xFontColor = xFontColor + 1
		End If
	Next
	MsgBox "BackColor is " & xBackColor & Chr(10) & "FontColor is " & xFontColor
End Sub