Hiển thị ngày tháng dạng dd/mm/yyyy cho cột ngày tháng trong listbox có nhiều cột (1 người xem)

[diemhuyenanh]

chào các anh chị em có một listsbox.list=Arr gán mảng vào listbox có nhiều hàng và cột. trong đó cột ngày tháng lại hiển thị theo dạng 13 jul 14 có các nào cho nó hiển thị theo định dạng dd/mm/yyyy không
mong nhận được sự giúp đỡ của các bạn và các anh chị

 

[ndu96081631]

chào các anh chị em có một listsbox.list=Arr gán mảng vào listbox có nhiều hàng và cột. trong đó cột ngày tháng lại hiển thị theo dạng 13 jul 14 có các nào cho nó hiển thị theo định dạng dd/mm/yyyy không
mong nhận được sự giúp đỡ của các bạn và các anh chị

Xử lý tất cả các phần tử trong mảng thành dạng text trước, xong mới cho vào ListBox, chỉ vậy thôi

 

[diemhuyenanh]

Xử lý tất cả các phần tử trong mảng thành dạng text trước, xong mới cho vào ListBox, chỉ vậy thôi

thầy có thể nói rõ hơn được không vì em mới đang tập vba.
làm thế nào để cho các phần tử thành dạng text
phương án của em là thế này ví dụ
dim arr(), darr(), i ,k as long
arr= sheets("sheet1").range("A1:C60").value
redim darr(1 to ubound(arr,1),1 to 2)
for i = 1 to ubound (arr,1)
if arr(i,1)="em khong biet ve listbox" then
k=k+1
darr(k,1)=arr(i,2)
darr(k,2)=arr(i,3)
end if
next i
listbox1.list=darr
vậy để sử lý các phần tử trong mảng thành text thì em phải viết code thế nào (ở đây arr(i,3) trên sheet là ngày tháng

 

[ndu96081631]

thầy có thể nói rõ hơn được không vì em mới đang tập vba.
làm thế nào để cho các phần tử thành dạng text

Đưa file của bạn lên đây tôi thí nghiệm mới có thể trả lời chắc được

 

[diemhuyenanh]

Đưa file của bạn lên đây tôi thí nghiệm mới có thể trả lời chắc được

file cua em lớn lên em làm ví dụ trong file đính kèm thầy xem giúp em nhé. cảm ơn thầy

 

[Quang_Hải]

thầy có thể nói rõ hơn được không vì em mới đang tập vba.
làm thế nào để cho các phần tử thành dạng text
phương án của em là thế này ví dụ
dim arr(), darr(), i ,k as long
arr= sheets("sheet1").range("A1:C60").value
redim darr(1 to ubound(arr,1),1 to 2)
for i = 1 to ubound (arr,1)
if arr(i,1)="em khong biet ve listbox" then
k=k+1
darr(k,1)=arr(i,2)
darr(k,2)=arr(i,3)
end if
next i
listbox1.list=darr
vậy để sử lý các phần tử trong mảng thành text thì em phải viết code thế nào (ở đây arr(i,3) trên sheet là ngày tháng

Bạn thử sửa vầy coi được không

darr(k,2)= format(arr(i,3),"dd/mm/yyyy")

 

[diemhuyenanh]

cảm ơn thầy em đã làm được rồi