ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ÂI2¤U§Ö³t¿z¿ï

[µo°Ý] ÂI2¤U§Ö³t¿z¿ï

¦U¦ì«e½ú¥­¦w
·Q­n²¤Æ¿z¿ï°Ê§@
¨Ò¦p:
¦³±iªí®æ¦³7­ÓÄæ¦ì
¸ê®Æ¦³¼Æ¤dµ§
¥i§_°µ¨ì
´å¼Ð©Ò¦b¦ì¸m«ö2¤U , §Y«ö©Ò¦bÀx¦s®æªº½è , ¦Û°Ê¶i¦æ¿z¿ï
¦A«ö2¤U¦Û°Ê«ì´_­ìª¬
ÁÂÁÂ
µL¤îºÉªº§V¤O¤W¶i

½Ð¤W¶ÇÀÉ®×!

TOP

¦^´_ 1# vinejason
¤£½×¬O WorkSheet ÁÙ¬O Range ³£¨S¦³´£¨Ñ DblClick ¨Æ¥ó,
°£«D§AVB¥\¤O«Ü±j,
§_«hÁÙ¬O¥u¯à¨Ï¥Î¨t²Î­ì¦³ªº¨Æ¥ó¨ç¼Æ¨Ó³B²z.

¦¹Ãþ»Ý¨D§Ú¤j³£¬O§ï¥Ñ Worksheet_BeforeRightClick ¨Æ¥ó¨ÓIJµo,
³»¦h¬O­n¯d·N­Y³Ì«á³]©w Cancel = True «h°õ¦æ§¹ª½±µµ²§ô,
¥i¥HÁקKÄ~Äò°õ¦æ¹w³]ªº RightClick µ{§Ç.

TOP

¦^´_ 3# luhpro


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

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2016-4-16 01:25 ½s¿è

¦^´_ 4# ­ã´£³¡ªL
¶â...
¥^¦£¤U·í®É§Ú¥u°O±o½ DblClick ¨Æ¥ó¿ï³æ¨S©¹¤W©Ô...
¬O§Úªº²¨©¿,©êºp.

¦^´_ 1# vinejason
²{¦b¬Ý¨ì Worksheet ªGµM¬O¦³ BeforeDoubleClick ¨Æ¥ó.
¨º»ò­n°µ¨ì¼Ó¥Dªº»Ý¨D´N®e©ö¤F.
  1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  2.   With Target
  3.     If .Parent.FilterMode Then ' Àˬd¦Û°Ê¿z¿ïª¬ºA
  4.       Selection.AutoFilter ' ¬O«h¨ú®ø¦Û°Ê¿z¿ïª¬ºA
  5.     Else
  6.       Selection.AutoFilter Field:=.Column, Criteria1:=.Value, VisibleDropDown:=False ' Field : ¿z¿ï­ÈÄæ¦ì¸¹½X, Criteria1 : ¿z¿ï­È, VisibleDropDown : ¦Û°Ê¿z¿ïª¬ºA®É­n¤£­nÅã¥Ü¦V¤U½bÀY
  7.     End If
  8.   End With
  9.   Cancel = True ' ¤§«á¤£­n°õ¦æ¨Ï¥ÎªÌ«ö¤U Double Click ªº³B²z°Ê§@
  10. End Sub
½Æ»s¥N½X
DblClick«á¦Û°Ê¿z¿ï.zip (9.28 KB)

¥t¤@­Ó¤U¸üºô§} :
http://www.FunP.Net/592865
1

µû¤À¤H¼Æ

TOP

¦^´_ 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.      If .Parent.AutoFilter.Filters(.Column).On = True Then '§PÂ_¸ÓÄæ¬O§_°õ¦æ¹L¿z¿ï
  11.         Selection.AutoFilter Field:=.Column '­Y¬O¸ÓÄæ¤w¿z¿ï, Åã¥Ü¥þ³¡
  12.      Else
  13.         Selection.AutoFilter Field:=.Column, Criteria1:=.Value '­Y¸ÓÄ楼¿z¿ï, °õ¦æ¿z¿ï
  14.      End If
  15. End With
  16. End Sub
½Æ»s¥N½X
°Ñ¦ÒÀÉ¡G
DblClick«á¦Û°Ê¿z¿ï_v01.rar (9.25 KB)

TOP

luhpro  »P ­ã´£³¡ªL  ¥­¦w
¦bexcelªº¤u§@ªí¿z¿ïªº¥\¯à , ¦]¬°±z­ÌÅܱo§ó«K±¶
ÁÂÁ±z­Ì

¦ý¬O ¤´¦³§xÃø
°õ¦æ¶¥¬q¿ù»~ 424 ,  ¦¹³B»Ý­nª«¥ó
If Intersect(uR, .Item(1)) Is Nothing Then   
¹ê¦b§x´b !
µL¤îºÉªº§V¤O¤W¶i

TOP

¦^´_ 7# vinejason


¤W¶ÇÀɮ׬ݬÝ!!

TOP

¦^´_ 8# ­ã´£³¡ªL

½Ð¬ÝÀÉ®×

ÀÉ®×.zip (127.45 KB)
µL¤îºÉªº§V¤O¤W¶i

TOP

¦^´_ 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!

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD