在Excel中根据背景颜色来计算数据

第一次用Excel的宏，挺好玩。找了点资料。

原帖在 http://club.excelhome.net/viewthread.php?tid=81978&extra=&page=3

也有代码下载，我就不提供了。

我用的版本是03

步骤:

1.打开Excel， Alt+F11 打开VBA宏编辑器，新建一个模块，并在里面定义一个VBA函数。

代码

Function Countcolor(col As Range, countrange As Range)
 Dim icell As Range
 Application.Volatile
 For Each icell In countrange
     If icell.Interior.ColorIndex = col.Interior.ColorIndex Then
         Countcolor = Countcolor + 1
     End If
 Next icell
End Function

2.该函数有2个参数，Para1的作用是做为背景颜色来比对，而Para2是统计的区域。

3.在Excel Sheet Cell中引用

=Countcolor(B$1,$A$1:$A$65535)

 

注意事项：

1. 如果不能运行，请查看宏的安全设置：工具->选项->安全->将安全级别降到中。

2.在VBA宏中，有Excel对象和模块定义。该函数需要在模块中定义，否则不能运行。因为带定义的需要在模块中才能定义。

Edraw Max 试用心得

MindMap是一个不错的思维逻辑工具。创始人是英国的托尼.布赞，他根据人脑的逻辑结构以及记忆结构，提出人可以用MindMap更好的思维和记忆,有兴趣的同学可以看看他的思维导图,很老了,但是很经典,也很系统，从大脑的构造开始讲起。

 

最近一直在尝试用MindMap来记笔记，但是效率实在是很低， 因为我喜欢用若干中颜色的笔画，结果就导致很慢很慢。：），现在开始尝试用软件画了。发现了Edraw Max还是很不错。：）总体来说，就是上手非常简单，界面和Visio基本相同，安装以后就可以轻松上手啦：）这里是 Edraw Max的介绍和下载地址。

最后贴一个界面图，以及我画的GRE词汇

 

zz Excel删除重复数据、重复行（2003&2007

http://www.wangyeba.com/Article/rjjx/wlgj/200908/20090824092117.shtml 

我们在Excel汇总大量数据时，可能需要排除重复。Excel删除重复数据、重复行的方法很多，下面是在2003、2007两个版本中删除重复的方法：
　　Excel删除重复数据、重复行（Office 2003）

点击Excel菜单：数据 → 筛选 → 高级筛选