リストボックスへデータを表示する topへ AddItem メソッドで項目を設定する 下図はUserForm6にListbox1とCommandButton1とCommandButton2が配置されています。 ListBox1に表示された商品名を選択し、「入力」ボタンをクリックするとシートの入力されるようにします。 ユーザーフォームの初期化でListBox1に項目を表示します。 Private Sub UserForm_Initialize() UserForm6.Caption = "商品名の入力" With ListBox1 .AddItem "りんご" .AddItem "みかん" .AddItem "バナナ" End With End Sub Private Sub CommandButton1_Click() Dim lastRow As Long With Workshee