求助

tjm0610

Private Sub TextBox1_Change()
    Dim arr, crr, r%, Arr1(), j&, x&
    On Error Resume Next
    ListBox1.Clear
    TextBox1.TopLeftCell = TextBox1.Text
    If TextBox1 = "" Then Exit Sub
    crr = Sheets("联系人").[c3].CurrentRegion
    For i = 2 To UBound(crr)
        aa = ""
        For j = 1 To UBound(crr, 2)
            If InStr(crr(i, j), TextBox1.Text) Then
                r = r + 1
                ReDim Preserve Arr1(1 To r)
                For x = 1 To UBound(crr, 2)
                    aa = aa & crr(i, x) & vbTab
                Next
                Arr1(r) = aa
            End If
        Next
    Next
    If r > 0 Then
    ListBox1.List = Arr1
    End If
End Sub
这段代码指定的是在哪列输入？怎么能更改成别的列输入？

E路人

应该上附件，让坛友同学们帮忙分析

wayy

crr = Sheets("联系人").[c3].CurrentRegion

是以C3为基准点的连续区域，区域你可以自己设置成crr = Sheets("联系人").[c3:E10]等

tjm0610

wayy 发表于 2013-11-26 09:21
crr = Sheets("联系人").[c3].CurrentRegion

是以C3为基准点的连续区域，区域你可以自己设置成crr = S ...

版主您好，帮我看下这个附件，“录入表”中黄色区域的输入框能不能换至M列输入！万分感谢！
申明：该附件为引用别的吧友的

无聊的疯子

tjm0610 发表于 2013-11-26 09:56
版主您好，帮我看下这个附件，“录入表”中黄色区域的输入框能不能换至M列输入！万分感谢！
申明：该附件 ...

类似这个
http://www.excelpx.com/thread-287852-1-1.html

如果你要输入任意内容都能查找到的话,可以把那一行的内容都连接起来,再进行 instr 或 like