Làm thế nào để textbox hiển thị đúng loại dữ liệu trong listbox có sẵn (1 người xem)

[nhoc_khun]

Chào mọi người.
Trước tiên xin phép bác Sealand để tôi được sử dụng file của bác làm ví dụ.
Với file này, mục đích của tôi là cột đầu tiên của listbox có dữ liệu ngày tháng năm.
Khi tôi click vào listbox (ví dụ dòng đầu tiên 23/09/13) thì textbox1 lại không hiển thị tương ứng là 23/09/13 mà là một con số 41540.
Vậy làm thế nào để textbox1 hiển thị giống như giá trị ở cột đầu tiên của listbox.
Mong mọi người giúp đỡ.
(Nguyên gốc của bác Sealand http://www.giaiphapexcel.com/forum/showthread.php?44376-thấy-hàng-cuối-cùng-trong-trong-listBox)

 

[siwtom]

Chào mọi người.
Trước tiên xin phép bác Sealand để tôi được sử dụng file của bác làm ví dụ.
Với file này, mục đích của tôi là cột đầu tiên của listbox có dữ liệu ngày tháng năm.
Khi tôi click vào listbox (ví dụ dòng đầu tiên 23/09/13) thì textbox1 lại không hiển thị tương ứng là 23/09/13 mà là một con số 41540.
Vậy làm thế nào để textbox1 hiển thị giống như giá trị ở cột đầu tiên của listbox.
Mong mọi người giúp đỡ.
(Nguyên gốc của bác Sealand http://www.giaiphapexcel.com/forum/showthread.php?44376-thấy-hàng-cuối-cùng-trong-trong-listBox)

TextBox1.Text = Format(ListBox1.Column(0), "Short Date")

 

[mhung12005]

Chào mọi người.
Trước tiên xin phép bác Sealand để tôi được sử dụng file của bác làm ví dụ.
Với file này, mục đích của tôi là cột đầu tiên của listbox có dữ liệu ngày tháng năm.
Khi tôi click vào listbox (ví dụ dòng đầu tiên 23/09/13) thì textbox1 lại không hiển thị tương ứng là 23/09/13 mà là một con số 41540.
Vậy làm thế nào để textbox1 hiển thị giống như giá trị ở cột đầu tiên của listbox.
Mong mọi người giúp đỡ.
(Nguyên gốc của bác Sealand http://www.giaiphapexcel.com/forum/showthread.php?44376-thấy-hàng-cuối-cùng-trong-trong-listBox)

Bạn thử thay đổi dòng này xem sao:

.TextBox1 = .ListBox1.Column(0)

thành:

.TextBox1 = DateSerial(Year(.ListBox1.Column(0)), Month(.ListBox1.Column(0)), Day(.ListBox1.Column(0)))

 

[nhoc_khun]

Cảm ơn hai bác Siwtom và mhung12005 rất nhiều.
Tôi thử cả hai cách đều như ý muốn.

 

[be_09]

Bạn có thể tham khảo thêm 1 cách khác.

.TextBox1.Value = Format(ListBox1.Column(0), "dd/mm/yyyy")

 

[nhoc_khun]

Bạn có thể tham khảo thêm 1 cách khác.

.TextBox1.Value = Format(ListBox1.Column(0), "dd/mm/yyyy")

Cảm ơn bác be09 đã giúp đỡ.