Excel如何从单列搜索结果中获取整行数据

如果标题含糊不清，我很抱歉，我有一个单一的文本框1，您在其中键入您正在寻找的内容的一部分，它将显示包含您填写的内容的所有匹配项。但是现在，当您找到您要查找的内容并将其选中时，我希望自动将所有数据从所选结果的行中提取到正确的文本框中

我有10列，每列按顺序排列：ID、序列号、消息、编号、区域、日期、状态、功能、名称、描述。（它们与图片不匹配，我翻译了一些） 我正试图为某些机器的问题创建一个数据库，但我被卡住了，几乎不知道如何做到这一点

更糟的是： 这个搜索功能是在一个新的表单中，包含文本框for all data的主表单被调用，外观将被更改，名为UserForm1，当数据被选中时，我想将它拉到另一个表单上的那些文本框中

Private子列表框1\u Click（）
Me.TextBox1.Value=ListBox1.Value
ListBox1.Visible=False
端接头
函数搜索\文本（文本搜索为字符串）
我想我会坚持多久
将x作为布尔值
将值设置为字符串
Me.ListBox1.Clear
Me.ListBox1.Height=54
对于i=2到501
xvalue=单元格（i，3）.值
如果LCase（xvalue）像LCase（textTosearch）&“*”=True，那么
如果x=False，则
Me.ListBox1.Visible=True
x=真
如果结束
如果xvalue为“”，则
Me.ListBox1.AddItem xvalue
如果结束
如果Me.ListBox1.Height<260，则
Me.ListBox1.Height=Me.ListBox1.Height+10
如果结束
如果结束
下一个
如果Me.ListBox1.ListCount包含一些与问题或其解决方案无关的提示：1）您可以使用，而不是每次键入MyUserForm。在这种情况下，它不会给你多少优势，但我还是会通知你，以防你不知道。2） 我强烈建议不要使用像
x
这样的单字母变量。使用至少3个字母长的变量名称，这在代码的其余部分中是找不到的。例如
xyz
正常或
tr1
；不要使用
Sel
或
She
或
Val
，因为您很可能会在代码的其余部分找到它们（在类似
Select
或
Sheet
或
Value
的单词中）。在名称中添加标记以提醒您它是什么类型的变量也是一种很好的做法。我使用3个字母长的标记，如
Rng
表示范围，或
Dbl
表示双精度。另一些使用单字母标记，如对象的
o
。