如何使用命令按钮和列表框选择从 Excel 工作表中删除行

Question

我编写了以下代码来从 Excel 表中删除一行，并在单击命令按钮（“删除”）时更新列表框。

代码执行并显示“行删除成功”。但数据实际上并没有从 Excel 表格或列表框中删除。

我使用的代码是：

'删除函数从 Excel 表格和列表框中删除行

'''

私有子CommandButton29_Click()

Dim ws7 As Worksheet

Dim foundCell As Range

Dim searchvalue As Variant

searchvalue = ListBox4.Value

Set ws7 = worksheets(7)

' Find the cell with the search value in column A
Set foundCell = ws7.Columns(1).Find(searchvalue)

' Check if the value was found
If foundCell = searchvalue Then
    ' Delete the entire row of the found cell
    foundCell.EntireRow.Delete
    MsgBox "Row deleted successfully.", vbInformation
Else
    MsgBox "Value not found.", vbExclamation
End If

结束子

'''

非常感谢任何帮助。我一个月前才开始自学编程。

我尝试了几种修改代码但没有成功

Answer 1

我认为您检查是否找到该值的方式可能存在问题。 Find 方法返回一个 Range 对象，而不是单个值。您应该使用

Not foundCell Is Nothing 

条件来检查是否找到该值。