Ghi dữ liệu từ listbox ra excel sheet (1 người xem)

[keepwilling]

Nhờ các anh chị giúp em ghi dữ liệu từ listbox ra excel sheet và thêm nút xoá dữ liệu của listbox. Em cảm ơn anh chị !!

 

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

Nhờ các anh chị giúp em ghi dữ liệu từ listbox ra excel sheet và thêm nút xoá dữ liệu của listbox. Em cảm ơn anh chị !!

Mình hơi thắc mắc là sao lúc nhập vào listbox không chịu ghi xuống sheet luôn?

Private Sub AddWB_Click()
    Dim nCot As Integer, nDong As Integer
    For nDong = 0 To lstDatabase.ListCount - 1
        For nCot = 0 To lstDatabase.ColumnCount - 1
           Cells(nDong + 1, nCot + 1).Value = lstDatabase.Column(nCot, nDong)
        Next nCot
    Next nDong
    
End Sub

Để xóa trống dữ liệu trong listbox bạn dùng

lstDatabase.Clear

 

[keepwilling]

Sao mỗi lần em đóng excel và ghi một bản mới thì dữ liệu sẽ bị ghi chèn vào dữ liệu cũ là thế nào anh nhỉ. Em mới tập tành VBA nên cũng không hiểu nhiều lắm. Mong anh chỉ giáo ah

 

[thanhthat]

Nhờ các Anh giúp Em !
Dựa vào file trên diễn đàn, em đã chế biến thêm một tí, tức là nhập ngày/ tháng /năm từ Listbox, nhưng Khi nhập ngày tháng từ Listbox thì bị thay đổi định dạng. Trong Listbox thì định dạng dd/mm/yyyy, nhưng khi nhập vào sheet thì bị đổi thành mm/dd/yyyy, nhờ các anh code giúp em với, như file E đính kèm. Cám ơn các Anh GPE !

 

[thanhthat]

Nhờ các Anh giúp Em !
Dựa vào file trên diễn đàn, em đã chế biến thêm một tí, tức là nhập ngày/ tháng /năm từ Listbox, nhưng Khi nhập ngày tháng từ Listbox thì bị thay đổi định dạng. Trong Listbox thì định dạng dd/mm/yyyy, nhưng khi nhập vào sheet thì bị đổi thành mm/dd/yyyy, nhờ các anh code giúp em với, như file E đính kèm. Cám ơn các Anh GPE !

Nghiên cứu mãi không ra, nhờ các Pro giúp !!!