Listbox tự thay đổi kích thước

[bjboyn00b]

XIn chào mọi người, mình có gán 1 listbox tham chiếu giá trị của 1 textbox, code mình đặt okie rồi, tuy nhiên không hiểu sao cứ gõ 1 ký tự thì listbox nó bé lại 1 lần

Ban đầu thì thế này:

Cứ mỗi lần mình gõ 1 chữ trong trường ten HD thì nó bé lại, gõ thêm vài ký tự nó là mất luôn

Mọi người kiểm tra giúp mình code với nhé, xin cảm ơn

Private Sub TextBox1_Change()
 Dim rng1 As Range, sRng1 As Range
 Dim MyAdd1 As String
 Dim Rws1 As Long, W1 As Integer

    With Sheet1
        Rws1 = .[D2].CurrentRegion.Rows.Count
        ReDim Arr1(1 To Rws1, 1 To 1)
        Set rng1 = .[D1].Resize(Rws1)
        Set sRng1 = rng1.Find(Sheet24.TextBox1.Text, , xlFormulas, xlPart)
        If sRng1 Is Nothing Then
            Arr1(1, 1) = "Khong co du lieu, kiem tra lai":                  W1 = 2
        Else
            
            MyAdd1 = sRng1.Address
            Do
                W1 = W1 + 1:
                Arr1(W1, 1) = sRng1.Offset(, 0).Value
               
                Set sRng1 = rng1.FindNext(sRng1)
            Loop While Not sRng1 Is Nothing And sRng1.Address <> MyAdd1
        End If
        End With
        Sheet24.ListBox1.List = Arr1()
    With Sheet24
        .Range("m2").Value = TextBox1.Value
        End With
        
        
       
  End Sub

 

[hoangexcell]

List nó dài thêm thì nó bé lại thì phải, xóa bớt thấy to lên ha

 

[bjboyn00b]

List nó dài thêm thì nó bé lại thì phải, xóa bớt thấy to lên ha

Không bạn ơi, nó cứ bé lại rồi biến mất luôn, mình xóa chữ ở textbox cũng bị bé listbox lại, cứ thao tác gì cũng làm nó bé dần lại

 

[huuthang_bd]

Không bạn ơi, nó cứ bé lại rồi biến mất luôn, mình xóa chữ ở textbox cũng bị bé listbox lại, cứ thao tác gì cũng làm nó bé dần lại

Bạn gửi cả file lên.

 

[bjboyn00b]

Bạn gửi cả file lên.

Đây bạn ơi , xem giúp mình nhé

 

[curet]

Bạn để thuộc tính IntegralHeight của ListBox1 là False nhé.