选择指定区域---要求模块

Jonathan.K

http://www.office-cn.net/vvb/thread-31292-1-1.html

欢欢

很感谢398，，     但是我想用vba'模块作出来，还有方法吗

Jonathan.K

即使用工作表事件还是可以保留复制剪贴的功能，如下代码

1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal target As Range)
   
2.     If Application.CutCopyMode <> False Then
   
3.         Application.CutCopyMode = False
   
4.         Call ColorBand(target)
   
5.     End If
   
6. End Sub
   
7. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal target As Range)
   
8.     If Application.CutCopyMode = False Then
   
9.         Call ColorBand(target)
   
10.     Else
    
11.         Exit Sub
    
12.     End If
    
13. End Sub
    
14. Private Sub ColorBand(ByVal rngTarget As Range)
    
15.     On Error Resume Next
    
16.     [ChangeColor].FormatConditions.Delete
    
17.     rngTarget.EntireRow.Name = "ChangeColor"
    
18.     With [ChangeColor].FormatConditions
    
19.         .Delete
    
20.         .Add xlExpression, , "TRUE"
    
21.         .Item(1).Interior.ColorIndex = 17
    
22.     End With
    
23. End Sub

复制代码

只是，如果是用条件格式方式，将会删除原有的所有条件格式
对用户来是不是最好的选择。

ccccjf

各位看起来都是EXCEL高人
适当研究问题是必须的，过于钻牛角则大可不必。

试想，同样的功能，同样的效果，如果不用EXCEL，而用编程去实现，不是很简单的小儿科吗？为什么要让EXCEL去干力不从心的事呢？费了很大的劲，得到的无非是很简单的结果。

记得小时候上学时，一同学回答问题错误（在两点之间画了几条线，判断那一条最短）而被老师批评。
当时老师做了个让人印象很深刻的比喻：假如A点有一只狗，B点放一块肉，狗是跑直线过去吃肉呢？还是绕个大圈儿跑过去？
同学们齐声回答：当然是直线跑过去。
老师：对啊，狗都知道两点之间直线最短。你们有些人怎么就不知道呢？

从此，我们学会了重要的一条：解决任何问题，都要尽可能把复杂问题简单化，而不是把简单问题复杂化。

tanhong

原帖由 ccccjf 于 2008-4-9 00:31 发表
各位看起来都是EXCEL高人
适当研究问题是必须的，过于钻牛角则大可不必。

试想，同样的功能，同样的效果，如果不用EXCEL，而用编程去实现，不是很简单的小儿科吗？为什么要让EXCEL去干力不从心的事呢？费了很大的 ...

你的观点我很赞同哦.不过我也有不同的看法哦
其一、学习就是一个求知的过程，不明就问，不明就学，多给自己问几个为什么也没有什么不好；
其二、人总有一个好奇心，虽然有时候这种好奇会显得过份的幼稚，但这正是打开未知世界的一把很好钥匙；
其三、学习前人的经验的确可以少走很多的弯路，但如果我们总是跟着走，就会有太多的束缚，而永远无法超跃前人。

欢欢

两点的距离问题都出来了，假如中间隔条深的河，小狗是不是也要去绕桥呢？  对这个问题，我不在深入了，只有小妖mm和江版gg知道我的问题的缘由，谢谢各位的支持！！-------欢乐小爪

Jonathan.K

看你20楼录制的动画来看，用的是andysky的工具箱，但不觉得反应慢吗？
你所认为的是用 selectionchange事件将导致复制粘贴功能失效
下面还有一个解决办法，在fans论坛里有讨论，如下贴子。
http://www.officefans.net/cdb/viewthread.php?tid=91954

欢欢

我在学作andysky工具箱,你可以对比一下图片,还是有区别的,谢谢你的再次关心该题目!!

andysky

没看出来这有什么值得讨论