| ©«¤l1572 ¥DÃD16 ºëµØ2 ¿n¤À1521 ÂI¦W0  §@·~¨t²Îxp ³nÅ骩¥»office 2003 ¾\ŪÅv150 ©Ê§O¨k µù¥U®É¶¡2010-5-1 ³Ì«áµn¿ý2016-1-13 
 
 | 
                
| ¨Ò¦p¡G Sub xx()
 With Application.CommandBars("Cell")
 .Reset
 .Controls.Add(Type:=msoControlButton, before:=2).Caption = "¥¨¶°1"
 .Controls("¥¨¶°1").OnAction = "yy"
 End With
 End Sub
 ¦b¥kÁ䪺²Ä¤G¶µ¼W¥[¤@Ó°õ¦æ¥¨¶°1ªº¶µ¥Ø¡A¸Ó¶µ¥Ø«ü¦V¦W¬°"yy"ªº¥¨¶°
 Â÷¶}®Én²¾°£
 Private Sub Workbook_BeforeClose(Cancel As Boolean)
 Application.CommandBars("cell").Reset
 End Sub
 | 
 |