ステートメント制御文の使用例9


使用例9

リストボックスに1列の全データを表示する (2種類)


 


AddItem メソッドを使う方法
-----------------------------
Private Sub UserForm_Initialize()
'1列全データ表示
  For i = 1 To 11
    ListBox1.AddItem Cells(i, 1)
  Next i
End Sub

Private Sub CommandButton1_Click()
  Unload Me
End Sub


RowSource プロパティを使う方法
---------------------------------
Private Sub UserForm_Initialize()
  'シートデータ範囲
  Dim Dt As String
     
  '1行目タイトル
  ListBox1.ColumnHeads = True
  
  '1列全データ表示
  Dt = "A2:C11"
  ListBox1.RowSource = Dt
End Sub

Private Sub CommandButton1_Click()
  Unload Me
End Sub

                                                                   back top