查找在用户窗体中键入的值的行和列

Posted 2023-05-07

【中文标题】查找在用户窗体中键入的值的行和列

【英文标题】：Find Row and Column of value which key in at userform

【发布时间】：2015-08-19 17:33:35

【问题描述】：

我有一个用户表单供用户将他们的 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

非常感谢

【问题讨论】：

你是说你想基本上循环遍历具有 ID 的列并删除具有该 ID 的每一行？

@HolmesIV 我喜欢遍历带有 ID 的列并删除包含与用户表单输入相同 id 的特定单元格，我不断从现有代码中收到错误

嗯，看来 Worksheets("data").TextBox2.Value.Delete 行，应该指的是单元格而不是文本框？

【参考方案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