Private Sub ListBox1_Change() If ListBox1.ListIndex > -1 Then i = ListBox1.ListIndex ListBox1.ListIndex = -1 End If End Sub Private Sub UserForm_Initialize() ListBox1.MultiSelect = fmMultiSelectMulti ListBox1.RowSource = "a1:d30" End Sub なお、ブレークポイントを設定し一...