[已解决]用户窗体手动输入的VBA代码修改求助

zjdh

你自己打开看看！！

安全网

zjdh 发表于 2016-6-14 17:02
你自己打开看看！！

我看了。是我的错
Dim arr, T1, T2
Private Sub ListBox1_Click()
    T2 = ListBox1.Value
    Set d = CreateObject("scripting.dictionary")
    ListBox2.Clear
    For i = 1 To UBound(arr)
        If arr(i, 8) = T2 Then
            If Not d.exists(arr(i, 4)) Then
                ListBox2.AddItem arr(i, 4)
                d(arr(i, 4)) = ""
            End If
        End If
    Next
End Sub

Private Sub ListBox2_Click()
    ActiveCell = ListBox2.Value
    Unload Me
End Sub
Private Sub TextBox1_Change()
    arr = Sheet2.Range("A2").CurrentRegion
    Set d = CreateObject("scripting.dictionary")
    Me.ListBox1.Clear
    Me.ListBox2.Clear
    T1 = TextBox1.Text
    If T1 = "" Then Exit Sub
    For i = 1 To UBound(arr)
        If InStr(arr(i, 8), T1) Then
            If Not d.exists(arr(i, 8)) Then
                ListBox1.AddItem arr(i, 8)
                d(arr(i, 8)) = ""
            End If
        End If
    Next
End Sub
这个是我按照你给的代码修改的运行出错

zjdh

光发这么一段宏，神知道是怎么一回事！！

安全网

zjdh 发表于 2016-6-14 17:19
光发这么一段宏，神知道是真么一回事！！

附件上传了

zjdh

输入数据0614.rar (27.51 KB, 下载次数: 20)

2016-6-14 17:34 上传

点击文件名下载附件

安全网

zjdh 发表于 2016-6-14 17:34

谢谢！

安全网

zjdh 发表于 2016-6-14 17:34

我将这些代码复制过去到我新建的用户窗体上就使用不了，是不是那个地方还要设置一下了

安全网

zjdh 发表于 2016-6-14 17:34

请高手帮忙指点一下

zjdh

http://www.excelpx.com/thread-227995-1-1.html

安全网

zjdh 发表于 2016-6-16 22:07
http://www.excelpx.com/thread-227995-1-1.html

没有看明白