- Điều khiển thuộc tính MultiSelect của Listbox - Help

[dmtdmtbb]

- Các bác xem file VT - Help me.

 

[dmtdmtbb]

- Nghĩ tới nghĩ lui cuối cùng củng có cách.
- Nut Add thêm vào vòng lập sau.

Private Sub cmdAddL1_Click()
.......i = 0
......Do While i < LbItemAdd.ListCount
.............ActiveCell.Value = LbItemAdd.List(i, 0)
..................For j = 6 To 5000
......................If Cells(j,1) = "" And Cells(j,2) = "" And Cells(j,3) = "" Then
.........................Cells(j,2).Select
.........................Exit For
......................End If
..................Next j.
............i = i + 1
......Loop
End Sub

- Bác nào có cách hay hơn xin góp ý.

 

[Trần Văn Bình]

Uh tuyệt bác làm hay đấy