GBKEE

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

GBKEE

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

GBKEE

¦^´_ 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ªº¨Æ¥óµ{§Ç

GBKEE

¦^´_ 10# lone_tiger0303
¦p¦ó¥ÎexcelÀÉ®×B¤¤ªºcommandButton1 ->  Run "B!Sheet1.CommandButton1_Click"
¥h°õ¦æexcelÀÉ®×A¤¤ªºcommandButton1 ->  Run "A!Sheet1.CommandButton1_Click"

GBKEE

¦^´_ 13# lone_tiger0303
Run "02_§Þ®v«O¥À¦¨®Ä_µ{¦¡.xls!Sheets(µ{¦¡).CommandButton7_Click"
Sheets(µ{¦¡). §ï¥Î CodeName   vba ¸Ìª«¥óªº¦WºÙ