Trợ giúp sửa hiển thị " ngày tháng" trên listbox (1 người xem)

[lexuantruong]

file này chạy trên laptop thì listbox hiện đúng dữ liệu ngày tháng năm( kể cả sau khi tìm kiếm), nhưng khi chuyển qua máy PC thì ngày tháng trên listbox lúc đầu hiện đúng( lúc chưa tìm kiếm), nhưng khi tìm kiếm thì chỉ hiện toàn số k à ( trong file excel đã format cột Hạn dùng thành dd/mm/yyyy), nhờ anh chị fix lại giúp em với.

hình này là lúc chưa tìm kiếm


hình này là lúc tìm kiếm rồi



p/s:
- office em dùng là Office Professional 2010
- máy PC dùng win XP
- cái đồng hồ góc dưới màn hình hiển thị dd/mm/yyyy

 

[lexuantruong]

 

[langtuchungtinh360]

bạn định dạng lại cột ngày thành format(ngày,"dd/mm/yyyy") nha.

 

[befaint]

Chào lexuantruong,

Không có cái Calendar để thử (sao bạn không đính kèm cái đó lên cùng)
Bạn tìm và sửa dòng này xem: Sheet1.Cells(dong, 7).Value = Format(Me.TB_HanDung.Value, "mm/dd/yyyy").
(Trong Private Sub CM_SuaDuLieu_Click())

 

[SA_DQ]

Sao ở máy mình vẫn như cũ sau khi 'tìm' vậy ta

p/s:
- đang xài là Office 2007
- máy PC dùng win XP
- cái đồng hồ góc dưới màn hình hiển thị Nov /01/yyyy

 

[sealand]

(Vấn đề này tôi tham gia chung với anh em thôi chứ không phải với chủ Topic vì tôi đã từng tham gia nhưng không có ý kiến phản hồi từ chủ Topic )

Phải sửa từ cái hàm Filter2DArray nha, tại vì vốn dĩ Hàm khai báo là Variant nên khi nạp giá trị ngày cho nó thì nó trở thành Value của ngày. Nếu không muốn sửa hàm thì trước khi nạp cho Listbox ta phải có vòng lặp dùng hàm Format để chuyển toàn bộ cột ngày của mảng do hàm trả về thành dạng Text mới được.
Với File này đã chấp nhận 1 sheet là nguồn thì dùng Advance Filter mới là thượng sách. (Format côt ngày trong sheet Source)

 

[lexuantruong]

Chào lexuantruong,

Không có cái Calendar để thử (sao bạn không đính kèm cái đó lên cùng)
Bạn tìm và sửa dòng này xem: Sheet1.Cells(dong, 7).Value = Format(Me.TB_HanDung.Value, "mm/dd/yyyy").
(Trong Private Sub CM_SuaDuLieu_Click())

vẫn bị thế anh ơi

Sao ở máy mình vẫn như cũ sau khi 'tìm' vậy ta

p/s:
- đang xài là Office 2007
- máy PC dùng win XP
- cái đồng hồ góc dưới màn hình hiển thị Nov /01/yyyy

kỳ lạ, sao máy em lại chuyển về số sau khi tìm vậy ta

(Vấn đề này tôi tham gia chung với anh em thôi chứ không phải với chủ Topic vì tôi đã từng tham gia nhưng không có ý kiến phản hồi từ chủ Topic )

Phải sửa từ cái hàm Filter2DArray nha, tại vì vốn dĩ Hàm khai báo là Variant nên khi nạp giá trị ngày cho nó thì nó trở thành Value của ngày. Nếu không muốn sửa hàm thì trước khi nạp cho Listbox ta phải có vòng lặp dùng hàm Format để chuyển toàn bộ cột ngày của mảng do hàm trả về thành dạng Text mới được.
Với File này đã chấp nhận 1 sheet là nguồn thì dùng Advance Filter mới là thượng sách. (Format côt ngày trong sheet Source)

em cũng nghĩ vấn đề nằm ở chỗ code tìm kiếm, nhưng vấn đề ở chỗ em mù tịt khoản viết code nên không biết phải sửa ntn, nhờ anh giúp đỡ. file em gửi lên đã bỏ calendar, không biết máy anh có chạy dc k.

 

[langtuchungtinh360]

vẫn bị thế anh ơi



kỳ lạ, sao máy em lại chuyển về số sau khi tìm vậy ta




em cũng nghĩ vấn đề nằm ở chỗ code tìm kiếm, nhưng vấn đề ở chỗ em mù tịt khoản viết code nên không biết phải sửa ntn, nhờ anh giúp đỡ. file em gửi lên đã bỏ calendar, không biết máy anh có chạy dc k.

muốn xem lắm. mà mở lên lỗi ngay chỗ này

chỉ là file quản lý thuốc thôi có cần API quá trời thế ko bạn.

 

[lexuantruong]

muốn xem lắm. mà mở lên lỗi ngay chỗ này
View attachment 167916
chỉ là file quản lý thuốc thôi có cần API quá trời thế ko bạn.

cái đó nếu k cần thiết thì anh có thể xóa đi, code copy từ các file khác vào mà, em chỉ mong sửa dc hiện tượng chỗ tìm kiếm hiện đúng ngày tháng thôi.

 

[sealand]

Bạn lòng vòng về cái Rowsource nhiều quá, tôi đã loại bớt ở Sub khởi đầu, tất cả tập trung vào sub nạp. Kể cả Textbox1_Change cũng dùng chung sub Nap.
Thực tế vấn đề ở đây chỉ cần format cột G thành dd/mm/yyyy là được nhưng khi khi xóa dữ liệu không được dùng lệnh

Source.[A:I].Clear

Mà phải dùnglệnh

Source.[A:I].ClearContents

Vì lệnh trên nó xóa cả format còn lệnh sau chỉ xóa nội dung

Để chắc ăn, tôi dùng dấu "'" để biến nó thành Text luôn nên không lệ thuộc vào FormatCell
Viết thì nhiều bạn tham khảo file nha

Chú ý, đây là tôi chỉ giải quyết yêu cầu của bạn còn cách sử lý chung tôi không tán thành cách làm này.

 

[lexuantruong]

Cám ơn anh nhiều, máy đã hiển thị dc rồi.

Chú ý, đây là tôi chỉ giải quyết yêu cầu của bạn còn cách sử lý chung tôi không tán thành cách làm này.

Anh thông cảm, em chỉ cop code tu diễn đàn vào + trợ giúp từ các anh chị khác chứ e k biết viết code, Anh có cách sử lý nào hay hơn k ạ.

 

[vu_tuan_manh_linh]

Anh có cách sử lý nào hay hơn k ạ.

Có cách đấy bạn! Mua 1 quyển VBA cơ bản vọc liên tục 3 tháng, 4 tiếng 1 ngày. Sau 3 tháng mua 1 quyển VBA nâng cao vọc tiếp 3 tháng nữa. 6 tháng sau bạn ko còn lệ thuộc vào những khó khăn nữa!