'================================================================================= Private Sub UserForm_Initialize() 'ユーザーフォームを初期化する 10 For I = 0 To 7 'Iが0から7まで(2行-2から9行-2まで) 20 ComboBox1.AddItem Worksheets("名簿").Cells(I + 2, 2).Value '名簿シートのB列 30 Next '繰り返す End Sub '--------------------------------------------------------------------------------- <コメント> ※1 コンボボックスは、ユーザーフォームに作成する ※2 マクロは、作成したユーザーフ