Làm thế nào chọn column của listbox và đưa xuống sheet

[ungthienhai]

Chào anh chị,

Hiện mình cần chọn column của listbox và đưa xuống sheet
Mình code:

Dim i As Long

With Me.ltbResult

If ltbResult.ListCount > 0 Then
For i = 0 To .ListCount - 1

Sheet12.Range("h4:h10").Resize(ltbResult.ListCount) = ltbResult.List(i, 4)
Next i

End If
End With

Nhưng kết quả hiện ra giống nhau chứ không như listbox hiện

 

[batman1]

ltbResult.List(i, 4) là 1 giá trị từ phần tử ở dòng i cột 4 (chỉ số từ 0) nên chả ai lại nhập vào 1 VÙNG.

Nếu định nhập cột 4 ListBox vào cột H tính từ dòng 4, tức tính từ H4 thì

...
Sheet12.Range("H" & 4 + i).Value = .List(i, 4)
...

 

[ungthienhai]

ltbResult.List(i, 4) là 1 giá trị từ phần tử ở dòng i cột 4 (chỉ số từ 0) nên chả ai lại nhập vào 1 VÙNG.

Nếu định nhập cột 4 ListBox vào cột H tính từ dòng 4, tức tính từ H4 thì

...
Sheet12.Range("H" & 4 + i).Value = .List(i, 4)
...

Mình chân thành cảm ơn bác đã hỗ trợ.