Ẩn dòng không có dữ liệu trong Listbox (1 người xem)

[duyangels]

Như tiêu đề, các bác giúp em làm thế nào để mình ẩn dòng trắng (không có dữ liệu) trong listbox File đính kèm.
Thank các Bác.

 

[Hai Lúa Miền Tây]

Như tiêu đề, các bác giúp em làm thế nào để mình ẩn dòng trắng (không có dữ liệu) trong listbox File đính kèm.
Thank các Bác.

Nạp dữ liệu = cách khác, ví dụ chỉ lấy dòng có dữ liệu, không nên set chết vùng dữ liệu.

 

[Hoàng Trọng Nghĩa]

Như tiêu đề, các bác giúp em làm thế nào để mình ẩn dòng trắng (không có dữ liệu) trong listbox File đính kèm.
Thank các Bác.

Thử dùng code này xem sao.

Private Sub UserForm_Initialize()
    Dim EndRow As Long
    EndRow = Sheets("Dulieu").Range("A" & Rows.Count).End(xlUp).Row
    With ListBox1
        .ColumnHeads = True
        .ColumnCount = 5
        .ColumnWidths = "50;80;50;50;50"
        .RowSource = "Dulieu!A2:E" & EndRow
    End With
End Sub

 

[doveandrose]

-----------------
Mà sao lại khoái mấy cại vụ UserForm rắc rối ấy nhỉ????

thiên hướng người ta thường thích làm điều khó mà

 

[duyangels]

Cám ơn 2 Bác Hoàng trọng nghĩa và Hpkhuong, code chuẩn luôn.

 

[Hoàng Trọng Nghĩa]

-----------------
Mà sao lại khoái mấy cại vụ UserForm rắc rối ấy nhỉ????

Theo bạn thì dùng cái gì để làm UserForm cho nó không rắc rối?

 

[duyangels]

Mà sao lại khoái mấy cại vụ UserForm rắc rối ấy nhỉ????

Tại vì e đang viết ứng dụng trên excel nên phải chuyển dữ liệu lên userform cho nó giống ứng dụng .
Tại đang mắt kẹt vì trong listbox ko hiện tiêu đề cột được, ngoại trừ trường hợp gán rowsource thì mới thấy heads (tiêu đề cột).
Cám ơn các bác.

 

[Hoàng Trọng Nghĩa]

Anh nghĩa hiểu sai ý mình rùi!
Ý mình là không phải dùng cái gì để làm userform cho dễ hay rắc rối, mà ở đây là..........không thích userform vì làm được nó thì quả thật khó và rắc rối.......Cho nên thích nhập gì thì nhập trên trang tính ấy (không thông qua user form).hhihi..........

Thật ra nếu bạn dùng UserForm bạn có thể làm được nhiều thứ trên đó lắm với sự trợ giúp của ListBox, ListView hay SheetSpread v.v...

Bạn có thể chỉnh sửa, có thể xóa, có thể thêm và có thể thao tác hàng loạt thông qua nó. Nhưng bạn cũng phải biết vận dụng code một tí xíu. Mặc dù người tạo (Design) ra nó ban đầu có hơi rắc rối, nhưng người dùng (User) cảm thấy thật thoải mái.

 

[ndu96081631]

Anh nghĩa hiểu sai ý mình rùi!
Ý mình là không phải dùng cái gì để làm userform cho dễ hay rắc rối, mà ở đây là..........không thích userform vì làm được nó thì quả thật khó và rắc rối.......Cho nên thích nhập gì thì nhập trên trang tính ấy (không thông qua user form).hhihi..........

Thật ra UserForm cũng chẳng khó gì, cũng chỉ là các sự kiện cho các controls, y chang như code trên sheet mà thôi
Vấn đề là: Ta phải xác định được mức độ cần thiết khi dùng UserForm. Tôi phải nhìn thấy được rằng với công việc A nào đó, nếu dùng UserForm thì sẽ giải quyết được yêu cầu công việc nhanh hơn, hiểu quả hơn... vân.. vân... khi nó tôi mới quyết định dùng UserForm
Trên GPE này tôi từng thấy không ít trường hợp xài UserForm chỉ vì cố làm cho nó PRO dẫn đến nghịch lý dùng UserForm còn mệt hơn việc gõ trực tiếp trên Sheet! Thật khó hiểu
Vậy một khi bạn chưa có nhu cầu thì cũng chả cần phải học đến Form là gì cho nó mệt người
(Năm xưa khi học VBA, đến tận mấy năm sau tôi mới bắt đầu nghiên cứu UserForm cũng vì lý do này)