Private Sub Workbook_Open() UserForm1.Show End SubPrivate Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) '選択した値を取得 Cells(2, "I") = ListBox1.TextEnd SubPrivate Sub UserForm_Initialize() Dim lastrow As Long lastrow = Sh…