ステートメント制御文の使用例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