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

¤G­Ó¥¨¶°µ{¦¡°ÝÃD

¤G­Ó¥¨¶°µ{¦¡°ÝÃD

1.½Ð°Ý§Úªº¥¨¶°µ{¦¡¤¤¦³«Ü¦h­ÓCommandButton (1   2    3)¡A¨C­ÓCommandButton¤U­±³£¦³­Ó§O¥¨¶°µ{¦¡
²{¦b§Ú­n°µ¤@­ÓCommandButton4 °õ¦æ«á¥i¥H¨Ì§Ç°õ¦æCommandButton1¡÷CommandButton2¡÷CommandButton3¥¨¶°µ{¦¡¡H
(¦b¤£¨Ï¥Î¨ì¼Ò²Õªº±¡ªp¤U)
2.¦p¦ó³]­p¥¨¶°µ{¦¡¨Ó¦Û°Ê±Ò°Êexcel ¼Ï¯Ã¤ÀªRªí¤¤"§ó·s¸ê®Æ"ªº¥\¯à
¥H¤W½Ð¦U¦ì¥ý¶i¨ó§U~~ÁÂÁÂ

¦^´_ 1# lone_tiger0303
  1. Private Sub CommandButton4_Click()
  2.     CommandButton1_Click
  3.     CommandButton2_Click
  4.     CommandButton3_Click
  5. End Sub
  6. '***************
  7. Private Sub Workbook_Open()
  8.     '¥i 2 ¿ï 1
  9.     'Me.RefreshAll                  '§ó·s«ü©w¬¡­¶Ã¯¤¤©Ò¦³¥~³¡¸ê®Æ½d³ò©M¼Ï¯Ã¤ÀªRªí³øªí¡C
  10.     'Sheet1.QueryTables(1).Refresh  '¥i§ó·s«üªº¤u§@ªí(Sheet1)¤¤ªº²Ä1­Ó¬d¸ßªí
  11. End Sub
½Æ»s¥N½X

TOP

§Ú¤]©M¼Ó¥D¥X²{¦P¤@¼Ëªº°ÝÃD.
§ÚÁÙ¤@ª½¥Î : Call CommandButton1_Click
Y-Y " ©Ç¤£±o¨S¹ê²{¤£¤F.

¾Ç²ß¤F.ÁÂÁÂ~
NeverTry , NeverNo !

TOP

¦^´_ 3# StanleyVic

Call  ³¯­z¥Ü VBA»¡©ú
·í±z­n©I¥s¤@­Óµ{§Ç®É¡A¨Ã¤£¤@©w­n¨Ï¥Î Call ÃöÁä¦r¡C¦ý¦pªG±z¨Ï¥ÎCall ÃöÁä¦r¨Ó©I¥s¤@­Ó»Ý­n¤Þ¼Æªºµ{§Ç¡A¨º»ò argumentlist ¤]¥²¶·­n¥[¤W¬A¸¹¡C¦pªG¬Ù²¤¤F Call ÃöÁä¦r¡A¨º»ò¤]¥²¶·­n¬Ù²¤¬A¸¹¡C¦pªG±z¨Ï¥Î Call »yªk¨Ó©I¥s¤º«Ø¨ç¼Æ©Î¨Ï¥ÎªÌ©w¸q¨ç¼Æ¡A«h¨ç¼Æªº¶Ç¦^­È±N·|µLªk¶Ç¦^¡C

Y-Y " ©Ç¤£±o¨S¹ê²{¤£¤F
¥i¯à¬O§A©I¥s¤£¬O¦P¼Ò²Õªºµ{§Ç, ¥B¦p©I¥sªº¬Oª«¥ó¼Ò²Õ,«e­±­n«ü©úª«¥óªº¦WºÙ¦p  Call  Sheet1.Ex  ©Î  Sheet1.Ex

TOP

¥»©«³Ì«á¥Ñ StanleyVic ©ó 2011-7-20 10:27 ½s¿è

½Ð°Ý...¦pªG¥N½X¬O¥H¤U¨Ò¦p, ¨ä¤¤¤@­Ó³Q¤Þ¥Î¬O¦³ÄÝ©Ê(DblClick)

Private Sub CommandButton1_Click()
    MsgBox ("AA")
End Sub

Private Sub CommandButton2_Click()
    MsgBox ("BB")
End Sub

Private Sub CommandButton3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    MsgBox ("CC")
End Sub

'~~~ ²{¦b¶}©l¤Þ¥Î Button1~3 ..

Private Sub CommandButton4_Click()
    CommandButton1_Click
    CommandButton2_Click

'¥H¤U¨â­Ó§Ú³£¸Õ¹L.³£¤£¦æ. ³oºØ±¡ªp.§Ú¤S­n¦p¦ó¤~¹ê²{..ÁÂÁ¤j¤j«Øij¤@¤U.   
    'CommandButton3_Click
    'CommandButton3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
End Sub
NeverTry , NeverNo !

TOP

¦^´_ 5# StanleyVic
Sheet1: Sub CommandButton1_Click() '¤½¥Î
Call Sheet1.CommandButton1_Click
Sheet1: Private Sub CommandButton1_Click() '¨p¥Î
Run "Sheet1.CommandButton1_Click"
'CommandButton3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
³o¬O CommandButtonµo¥Í¦b¨Ï¥ÎªÌ±N«ü¼Ð²¾¦Üª«¥ó¤W¡A«ö¨â¤U·Æ¹«Áä®É¡Cªº¨Æ¥óµ{§Ç

TOP

¦^´_ 6# GBKEE


    ÁÂÁ¤j¤jªº»¡©ú.§Ú¶}©l¤F¸Ñ©M©ú¥Õ¤F.
Private Sub CommandButton3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)  
' ¥¦¬OÄݨp¥Îªº, ¦A¥[¤W¥»¨­§Ú¤§«e¤v¸g©w¤F¥¦ªºÄݩʬ° ( DblClick ), ©Ò¥H´N¤£¯à³Q½Õ¥Î¥X¨Ó !

¤S¤W¤F¤@½Ò ^,^" thx~
NeverTry , NeverNo !

TOP

1.½Ð°Ý§Úªº¥¨¶°µ{¦¡¤¤¦³«Ü¦h­ÓCommandButton (1   2    3)¡A¨C­ÓCommandButton¤U­±³£¦³­Ó§O¥¨¶°µ{¦¡¡A²{¦b§Ú­n°µ¤@­ÓCommandButton4 °õ¦æ«á¥i¥H¨Ì§Ç°õ¦æcommandButton1¡÷CommandButton2¡÷CommandButton3¥¨¶°µ{¦¡¡H(¦b¤£¨Ï¥Î¨ì¼Ò²Õªº±¡ªp¤U)
°w¹ï²Ä¤@­Ó°ÝÃD¬O«ü¦A¦P¤@­ÓÀɮפº
¦ý¦pªG¦A¤£¦PÀɮ׮ɭn¦p¦ó³]©w©O

TOP

¤£¦PÀɮתº¥¨¶°­n°õ¦æÁÙ¬O¥²¶·§â¸ÓÀÉ®×¥´¶}
©Î¥Î­Ó¤H¥¨¶°¬¡­¶Ã¯©Î¥Î¼W¯q¶°¹õ«á¶}±Ò¡C

TOP

oobird ¦Ñ®v
§Ú¬O«ü¤w¸g¥Î¥¨¶°(excelÀÉ®×B)¨Ó¶}±Ò¤@­ÓexcelÀÉ®×A
¦ý­n
¦p¦ó¥ÎexcelÀÉ®×B¤¤ªºcommandButton1
¥h°õ¦æexcelÀÉ®×A¤¤ªºcommandButton1

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD