[已解决]统计颜色单元格WPS版本

呕奶

请教各位大大 ,,表格里面的单元格需要什么样的函数进行统计

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-5-20 14:20

呕奶 发表于 2013-5-20 14:05
那如果是专业版.那这样的函数需要怎么写?能给出一个么?非常感谢你的回答

同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：

1. Function sumcolor(rng1 As Range, rng2 As Range) As Single
   
2.     Dim cell As Range
   
3.     sumcolor = 0
   
4.     For Each cell In rng1
   
5.         If cell.Interior.Color = rng2.InteriorColor Then sumcolor = sumcolor + 1
   
6.     Next cell
   
7. End Function

复制代码

回到Excel中，输入 =sumcolor(A1:AX1,A1)，其中A1:AX1是待求个数的单元格区域，A1单元格有需要的颜色，这两个都可以改的。要注意单元格引用形式
如果你说的颜色是指字体颜色，那么把
If cell.Interior.Color = rng2.Interior.Color Then sumcolor = sumcolor + 1
改为
If cell.Font.Color = rng2.Font.Color Then sumcolor = sumcolor + 1

跳转到最佳答案楼层

呕奶

没人帮忙??

那么的帅

呕奶 发表于 2013-5-20 12:59
没人帮忙??

WPS 没有按照颜色计数的函数
可以用VBA编写自定义函数完成统计
但只有专业版的WPS安装了VBE，支持VBA代码
个人版没有安装VBE，无法加入VBA代码
按ALT+F11键，如果有VBE界面出现，可以插入自定义函数，
如果按ALT+F11 没有反映，则无法插入自定义函数。

呕奶

那么的帅 发表于 2013-5-20 13:54
WPS 没有按照颜色计数的函数
可以用VBA编写自定义函数完成统计
但只有专业版的WPS安装了VBE，支持VBA代 ...

那如果是专业版.那这样的函数需要怎么写?能给出一个么?非常感谢你的回答

那么的帅

呕奶 发表于 2013-5-20 14:05
那如果是专业版.那这样的函数需要怎么写?能给出一个么?非常感谢你的回答

同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：

1. Function sumcolor(rng1 As Range, rng2 As Range) As Single
   
2.     Dim cell As Range
   
3.     sumcolor = 0
   
4.     For Each cell In rng1
   
5.         If cell.Interior.Color = rng2.InteriorColor Then sumcolor = sumcolor + 1
   
6.     Next cell
   
7. End Function

复制代码

回到Excel中，输入 =sumcolor(A1:AX1,A1)，其中A1:AX1是待求个数的单元格区域，A1单元格有需要的颜色，这两个都可以改的。要注意单元格引用形式
如果你说的颜色是指字体颜色，那么把
If cell.Interior.Color = rng2.Interior.Color Then sumcolor = sumcolor + 1
改为
If cell.Font.Color = rng2.Font.Color Then sumcolor = sumcolor + 1

220gangge

不知道 你听说 过罗刚君的百宝箱没有，用这个插件可以实现统计，我刚才试过了很好用。你试一下，不行再回复。

呕奶

那么的帅 发表于 2013-5-20 14:20
同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：回到Excel中，输入 =sumcolor(A1:AX1,A1) ...

首先非常感谢你抽时间帮忙,,但是还有一个问题这个统一不同颜色的呢?

那么的帅

呕奶 发表于 2013-5-21 08:22
首先非常感谢你抽时间帮忙,,但是还有一个问题这个统一不同颜色的呢?

提问注意：
1、要有附件
2、具体的要求说明
3、举例说明要达到的效果
4、如果他人有帮你解决问题，记得给最佳答案。
5、如果有新的问题，请重新发帖提问。