如何解决用户表单-查找行和变量列引用的交集
我希望有人能指出我正确的方向(第一次来,请耐心等待我)。我可以混合和匹配部分代码,但是我一直在努力寻找满足我特定需求的东西。
我正在为一个工程项目创建一个电子表格,该电子表格涉及搜索记录并通过用户表单输入数据。我有一个表,列标题为Code,Lot,Interval 1,Interval 2,Interval 3等,到目前为止,我有以下代码(从另一个论坛改编而成)返回匹配的Code&Lot用户窗体条目的行号:
Dim rngFound As Range
Dim strFirst As String
Dim strCode As String
Dim strLot As String
strGEM = TextBox1.Value
strLot = TextBox2.Value
Set rngFound = Columns("A").Find(strCode,Cells(Rows.Count,"A"),xlValues,xlWhole)
If Not rngFound Is Nothing Then
strFirst = rngFound.Address
Do
If LCase(Cells(rngFound.row,"B").Text) = LCase(strLot) Then
'Found a match
MsgBox "Found a match at: " & rngFound.row & Chr(10)
End If
Set rngFound = Columns("A").Find(strCode,rngFound,xlWhole)
Loop While rngFound.Address <> strFirst
End If
Set rngFound = Nothing
我想做的是找到所找到的行与在第3个用户窗体文本框中输入的列引用的交集(即列标题名称间隔1,间隔2等)。我希望从那里可以弄清楚数据输入部分。
感谢您提供的任何帮助,如果我没有足够的道歉,我们深表歉意。
阿伦
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。