その行の一部のセルを除く、見つかった行を削除します

Question

このコードを削除ボタン付きのフォームで使用しています。

データを持つ列A、B、C、D、E、Fがあり、列A、B、Cのデータを削除する必要があります。削除する行はListBox1の値に基づいています。

この場合、Find,、Delete（D、E、Fを除く）の使用方法はわかりません。

Sheets("ORDERS").Range("A:A").Find(ListBox1.Text).Activate   
sil = ActiveCell.Row   
Sheets("ORDERS").Rows(sil).ClearContents 

Answer 1

次のコードのようなものを試してみてください：

Dim FindRng As range 

Set FindRng = Sheets("ORDERS").Range("A:A").Find(ListBox1.Text) 

If Not FindRng Is Nothing Then '<-- successful find 
    Sheets("ORDERS").Range("A" & FindRng.Row & ":C" & FindRng.Row).ClearContents 
Else '<-- find was unsuccessful 
    MsgBox "Didn't find " & ListBox1.Text & " in worksheet 'ORDERS' " 
End If