xin giúp đỡ về nhập và xuất listbox có nhiều column (1 người xem)

[cartoon18]

em sủ dụng Excell 2010
Vấn đề của em như sau:
- nạp dữ liệu có chọn lọc từ một mảng dữ liệu gồm nhiều column vào Listbox có 5 column, tuy nhiên khi nạp dữ liệu vào listbox thì em không biết làm sao để số dòng nạp vào Listbox là vừa đủ khớp với số thông tin tìm thấy... em có gửi File đính kèm, bác nào rảnh vào giúp em với. em cám ơn nhiều ah

 

[ndu96081631]

em sủ dụng Excell 2010
Vấn đề của em như sau:
- nạp dữ liệu có chọn lọc từ một mảng dữ liệu gồm nhiều column vào Listbox có 5 column, tuy nhiên khi nạp dữ liệu vào listbox thì em không biết làm sao để số dòng nạp vào Listbox là vừa đủ khớp với số thông tin tìm thấy... em có gửi File đính kèm, bác nào rảnh vào giúp em với. em cám ơn nhiều ah

Sửa Sub TimKiem cho bạn:

Sub Timkiem()
  Dim i, dl As Long, DataAr()
  ChonDoiTuong
  dl = Sheets("Sheet1").[A65536].End(xlUp).Row
  DataAr = Sheets("Sheet1").Range("A2:K" & dl).Value
  [COLOR=#ff0000]ReDim ResAr(5, 1)[/COLOR]
  ReDim aTmp(1, 5)
  If FormTimKiem.CBO0.ListIndex >= 0 Then
    For i = 1 To UBound(DataAr)
     [COLOR=#0000cd] If UCase(DataAr(i, a)) Like UCase(FormTimKiem.TB0.Text) Then[/COLOR]
        k = k + 1
        [COLOR=#ff0000]ReDim Preserve ResAr(5, k)
        ResAr(1, k) = "AL-" & DataAr(i, 1)
        ResAr(2, k) = DataAr(i, 2)
        ResAr(3, k) = DataAr(i, 8)
        ResAr(4, k) = DataAr(i, 7)
        ResAr(5, k) = DataAr(i, 4)[/COLOR]
        If k = 1 Then
          aTmp(1, 1) = "AL-" & DataAr(i, 1)
          aTmp(1, 2) = DataAr(i, 2)
          aTmp(1, 3) = DataAr(i, 8)
          aTmp(1, 4) = DataAr(i, 7)
          aTmp(1, 5) = DataAr(i, 4)
        End If
      End If
    Next
  End If
  If k Then FormTimKiem.LB1.List() = IIf(k = 1, aTmp, [COLOR=#ff0000]Application.Transpose(ResAr)[/COLOR])
End Sub

Giải quyết vấn đề số dòng vừa khớp trong listbox (đoạn code màu đỏ)
Cải tiến thêm: Khi mở form, bạn có thể dùng ký tự đại diện như "?" hoặc "*" để tìm (đoạn màu xanh).
Ví dụ:
- ComboBox bạn chọn mục "Tên"
- TextBox bạn gõ H*
- Bấm Search thì code sẽ tìm những tên bắt đầu bằng ký tự H... đại khái thế!

 

[cartoon18]

cảm ơn bác NDU đã nhiệt tình giúp đỡ, em xoay mãi mà không xử lý được , vậy là tối nay ngủ ngon rồi .....