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

[µo°Ý] °ÊºA·s¼W UserForm ¤Î CommandButton «á ¦p¦ó¼gclickªº°Ê§@¡H

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

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD