[VBA新手]vba窗体问题

bridge0321

我想完成一个组合框问题（文本框+列表框），进行到“当列表框中没有内容时，列表框就不显示”出现了一个问题。我思考了很久都不知道原因。请教各位老师，是什么原因导致我错误的。非常感谢！

山菊花

在循环过程（ For i = 2 To 8/Next）过程中：
如果条件符合，将号码添加到列表框，并且设置Visible=True，
否则，设置Visible=False。

操作每一条记录，都进行一次Visible的设置，结果会是什么呢？像拉开关一样，闪个不停，最后决定于最后一条记录，如果符合条件，它就显示，否则，它就隐藏。

解决办法是，把过程中间的Visible设置取消，最后写：
Me.ListBox1.Visible = Me.ListBox1.ListCount > 0

YZC51

山菊花 发表于 2020-2-25 18:52
在循环过程（ For i = 2 To 8/Next）过程中：
如果条件符合，将号码添加到列表框，并且设置Visible=True， ...

学习老师的代码。谢谢老师！
Private Sub TextBox1_Change()
    Dim i As Integer
    Me.ListBox1.Clear
    If VBA.Len(Me.TextBox1.Value) >= 3 Then
        For i = 2 To 8
            If VBA.InStr(Sheet1.Range("i" & i), Me.TextBox1.Value) > 0 Then
                Me.ListBox1.AddItem Sheet1.Range("i" & i).Value
            End If
        Next
    End If
    Me.ListBox1.Visible = Me.ListBox1.ListCount > 0
    Me.ListBox1.Height = Me.ListBox1.ListCount * 10 + 10
End Sub

YZC51

附件请参考
组合框问题.rar (41.88 KB, 下载次数: 5)

2020-2-25 19:19 上传

点击文件名下载附件

bridge0321

山菊花 发表于 2020-2-25 18:52
在循环过程（ For i = 2 To 8/Next）过程中：
如果条件符合，将号码添加到列表框，并且设置Visible=True， ...

明白了！其实这个问题是for循环的问题，不是窗体问题。for循环那里知识有遗漏，回去温习一下！非常感谢老师答疑！