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

½Ð°ÝUSERFORM¦p¦ó°Ñ·ÓÀx¦s®æ¸ê®Æ

½Ð°ÝUSERFORM¦p¦ó°Ñ·ÓÀx¦s®æ¸ê®Æ

½Ð°ÝUSERFORM¦p¦ó°Ñ·ÓÀx¦s®æ¸ê®Æ
§Ú·Q­n§âÀx¦s®æ¸ê®Æ°Ñ·Ó¨ìUSERFORM¸ÌÅã¥Ü¥X¨Ó

¦^´_ 1# john711101

Ãþ¦ü³o¼Ë¹À?
  1. Private Sub UserForm_Activate()
  2. Dim »¡©ú As Variant
  3. »¡©ú = Sheets("sheet1").Range("F6:G10").Value
  4. UserForm1.ListBox1.ColumnCount = 2
  5. UserForm1.ListBox1.ColumnWidths = "50,50"
  6. UserForm1.ListBox1.List = »¡©ú
  7. End Sub   
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ john711101 ©ó 2015-4-17 10:31 ½s¿è

Ãþ¦ü³o¼Ë!
·PÁ«ü¾É!

ÁÙ¦³­Ó°ÝÃD¬O¯à³]©w¦C¦LListBox1©ÒÅã¥Üªº¶Ü?

TOP

¦^´_ 3# john711101

¤£¬O«ÜÀ´?
¬O»¡®ÇÃä¦A³]­Ó«öÁä «ö¤F´N¦C¦L¥X¥Ø«eªºlistbox­È¶Ü?

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD