ªð¦^¦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 : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD