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

Jonathan.K

先问问为什么要逐本求末？
如果可以，利用类模块来取得工作表事件

Jonathan.K

关键是选择区域的事件吧？

Jonathan.K

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

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

复制代码

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

Jonathan.K

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