|在本文中,您将学习如何使用VBA代码获得单元格的颜色。

我们需要按照以下步骤启动VB编辑器。

单击“开发人员”选项卡。从“代码”组中,选择“ Visual Basic”

img1

单击插入,然后单击模块

img2

这将创建一个新模块。

在模块

中输入以下代码===函数ColorIndex(单元格颜色作为范围)

ColorIndex = CellColor.Interior.ColorIndex

结束函数

img3

要获取以下单元格的颜色,请参考以下快照

img4

在单元格B2中,将公式输入为= ColorIndex(A2),然后将公式复制到下面的单元格中。

img5

[.underline]#让我们再举一个例子:#要知道特定颜色重复了多少次(按颜色计数),请参见下面的快照

img6

我们可以将COUNTIF函数与新创建的UDFColorIndex函数一起使用。

===

COUNTIF:计算满足条件的范围内的单元格数。

语法:= COUNTIF(range,criteria)

范围:它指的是标准将检查找到的项目数的所选单元格的范围。

条件:条件定义要计数的单元格。

在单元格D2中,公式为= COUNTIF($ B $ 2:$ B $ 9,ColorIndex(D2))

img7

通过将公式复制到单元格E2中,我们将按颜色获得计数。

img8

这就是我们获取任何单元格颜色的方式。