ユーザーフォーム

≪値操作≫
・ラベル.caption
・テキストボックス.value
・コンボボックス.value



≪リストボックスの項目作成≫
例）リストボックスにトランプの絵柄を入れる。

With Me .リストボックス
　.AddItem "ハート"
　.AddItem "ダイヤ"
　.AddItem "クローバー"
　.AddItem "スペード"
End With



≪オブジェクトと変数を組み合わせて値を読み込む≫
例）シートA列の値を一行目から読み込み、フォームのラベル（L_変数）へ表示させる。

dim i as long
i = 1
do while sheets(1).cells(i,"A").value <> ""
Me.Controls("L_" & i).Value = sheets(1).cells(i,"A").value
i = i + 1
loop