¤u§@ªí worksheet ª«¥ó¨Æ¥ó¨ç¼Æ¤º°Ñ¼Æ Cancel ¥Îªk
- ©«¤l
- 517
- ¥DÃD
- 54
- ºëµØ
- 0
- ¿n¤À
- 593
- ÂI¦W
- 241
- §@·~¨t²Î
- win 10
- ³nÅ骩¥»
- []
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-3-19
- ³Ì«áµn¿ý
- 2024-11-1
|
¤u§@ªí worksheet ª«¥ó¨Æ¥ó¨ç¼Æ¤º°Ñ¼Æ Cancel ¥Îªk
½Ð°Ý\
³oӨƥó¨ç¼Æ Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel ¬O¹ï¬Æ»ò¨Ó©w¸q¥¬ªLÈ¡A¥¦ªº·N¸q¬O¤°»ò
¥i§_Á|¨Ò»¡©ún«ç»ò¥Î?
ÁÂÁÂ |
|
|
|
|
|
|
- ©«¤l
- 319
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 309
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- 2k
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-6-24
- ³Ì«áµn¿ý
- 2024-4-27
|
±`ºA¤U·í¬Y cell ³QÂù·¥®É, ·|¥X²{¥i¥H¤å¦r½s¿èªº°{Ã{´å¼Ð
Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
¥[¤J Cancel = True «á
¤£·|¥X²{¥i¤å¦r½s¿èªº°{Ã{´å¼Ð |
|
|
|
|
|
|
- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
¦^´_ 2# jackyq
¤j¤j§A¦n, ¥¦ªº§@¥Î¬O¤°»ò?
¦³¤°»ò¥Î³~? |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-12-7 07:06 ½s¿è
¦^´_ 1# Scott090
Á|Ó¨Ò¤l¨Ó»¡©ú¡G
¤u§@ªí1 (¤u§@ªí1)¡G- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
- If Not (Target.Column = 1 Or Target.Column = 2) Then Exit Sub
- Cancel = True
- If Target.Column = 1 Then
- ¤u§@ªí1.Ex
- Else
- ¤u§@ªí2.Ex
- End If
- End Sub
- Sub Ex()
- MsgBox "¤u§@ªí1"
- End Sub
½Æ»s¥N½X ¤u§@ªí2 (¤u§@ªí2)¡G- Sub Ex()
- MsgBox "¤u§@ªí2"
- End Sub
½Æ»s¥N½X »¡©ú¤@¡G- Cancel As Boolean (ì¤å)
- False when the event occurs. If the event procedure sets this argument to True,
- the default double-click action isn't performed when the procedure is finished.
½Æ»s¥N½X °Ñ¼Æ Cancel ¹w³]Ȭ° False¡A¥ç§Y·í¬° False È«h±Ò°Ê¸Ó¨Æ¥ó¡F§A¥i¸ÕµÛ¦b¦³Äæ¦ìȪº
Äæ¦ì¤º¡A·Æ¹«³s«ö¨â¤U§A·|µo²{¸ÓÄæÈ·|¤Ï¥Õ©Î°{Ã{¡C
¦p¸Ó¤Þ¼Æ«Å§i¬° True ®É¡A¸ÓÂùÀ»ªº°Ê§@§¹¦¨®É¡A¤Ï¥Õ©Î°{Ã{³£¬O²@µL§@¥Îªº¡A
·N§Y¤£·|±Ò°Ê¸Ó¨Æ¥óªº¤Ï¥Õ©Î°{Ã{¤§´£¥Ü§@¥Î¡C
»¡©ú¤G¡G- Need help with code to do the folowing when clicking on diffrent cells
- in a worksheet (»Ýn¦b¸Ó¤u§@ªí¤¤¥[¤J¥H¤U¤§µ{¦¡½X)
- Column A when clicket in any row show form1.Ex (»Ý¦b"¤u§@ªí1"¥[¤J¤@ Sub Ex() µ{¦¡½X)
- Column B when clicket in any row show form2.Ex (»Ý¦b"¤u§@ªí2"¥[¤J¤@ Sub Ex() µ{¦¡½X)
½Æ»s¥N½X ·í³QÂI¿ïªºÄæ¦ì¬° A Äæ®É¡A«h°õ¦æ ¤u§@ªí1.Ex¡F
·í³QÂI¿ïªºÄæ¦ì¬° B Äæ®É¡A«h°õ¦æ ¤u§@ªí2.Ex¡C |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-12-7 07:15 ½s¿è
¦^´_ 3# yen956
§A¥i¥H¸ÕµÛÆ[¹î¡G- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
- Cancel = True
- If Not (Target.Column = 1 Or Target.Column = 2) Then Exit Sub
- ' Cancel = True
- .
- .
- .
- End Sub
½Æ»s¥N½X »P¤U¦C¤£¦Pªº³B¸Ì¤§¶¡ªº¤£¦PÅܤơG- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
- ' Cancel = True
- If Not (Target.Column = 1 Or Target.Column = 2) Then Exit Sub
- Cancel = True
- .
- .
- .
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 319
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 309
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- 2k
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-6-24
- ³Ì«áµn¿ý
- 2024-4-27
|
¥»©«³Ì«á¥Ñ jackyq ©ó 2015-12-7 08:44 ½s¿è
¦^´_ 3# yen956
¹ê²{«ü©wªº cell , ¨Ï¨ä¸T¤î³Q¤â°Êקï´ÁÈ
¤£·|¥X²{¥i¤å¦r½s¿èªº°{Ã{´å¼Ð
¦ÛµM´NµLªk¤â°Êקï Range |
|
|
|
|
|
|
- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
¦^´_ 8# jackyq
ªGµM¥i¥H¸T¤î¥Î "DoubleClick" ªº¤èªkקïCellªºÈ(ÁöµM¥i¥Î¨ä¤èªk),
ÁÂÁ¤j¤jªº»¡©ú»P«ü¾É!! |
|
|
|
|
|
|
- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
¦^´_ 5# c_c_lai
ÁÂÁÂc¤j¸ÔºÉªº»¡©ú, ¨S·Q¨ì¸T¤î "DoubleClick" ÁÙ¬O¦³¥¦ªº¯S©w¥Î³~.
p.s. Ãö©ó ºÊ¬Ýµøµ¡¤wª¾¹D«ç¼Ë¥Î¤F(¥]¬A¥Î¥kÁä), ¯u¦n¥Î,
¤£ºÞ¥Î¨Ó°lºî¦Û¤wªºVBA, ÁÙ¬O¤j¤j̯«©_ªºVBA§¡«Ü¤£¿ù, ÁÂÁÂ!! |
|
|
|
|
|
|