Nhờ thêm code resize listbox (1 người xem)

[nguyenducbac]

Mình đã nhờ một bạn trong diễn đàn viết giùm đoạn code này. Tuy nhiên sau khi sử dụng thì listbox1 càng ngày càng chiếm vị trí lớn trên màn hình.
Mong các bạn giúp thêm đoạn code để có thể resize listbox1 này!
Xin cảm ơn nhiều.

 

[Zerothink]

Mình đã nhờ một bạn trong diễn đàn viết giùm đoạn code này. Tuy nhiên sau khi sử dụng thì listbox1 càng ngày càng chiếm vị trí lớn trên màn hình.
Mong các bạn giúp thêm đoạn code để có thể resize listbox1 này!
Xin cảm ơn nhiều.

Tôi thử có thấy lớn đâu nhỉ, vậy lớn như thế nào, nếu nhiều dữ liệu lớn thì bạn phải thêm số liệu ví dụ vào, hiện giờ thì không thấy gì

 

[nguyenducbac]

Mình đã hỏi và xử lý được rồi bạn ạ. Rất cảm ơn bạn đã quan tâm!

 

[Zerothink]

Mình đã hỏi và xử lý được rồi bạn ạ. Rất cảm ơn bạn đã quan tâm!

Vậy ah, thế tốt rồi,

hoặc thử phương án này, không cần DIC nữa và nhanh hơn cho sub LocPhanXuong, có chỉnh cả độ cao hợp lý của listBOx (kể cả độ cao dòng 3 để không phụ thuộc Freeze Panel)

Private Sub LocPhanXuong(dkien As Boolean, TuKhoa As Range)
    Dim ws As Worksheet, Arr(), Rarr()
    Dim i As Long, k As Long, Temp As Variant, hh As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Arr = ws.Range(ws.Range("B65000").End(xlUp), ws.Range("B6")).Resize(, 3).Value
    
    k = 0
    If dkien = True Then
        For i = 1 To UBound(Arr)
            If Arr(i, 1) <> "" And Arr(i, 2) = "" And Arr(i, 3) = "" Then
                k = k + 1
                ReDim Preserve Rarr(1 To k)
                Rarr(k) = Arr(i, 1)
            End If
        Next i
    Else
        For i = 1 To UBound(Arr)
            If Arr(i, 1) <> "" And Arr(i, 2) = "" And Arr(i, 3) = "" Then
                If UCase(Arr(i, 1)) Like "*" & UCase(TuKhoa.Value) & "*" Then
                    k = k + 1
                    ReDim Preserve Rarr(1 To k)
                    Rarr(k) = Arr(i, 1)
                End If
            End If
        Next i
    End If
    
    With ThisWorkbook.ActiveSheet.ListBox1
        .Clear
        If k > 0 Then
            .List = Rarr           
          
        .Height = hh
    End With
End Sub