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

¦p¦óÅýListBox¥i¥HÀHµÛÀx¦s®æ¤ºªº¼Æ¦rÅܤÆ

¦^´_ 3# catmm
  1. Private Sub UserForm_Initialize()
  2.     With ListBox1
  3.         .RowSource = "a1:b6"
  4.         .ColumnCount = 2
  5.     End With
  6. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# syuan
ListBox1.List = xxxx.Value                             ·|©T©wListªº­È,¬°³Ìªì³]©w®Éxxxxªº­È
ListBox1.RowSource = xxxx.Address(, , , 1)   Listªº­È,·|ÀHxxxxªº­È ¦Ó§ïÅÜ

TOP

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