用户表单-查找行和变量列引用的交集

问题描述

我希望有人能指出我正确的方向（第一次来，请耐心等待我）。我可以混合和匹配部分代码，但是我一直在努力寻找满足我特定需求的东西。

我正在为一个工程项目创建一个电子表格，该电子表格涉及搜索记录并通过用户表单输入数据。我有一个表，列标题为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 (将#修改为@）

intersection userform