Excel VBA-用于显示多行值的Userform
我是VBA新手，花了相当长的时间在互联网上搜寻，希望能找到VBA问题的答案，但没有结果。如果您能提供任何建议，我将不胜感激 我创建了一个Userform，使用户可以在文本框中输入多达5个唯一的ID，以及6条不同的信息（文本框和列表框的混合），这些信息对于所有5个ID输入都保持不变 然后，该信息被登录到工作表中，每个唯一ID都有自己的行，其余6条信息在每个对应行中重复 对于每个记录的ID段，将自动生成一个唯一的参考号，这意味着您将有一个表，其中前两列如下所示： 唯一参考号 唯一ID 001 2120 001 2130 001 8765 002 7688 002 7684 002 7682 002 7681 002 7666Excel VBA-用于显示多行值的Userform,excel,vba,for-loop,userform,Excel,Vba,For Loop,Userform,我是VBA新手，花了相当长的时间在互联网上搜寻，希望能找到VBA问题的答案，但没有结果。如果您能提供任何建议，我将不胜感激 我创建了一个Userform，使用户可以在文本框中输入多达5个唯一的ID，以及6条不同的信息（文本框和列表框的混合），这些信息对于所有5个ID输入都保持不变 然后，该信息被登录到工作表中，每个唯一ID都有自己的行，其余6条信息在每个对应行中重复 对于每个记录的ID段，将自动生成一个唯一的参考号，这意味着您将有一个表，其中前两列如下所示： 唯一参考号 唯一ID 001 212
当做一些与查找匹配项有关的事情时，我喜欢将这两部分分开——首先查找所有匹配项，然后处理它们。保持代码更干净，您可以专注于主要任务，而不是在查找和处理之间切换上下文。 （下面是未测试的代码）
Private子命令按钮1\u单击（）
常量最大点击量（只要=5）
尺寸x等长，作为集合找到，rw作为范围
“拿到所有的火柴
带工作表（“示例电子表格”）
Set found=FindAll（.Range（“A1:A”）和.Cells（.Rows.Count，1）.End（xlUp.Row），Search.Value）
以
如果找到，则计数>0
对于x=1，找到。计数
如果x=1，则
设置rw=found（x）.EntireRow'此匹配单元格的整行
Me.ID1.Value=rw.Cells（2.Value）
Me.Branch.Value=rw.Cells（3.Value）
Me.AccountNo.Value=rw.Cells（4.Value）
Me.Name.Value=rw.Cells（5.Value）
Me.DateReceived.Value=rw.Cells（6.Value）
Me.DateClosed.Value=rw.Cells（7.Value）
ElseIf x>最大点击次数
“确保我们没有找到太多。。。
MsgBox“&Search.Value”的匹配项（&find.Count&”）太多
其他的
Me.Controls（“ID”&x）.Value=found（x）.Value'按名称引用控件
如果结束
下一个x
其他的
MsgBox“无点击”&搜索值
如果结束
端接头
'返回集合中所有匹配的单元格
公共函数FindAll（rng作为范围，v）作为集合
尺寸rv为新系列，f为范围
Dim addr作为字符串
设置f=rng.Find（what:=v，after:=rng.Cells（rng.Cells.Count）_
LookIn:=xlValues，LookAt:=xlother，SearchOrder:=xlByRows_
SearchDirection:=xlNext，MatchCase:=False）
如果不是f，则addr=f.Address（）
直到f什么都不是
rv.添加f
设置f=rng.FindNext（后面：=f）
如果f.Address（）=addr，则退出Do
环
设置FindAll=rv
端函数
被发现真假Find