­ã´£³¡ªL

½Ð¤W¶ÇÀÉ®×!

­ã´£³¡ªL

¦^´_ 3# luhpro


Worksheet_BeforeDoubleClick ¥iÂù«öIJµo,
¦³°ÝÃD, ¨S¦³ªþ¥ó, ¤£·Q¦A¦hªá®É¶¡¥h¼g²q·Qªºµ{¦¡, ­×­×§ï§ï«Ü¶O®É!!!

­ã´£³¡ªL

¦^´_ 5# luhpro


´£¨Ñ¥t¤@¤è®×°Ñ¦Ò:
¥Øªº¡G¥i³vÄæ¶i¦æ¦U±ø¥óªº¿z¿ï¡A¹F¨ì¶V¿z¶V¤Öªº®ÄªG

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2. Dim uR As Range
   
3. Set uR = ActiveSheet.UsedRange
   
4. With Target
   
5.      If Intersect(uR, .Item(1)) Is Nothing Then Exit Sub '«D¸ê®Æ°Ï¤º, ¸õ¥X
   
6.      
   
7.      Cancel = True
   
8.      If .Row = 1 Then .Parent.AutoFilterMode = False: Exit Sub '¼ÐÃD¦CÂù«ö, ¸Ñ°£¿z¿ï¼Ò¦¡
   
9.      If .Parent.AutoFilterMode = False Then uR.AutoFilter '­Y«D¿z¿ïª¬ºA,±Ò°Ê¿z¿ï¼Ò¦¡
   
10. 
    
11.      If .Parent.AutoFilter.Filters(.Column).On = True Then '§PÂ_¸ÓÄæ¬O§_°õ¦æ¹L¿z¿ï
    
12.         Selection.AutoFilter Field:=.Column '­Y¬O¸ÓÄæ¤w¿z¿ï, Åã¥Ü¥þ³¡
    
13.      Else
    
14.         Selection.AutoFilter Field:=.Column, Criteria1:=.Value '­Y¸ÓÄ楼¿z¿ï, °õ¦æ¿z¿ï
    
15.      End If
    
16. End With
    
17. End Sub

½Æ»s¥N½X

°Ñ¦ÒÀÉ¡G
DblClick«á¦Û°Ê¿z¿ï_v01.rar (9.25 KB)

¤U¸ü¦¸¼Æ: 8

2016-4-16 11:54

­ã´£³¡ªL

¦^´_ 7# vinejason


¤W¶ÇÀɮ׬ݬÝ!!

­ã´£³¡ªL

¦^´_ 9# vinejason

Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
¨º­Ó T ªº°ÝÃD§a!