Lỗi hiện dữ liệu trong listbox Vba

[Thanhhoai00]

• Mình có đoạn code hiện dữ liệu như sau gồm 200 nhân viên trong bảng tính excel, nhưng listbox UserForm chỉ hiện được 49 nhân viên có trong bảng tính
  • Mình Đã hiển thị được nhân viên lên listbox UserForm nhưng không biết tại sao chỉ có 49 nhân viên thôi ???
  • Nút xóa đã xóa được nhân viên theo STT trên UserForm
• Mình đã thử sử dụng RowSource thì listbox hiện được tất cả dữ liệu lên UserForm nhưng nút xóa lại không xóa được nhân viên theo STT được nữa !!! nên mình đã bỏ cách sử dụng RowSource mà sử dụng code
• các bạn sửa lỗi giúp mình nhé ! làm sao hiện được hết 200 nhân viên trong listbox UserForm và bấm được nút xóa ạ !!!
• cảm ơn các bạn !!!

 

[VuVanHao]

Private Sub UserForm_Initialize()
Dim Tm
Dim i
Tm = Sheet1.[A2:S50] 'Cái này để 50 mà đòi 200 thì đòi kiểu gì bạn'
For i = 1 To UBound(Tm, 1)
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "30;30"
Next
Me.ListBox1.List() = Tm
End Sub

Chỗ Tm = Sheet1.[A2:S50] này nè bạn

 

[Thanhhoai00]

Private Sub UserForm_Initialize()
Dim Tm
Dim i
Tm = Sheet1.[A2:S50] 'Cái này để 50 mà đòi 200 thì đòi kiểu gì bạn'
For i = 1 To UBound(Tm, 1)
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "30;30"
Next
Me.ListBox1.List() = Tm
End Sub

Chỗ Tm = Sheet1.[A2:S50] này nè bạn

Hay quá !! Cảm ơn bạn nhiều nhé ! !