谁说Excel不能画图?我教你!

画图

晚上闲着无聊,打开Excel折腾起来。

本来我的思路设计一个VBA,为了实现标记(加底纹)修改过的单元格以便区分。

这其中就得利用change事件来实现了。

代码很简单的,实质的就一句话:

 
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)   
  2. Target.Interior.ColorIndex = 7  
  3. End Sub   

可怜吧?就第二句那么一句,可怜巴巴的!

解释一下原理吧:就是当你触发修改任何单元格(包括点击单元格),都会被自动加上底纹颜色为红色(不是纯红的,自己看颜色图,那颜色我一下叫不出了)

颜色表

但是change事件你鼠标点点都算,所以被我折腾成了画图工具了。

怎么画?听着!

上述代码准备好后,将鼠标点在你要开始画的起点,然后利用键盘方向键控制单元格行走,走过的路径都会被标记。说实话有点贪吃蛇的感觉!

好好的代码,被我折腾成小游戏,哎!

当然颜色有需要自己参照颜色表改动。

Have A Try!大家玩好!看看我的作品~~见笑!我比较能折腾!折腾无罪!

作品

分享到: