リストボックスと同じセルデーターを削除する

質問

3時間ほど奮闘していますが、思うようにできません。
よろしくお願いします。（Ｏｆｆｉｃｅ2010　Windows7）

ユーザーフォームのリストボックス（摘要リスト）で、選んだ項目と
同じ項目があるセルを、Ｎ3からラスト行の中から探し出して、削除する。
また、その1つ左側（Ｍ列）と、2つ左側（Ｌ列）のセルデーター及び
リストボックス（摘要リスト）で、選んだ項目も削除する。

Dim i As Long
With ActiveWorkbook.Sheets("勘定科目")
摘要リスト.Clear
For i = 3 To Range("N65536").End(xlUp).Row
If .Range("N" & i).Value = 摘要リスト.Value Then

摘要リスト.List(.ListIndex, 0) = ""
ActiveCell.Offset(0, 0).Value = ""
ActiveCell.Offset(0, -1).Value = ""
ActiveCell.Offset(0, -2).Value = ""
End If
Next
End With

と、したのですが、うまく作動しません。

回答No.1

kichi8000 · ベストアンサー

ループの中で比較元を消してしまっています。
ボックスを消す前に比較元”摘要リスト.Value”を取得し、その値を再利用しないといけません。

ActiveCell.Offset
指定のセルがアクティブになっていないままの操作では動作不安定になります。
Range(r).Offset　などでアクティブにしなくてもできます。

摘要リスト.Clear
リスト項目を全削除していいんでしょうか。

摘要リスト.List(.ListIndex, 0)
全削除の後でリストの１番目の項目をなぜ空に？
a = 摘要リスト.ListIndex
摘要リスト.RemoveItem(a)

リストを選択していない時の処理は？
このままだと""も検索対象になりませんか。
If ListBox1.ListIndex = -1 Then Exit Sub

Dim i As Long
Dim r As String
Dim k As Variant
Dim s As Boolean = False

With ActiveWorkbook.Sheets("勘定科目")
k = 摘要リスト.Value
摘要リスト.Clear
For i = 3 To Range("N65536").End(xlUp).Row
r = "N" & i
If .Range(r).Value = k Then
s = True
Range(r).Offset(0, 0).Value = ""
Range(r).Offset(0, -1).Value = ""
Range(r).Offset(0, -2).Value = ""
End If
Next
If s = True then
摘要リスト.List(.ListIndex, 0) = ""
End if
End With

ここまで書いて、リストボックスをどうしたいのかわからなくなってきました。

お礼

kichi8000 さん
質問の仕方が下手にもかかわらず、ありがとうございました。
解決しました。
今後ともよろしくお願いします。