如何在Excel的VBA中仅匹配单元格值的一部分而不是完全匹配?

塔拉

我已经写了一个脚本,可以很好地进行精确匹配,但是我想重写它,以允许用户只键入其中一个条件的一部分。userform仍然应该认识到什么行它从另一片来了,填充它的相应信息的细胞。该行必须包含两者,txtsearch并且txtname要正确查找。

txtsearchInstuctor,Mentor等的样本值

的样本值txtname:Borkowski,Villarreal等。

这就是我现在所拥有的:

Private Sub CommandButton1_Click()
Dim ws As Worksheet, cel As Range
    Set ws = Sheets("The Goods")
    For Each cel In ws.Cells(2, 2).Resize(ws.Cells(Rows.Count, 2).End(xlUp).Row).Cells
        If cel.Value = Me.txtname.Value And cel.Offset(, 2).Value = Me.txtsearch.Value Then
           currentrow = cel.Row
            Me.txt1.Value = cel.Offset(, 3).Value
            Me.txt2.Value = cel.Offset(, 1).Value
            Me.txt3.Value = cel.Offset(, 4).Value
            Me.txt4.Value = cel.Offset(, 5).Value
            Me.txt5.Value = cel.Offset(, 6).Value
            Me.txt6.Value = cel.Offset(, 7).Value
            Me.txt7.Value = cel.Offset(, 8).Value
            Me.txt8.Value = cel.Offset(, 9).Value
            Me.txt9.Value = cel.Offset(, 10).Value
            Me.txt10.Value = cel.Offset(, 11).Value
            Me.txt11.Value = cel.Offset(, 12).Value
        End If
    Next cel
End Sub
PGSystemTester

如果您的意思是“仅一部分”,那么该instr功能就是您所需要的。见下文...

If InStr(1, cel.Value, Me.txtname.Value, vbTextCompare) > 0 And  _ 
   InStr(1, cel.Offset(, 2).Value, Me.txtsearch.Value) > 0 Then

如果您只想向左移动,则可以这样做:

If Left(cel.Value, Len(Me.txtname.Value)) = Me.txtname.Value And _ 
   Left(cel.Offset(, 2).Value, Len(Me.txtname.Value)) = Me.txtname.Value Then

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

我如何使用python在Excel单元格中仅加粗字符串的一部分

Excel VBA基于包含一部分文本的单元格值删除行

如何仅捕获匹配字符串的一部分?非捕获组

Excel网格线是单元格的一部分还是多余的空间?

将单元格的值用作宏的一部分

如何使用复杂列表中的数字作为标题/如何仅打印与某个值匹配的列表的一部分

使用regexmatch将单元格的一部分与列中的值进行匹配,以查看是否存在匹配项

检测R中字符串的一部分(不完全匹配)

减去单元格的一部分

如果单元格碰巧是非连续范围的一部分,则通过excel vba更改单元格的值

如何在熊猫中取一列的一部分与另一列的一部分匹配?

Excel-根据另一个单元格的一部分计算特定值

在单元格的一部分中更改特定字符

UITableViewCell仅突出显示单元格的一部分?

VB Excel中替换单元格循环中的单词的一部分

AngularJS完全匹配过滤器而不是一部分

使用VBA宏在一个单元格中查找并替换其下面的单元格值替换字符串的一部分

仅替换sed中匹配模式的一部分

在Excel VBA中使用单元格值(文本)作为公式的一部分

您如何提取单元格的第一部分?

使用单元格中的值作为图纸参考的一部分

如何仅匹配Javascript中的字符串的一部分或包含的字符串

使用VLOOKUP Excel仅匹配输入字符串的一部分

EXCEL VBA:匹配字符串的一部分

VBA Excel 宏另存为带有日期的单元格的一部分

在 Prolog 中匹配 DFG 的一部分

VBA,如何在清除作为现有宏一部分的另一个单元格后清除一个单元格

在 HTML 表格中隐藏单元格的一部分

如何遍历列表以查看列表中的任何值是否与另一个单元格中的值的一部分匹配?