新年快乐：）

 

在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菜单：数据 → 筛选 → 高级筛选

 

 

6年：）

RT，一晃就过去了～

今天状态还不错

今天状态还不错，就是到6点多的时候，实在实在太累了。。。。。。

• 听力差速读以及默写比对


• 阅读完成


• 作文没看


• 口语没看

汗，其实也没完成啥啦。。。。。。

明天要早起，电脑还是太浪费时间了，不过注意力集中有所提高。

今天小结

今天早上挣扎了9分钟，于5点39分起床，头有点痛，稍微有点晕，不过看书还好，就是在家看怎么效率都是一般的。结果中午睡了1个半小时，ＦＴ。今天听力大概遛了一下方法，找出了自己的问题的关键，我的关键是走神太严重了！！！所以听写将是我的复习重点，另外一个部分就是速度，锻炼意群。重点在剑３，４，５。

阅读新东方的太简单了，所以找了一点平行阅读法的东西，明天开始集中攻克。听力么，可以有了新计划了，也还是很不错的。重点在于我的阅读速度虽然快，但是继续在英文中发扬不求甚解，质量不高，因此，我将在阅读的分配上调整好，对于重点段落以及重点部分将有侧重点的阅读。

作文，１个小时，背文章。

口语：每天８点３０开始，在线一下下。顺其自然了，不能再花太多时间了！

明天计划如下：

• 阅读：
  
  
  
  
  • 平行阅读法
  
  
  • 信号词
  
  
  • 题型分析
  
  
  • Summary
  
  
  • 判断题
    
    
    
    
    
  
  
  
  


• 听力：
  
  
  
  
  • 3-1
  
  
  • 分析3-1
  
  
  • 写题型总结记录
  
  
  • 听写3-1-4
  
  
  • 速度阅读已经分析的文章
    
    
    
    
    
  
  
  
  


• 写作：
  
  
  
  
  • 背诵文章，看以前的笔记（1个小时）
    
    
    
    
    
  
  
  
  


• 口语：
  
  
  
  
  • 8：30晚上开始在线课程