Question

我有一个用户表单，用户可以将他们的ID号码键入一个表格。但是如何捕获表中id的行数和列数并删除它们。

Set f = Worksheets("data").Range("4:4").Find(What:=TextBox2.Value)

If Worksheets("data").Cells(f.Row, f.Column).Value = TextBox2.Value Then
Worksheets("data").TextBox2.Value.Delete
End If

非常感谢

Answer 1

Find()返回找到的单元格：如果未匹配，则返回Nothing。

只要Find()找到匹配项，您就可以直接使用它：无需提取f.Row和f.Column，然后将它们转回相同的范围。即f和Worksheets("data").Cells(f.Row, f.Column)指的是同一个对象。

Set f = Worksheets("data").Range("4:4").Find(What:=TextBox2.Value, lookat:=xlWhole)

If Not f Is Nothing Then
    f.Delete
End If

在userform中查找键入的行和列

1 个答案: