首页 > 解决方案 > Userform - 查找行和变量列引用的交集

问题描述

我希望有人能指出我正确的方向(第一次,所以请耐心等待我)。我可以混合和匹配代码位,但我很难找到满足我特定需求的东西。

我正在为一个涉及搜索记录和通过用户表单输入数据的工程项目创建电子表格。我有一个包含列标题代码、批次、间隔 1、间隔 2、间隔 3 等的表格,到目前为止,我有以下代码(改编自另一个论坛),它返回匹配的代码和批次用户表单条目的行号:

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, xlValues, xlWhole)
    Loop While rngFound.Address <> strFirst
End If

Set rngFound = Nothing

我想做的是找到找到的行和在第三个用户窗体文本框中输入的列引用的交集(即列标题名称间隔 1、间隔 2 等)。从那里我希望我应该能够弄清楚数据输入部分。

感谢您提供的任何帮助,如果我没有足够的意义,请道歉。

阿伦

标签: userformintersection

解决方案


推荐阅读