Cho em hỏi về cách format column của listbox

[ungthienhai]

Như tiêu đề, xin các anh chị hướng dẫn giúp em cách format column của listbox.

Ví dụ mình chọn đối tượng trong sheet thường chọn là sheet range, còn trên listbox mình dùng hàm gì để chon và format vậy anh chị?
Em xin cảm ơn.

 

[ungthienhai]

Của em ngày tháng đảo lộn hết cả, mặc dù sheet hiện thị đúng định dang dd/mm/yyyy

 

[SA_DQ]

Mình có câu xin hỏi chủ bài đăng rằng thì là mà: Cứ cho rằng ai đó giúp bạn hiễn thị các trị ngày-tháng-năm trên ListBox là chuỗi DD/MM/yyyyy đi chăng nữa;
Nhưng khi bạn cần chép chuỗi này lên lại trang tính thì sẽ phải viết hàm biến chuỗi ngày-tháng-năm này thành dữ liệu kiểu số?
Chi vậy?Đừng nói với mình là bạn sẽ không bao giờ phải chuyển xuống trang tính dữ liệu trên ListBox đó nha!

 

[batman1]

Giả sử nhập 2 cột A:B vào ListBox1, cột B chứa ngày tháng

Private Sub UserForm_Initialize()
Dim lastRow As Long, r As Long, dulieu()
    With ThisWorkbook.Worksheets("Sheet1")
        lastRow = .Range("B" & Rows.Count).End(xlUp).Row
        dulieu = .Range("A1:B" & lastRow).Value
    End With
    For r = 1 To UBound(dulieu, 1)
        dulieu(r, 2) = Format(dulieu(r, 2), "Short Date")   
    Next r
    With ListBox1
        .ColumnCount = 2
        .List = dulieu
    End With
End Sub

Không có chuyện cứng nhắc dulieu(r, 2) = Format(dulieu(r, 2), "dd/mm/yyyy") vì mỗi máy thiết lập một khác.

Muốn nhập vào ListBox thông qua thuộc tính LIST thì thuộc tính RowSource phải để trống.

Ví dụ đập ngày tháng ở dòng 1 (chỉ số là 0) cột 2 (chỉ số là 1) từ ListBox1 xuống K2 trên sheet

Private Sub CommandButton1_Click()
    Sheet1.Range("K2").Value = CDate(ListBox1.List(0, 1))
End Sub

 

[ungthienhai]

Mình xin chân thành cảm ơn 2 anh đã hỗ trợ nhé.