リストボックスから複数行を選択し、その複数のデータをセルに入力したい
Excel2003でマクロをつくっています。シートのＢ列を右クリックすると、リストボックスが表示され 任意１行を選択するとシートのＢ列、Ｃ列、Ｄ列のセルにデーターが入力されます。
Private Sub ListBox2_Click()
With ListBox2
If .ListIndex = -1 Then
MsgBox "項目を選択してくだい"
Else
’シートが保護されていたら保護を解除
If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect
End If
ActiveCell.Value = ListBox2.List(ListBox2.ListIndex, 0)
ActiveCell.Offset(0, 1).Value = ListBox2.List(ListBox2.ListIndex, 1)
ActiveCell.Offset(0, 2).Value = ListBox2.List(ListBox2.ListIndex, 2)
ActiveSheet.Protect
End If
End With
Unload UserForm3
End Sub
このリストボックスから複数の行を選択し、シートのＢ列、Ｃ列、Ｄ列のセルにデーターを入力したいのですが、Multiselectプロパティを変更しても、一行のみしか入力できません。
上のコードをどうかえたらよろしいでしょうか。
