選擇指定區(qū)域---要求模塊

Jonathan.K

http://ctxi.cn/vvb/thread-31292-1-1.html

歡歡

很感謝398，，     但是我想用vba'模塊作出來，還有方法嗎

Jonathan.K

即使用工作表事件還是可以保留復(fù)制剪貼的功能，如下代碼

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

復(fù)制代碼

只是，如果是用條件格式方式，將會(huì)刪除原有的所有條件格式
對(duì)用戶來是不是最好的選擇。

ccccjf

各位看起來都是EXCEL高人
適當(dāng)研究問題是必須的，過于鉆牛角則大可不必。

試想，同樣的功能，同樣的效果，如果不用EXCEL，而用編程去實(shí)現(xiàn)，不是很簡(jiǎn)單的小兒科嗎？為什么要讓EXCEL去干力不從心的事呢？費(fèi)了很大的勁，得到的無非是很簡(jiǎn)單的結(jié)果。

記得小時(shí)候上學(xué)時(shí)，一同學(xué)回答問題錯(cuò)誤（在兩點(diǎn)之間畫了幾條線，判斷那一條最短）而被老師批評(píng)。
當(dāng)時(shí)老師做了個(gè)讓人印象很深刻的比喻：假如A點(diǎn)有一只狗，B點(diǎn)放一塊肉，狗是跑直線過去吃肉呢？還是繞個(gè)大圈兒跑過去？
同學(xué)們齊聲回答：當(dāng)然是直線跑過去。
老師：對(duì)啊，狗都知道兩點(diǎn)之間直線最短。你們有些人怎么就不知道呢？

從此，我們學(xué)會(huì)了重要的一條：解決任何問題，都要盡可能把復(fù)雜問題簡(jiǎn)單化，而不是把簡(jiǎn)單問題復(fù)雜化。

tanhong

原帖由 ccccjf 于 2008-4-9 00:31 發(fā)表
各位看起來都是EXCEL高人
適當(dāng)研究問題是必須的，過于鉆牛角則大可不必。

試想，同樣的功能，同樣的效果，如果不用EXCEL，而用編程去實(shí)現(xiàn)，不是很簡(jiǎn)單的小兒科嗎？為什么要讓EXCEL去干力不從心的事呢？費(fèi)了很大的 ...

你的觀點(diǎn)我很贊同哦.不過我也有不同的看法哦
其一、學(xué)習(xí)就是一個(gè)求知的過程，不明就問，不明就學(xué)，多給自己?jiǎn)枎讉�(gè)為什么也沒有什么不好；
其二、人總有一個(gè)好奇心，雖然有時(shí)候這種好奇會(huì)顯得過份的幼稚，但這正是打開未知世界的一把很好鑰匙；
其三、學(xué)習(xí)前人的經(jīng)驗(yàn)的確可以少走很多的彎路，但如果我們總是跟著走，就會(huì)有太多的束縛，而永遠(yuǎn)無法超躍前人。

歡歡

兩點(diǎn)的距離問題都出來了，假如中間隔條深的河，小狗是不是也要去繞橋呢？  對(duì)這個(gè)問題，我不在深入了，只有小妖mm和江版gg知道我的問題的緣由，謝謝各位的支持�。�-------歡樂小爪

Jonathan.K

看你20樓錄制的動(dòng)畫來看，用的是andysky的工具箱，但不覺得反應(yīng)慢嗎？
你所認(rèn)為的是用 selectionchange事件將導(dǎo)致復(fù)制粘貼功能失效
下面還有一個(gè)解決辦法，在fans論壇里有討論，如下貼子。
http://www.officefans.net/cdb/viewthread.php?tid=91954

歡歡

我在學(xué)作andysky工具箱,你可以對(duì)比一下圖片,還是有區(qū)別的,謝謝你的再次關(guān)心該題目!!

andysky

沒看出來這有什么值得討論