Nạp dữ liệu vào listbox (1 người xem)

[overnight_9]

Các anh chị, có ai có đường link liên quan đến (nạp, xuất) dữ liệu vào listbox , cho em xin. em search mãi mà không thấy, em cám ơn

 

[Quang_Hải]

Các anh chị, có ai có đường link liên quan đến (nạp, xuất) dữ liệu vào listbox , cho em xin. em search mãi mà không thấy, em cám ơn

Muốn nạp thế nào, mô tả cụ thể tí đi mình có thể gởi code lên để test

 

[overnight_9]

Muốn nạp thế nào, mô tả cụ thể tí đi mình có thể gởi code lên để test

cám ơn anh Quanghai,
em vừa gởi mail cho anh file, anh check giúp em nhé thật ra em đang nghiên cứu xem cái lợi của Userform chuyển dữ liệu qua sheet và ngươc lại cho công việc hiện tại của em như thế nào, đừng cười em nhé em chưa qua nổi bật thang 1 mà HIC HIC

cám ơn anh trước,

 

[Quang_Hải]

cám ơn anh Quanghai,
em vừa gởi mail cho anh file, anh check giúp em nhé thật ra em đang nghiên cứu xem cái lợi của Userform chuyển dữ liệu qua sheet và ngươc lại cho công việc hiện tại của em như thế nào, đừng cười em nhé em chưa qua nổi bật thang 1 mà HIC HIC

cám ơn anh trước,

Nạp dữ liệu vào thế này nha. Phải vào property của listbox1, chon Column Count và chỉnh lại số cột là 4
Chọn Column With để set độ rộng của mỗi cột, cách nhau bởi dấu ;

Private Sub UserForm_Initialize()
Dim dulieu
    dulieu = Sheet1.Range(Sheet1.[b4], Sheet1.[e65536].End(3)).Value
    UserForm1.ListBox1.List = dulieu
End Sub

 

[kyo]

Nếu chỉ nạp như vậy thôi thì đơn giản nhất là quét vùng dữ liệu, đặt cho nó cái tên. Sau đó gõ tên đó vào thuộc tính RowSource của Listbox là xong.

 

[Quang_Hải]

Nếu chỉ nạp như vậy thôi thì đơn giản nhất là quét vùng dữ liệu, đặt cho nó cái tên. Sau đó gõ tên đó vào thuộc tính RowSource của Listbox là xong.

Chủ yếu là giúp cho Overnight hình dung cách gán dữ liệu vào list bằng code thôi, tác giả muốn vậy mà Kyo!

 

[PhanTuHuong]

Bạn sử dụng phương thức chuẩn AddItem (dùng cho VB nói chung) nhé. Khi chọn Item nào nó sẽ thông báo ở bên trên. Bạn tải ví dụ và kiểm tra lại.

 

[Quang_Hải]

Chưa gặp mặt Kyo nhỉ, không biết tập hợp bao nhiêu cuộc alo đây pro? HIC HIC HIC

mấy chiêu này chỉ có mấy su phụ (thầy) Mỹ, Tuấn, Co, BaTe, Huong...v...v...v.. mới rành 6 câu vọng cổ overnight đang học dài cổ luôn đó pro.

Ví dụ mình muốn add dữ liệu ở cột A vào listbox thì có thể làm thế này

   For Each item In Range([A1], [A65536].End(3))
      UserForm1.ListBox1.AddItem (item)
   Next

Giờ mình muốn lấy dữ liệu trong listbox ra gán vào cột B tại B1 thì có thể làm thế này

[B1].Resize(UserForm1.ListBox1.ListCount) = UserForm1.ListBox1.List

Nếu list mình có 4 cột thì lấy ra thế này

[B1].Resize(UserForm1.ListBox1.ListCount,4) = UserForm1.ListBox1.List

Mong là những ý trên có thể hỗ trợ bạn phần nào

 

[ndu96081631]

Chưa gặp mặt Kyo nhỉ, không biết tập hợp bao nhiêu cuộc alo đây pro? HIC HIC HIC

mấy chiêu này chỉ có mấy su phụ (thầy) Mỹ, Tuấn, Co, BaTe, Huong...v...v...v.. mới rành 6 câu vọng cổ overnight đang học dài cổ luôn đó pro.

Thấy chú học mà mình.. mệt thay!
Ẹc... Ẹc... Gấp rút và thiếu căn bản, khó mà "nuốt" trôi (dù mấy bài chú hỏi chẳng phải thuộc dạng khó)
Cái gì cũng phải từ từ mới thấm lâu
----------------------

Ví dụ mình muốn add dữ liệu ở cột A vào listbox thì có thể làm thế này

   For Each item In Range([A1], [A65536].End(3))
      UserForm1.ListBox1.AddItem (item)
   Next

Không nên làm tắt như vậy! Nên cho vào 1 biến tạm, sẽ cải thiện được tốc độ
Ngoài ra, nếu đã quyết định xử lý mảng thì nên dẹp luôn cái thằng End(xlUp) đi ---> Khồng đáng phải tiết kiệm như thế (có khi còn cho kết quả sai khi bảng tính đang ở chế độ Filter)