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

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

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

¦^´_ 3# john711101

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

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD