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

Chia sẻ bởi:hands

★★★★★

‹ Nhờ mọi người giúp gỡ rối công... Công thức điền giá trị vào bảng ›

Quảng cáo

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:
694
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
693
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

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