- ©«¤l
- 2
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 4
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2012-11-14
- ³Ì«áµn¿ý
- 2014-1-25
|
¦^´_ 8# Hsieh
·Q½Ð°Ý ¦b·s¼WCommandButton ¤§«á
³oÃä¬O·s¼WButtonªº«ö¶s¨Æ¥ó¶Ü¡H
With .CodeModule '¦bªí³æ¼Ò²Õ¤º·s¼Wµ{§Ç
.InsertLines 1, "Private Sub UserForm_Initialize()"
.InsertLines 2, "MyList1.List=array(1,2,3,4,5,6,7,8,9)"
.InsertLines 3, "Set obj.MyBut = Controls(""Move_Data"")" '±N«ö¶s¥[¤Jª«¥óÃþ§O
.InsertLines 4, "End Sub"
End With
¨º°£¤F³oÓ¤èªk¥~¯à¥Î¨ä¥Lªº¤èªk¥h·s¼W«ö¶sªº¨Æ¥ó¡H |
|