返回目录:excel表格制作
1、首先在excel表格中输入一组数据,并将其中的几个单元格标黄处理,需要统计标黄的单元格的数量。
2、选中百单元格并点击工具栏中的“查找”按钮。
3、然后在打开的查度找对话框中点击“选项”按钮。
4、在打开的选项设置中点击“格式”的下拉菜单,并选择背景颜色。
5、然后光版标会变成吸管样式,吸取需要统计的单元格的颜色,点击“查找全部”按钮。
6、即可在查找对话框中看到黄色的底色单元格有4个被找到,并标权注了单元格的位置。
按ALT+F11后,选择“视图”——“工程资源管理器”,然后在左e68a84e799bee5baa6e997aee7ad94361边出现的资源管理器中空白处按右键——“插入”——“模块”,将以下代码复制到弹出的对话框里:
Sub 统计颜色()
Dim i As Integer, x As Integer, y As Integer, z As Integer
x = 0
y = 0
z = 0
For i = 1 To 12
If Cells(i, 3).Interior.ColorIndex = 33 Then x = x + 1
If Cells(i, 3).Interior.ColorIndex = 6 Then y = y + 1
If Cells(i, 3).Interior.ColorIndex = 14 Then z = z + 1
Next i
[A15] = x
[A16] = y
[A17] = z
End Sub
然后将光标点击放在这些代码的里面,再点一下上面工具图标中的三角图标(常见的那个插放图标),再回到表格里看一下,数量就已经统计出来了
Sub Test()
'程序运行时,以选择统计数据区域中的空单元格为循环截止标志,因此,在选择的数据区域内不能存在空单元格,如存在需删除。
Dim R As Single '行数变量
Dim C As Single '列数变量
Dim DigtalColor(300) As String '数字变量数组,默认值为300个数据的一维数组
Dim Dig As Single '数字变量
Dim K As Single
Dim No As Single
Dim MAX1 As Single '输出格式与内容相同的单元格数量的变量
Dim ColSave As Single
R = 2 '数据起始行序号
C = 2 '数据起始列序号
Dig = 1
'以下代码将数据存储在一个数组中
Do While Sheet1.Cells(R, C).Text <> ""
Do While Sheet1.Cells(R, C) <> ""
DigtalColor(Dig) = Sheet1.Cells(R, C) & " " & Sheet1.Cells(R, C).Interior.color
Dig = Dig + 1
C = C + 1
Loop
C = 2
R = R + 1
Loop
' 以下代码将数组中的数据整理并输出到特定单元格中
ColSave = 20 '通过改变此行的数据,调整输出数据存放位置的起始行号,20代表自第20行开始存放数据
K = 1
Do Until K > Dig
If DigtalColor(K) <> "" Then
If Sheet1.Cells(ColSave, 1).Interior.color <> Right(DigtalColor(K), 8) And Sheet1.Cells(ColSave, 1) <> Left(DigtalColor(K), Len(DigtalColor(K)) - 8) Then
Sheet1.Cells(ColSave, 1).Interior.color = Right(DigtalColor(K), 8)
Sheet1.Cells(ColSave, 1) = Left(DigtalColor(K), Len(DigtalColor(K)) - 8)
End If
No = 1
Do Until No > Dig
If DigtalColor(No) <> "" Then
If DigtalColor(No) = Sheet1.Cells(ColSave, 1) & " " & Sheet1.Cells(ColSave, 1).Interior.color Then
MAX1 = MAX1 + 1
DigtalColor(No) = ""
End If
End If
No = No + 1
Loop
Sheet1.Cells(ColSave, 2) = MAX1
ColSave = ColSave + 1
End If
K = K + 1
MAX1 = 0
Loop
End Sub
1、excel尽管可以对单元格设置背景色,但无法对单元格颜色进行识别统计;
2、如果只能通过单元格背景色或者字体颜色等来对内容进行区分和统计,只能通过VBA编程来实现;
3.将上述代码复制到一个已经备份过的类似表格中的VBA模块中,默认在sheet1运行,调整代码中的相应数据代码可以调整统计范围以及大小,默认自第2行第2列开始统计,背景颜色种类和数字种类决定了程序形成的数组的大小,代码行有相应注释参考。
4,office 2007中后台编制e799bee5baa6e4b893e5b19e366。
5、如果加入输入对话框采集数据,或许更完善,也或者有更好的方案也不一定,期待高手完美方案!
Excel统计来相同颜色单元格的数量的方法及具体操作步骤如下,以wps2019中的Excel表格为例做演示。
1、在电脑中的wps中打开需要操作的Excel表格,如下图所示。
2、在表格中需要统计数字的单元格中输入SUBTOTAL函数,格式为“=SUBTOTAL(函数序列号103,开始统计位置自:统计截止位置)”如下图所示。百
3、点击回车后就可以看到目前需要操作的总数量,如下图所示。
4、选中需要统计的范围后点击上方菜单栏的“开始”选项,如下图所示,开始位置的前一行也需要选中,进入下一页面。
5、在弹出的上方菜单栏中选择“筛选”选项,点击进入下一页面,如图所示。
6、看到在第一行中右下角有个小三角,点击此处进入下一页面,如图所示。
7、在弹出的设置选项对话框中选择按颜色筛选,比如筛选黄色单元格,点击黄色,如下图所示。
8、这时就可以看到表格当中已经显示出黄色单元格的所有项,及在筛度选后的数量中显示,统计的结果为4,如下图所示,即完成在Excel中统计相同颜色单元格的数量的操作步骤。