Định dạng ngày trên Combobox. (1 người xem)

[sealand]

Các bạn giúp mình định dạng ngày dd/mm/yyyy trên Combobox với. Khi mở danh sách thì vẫn là định dạng ngày dd/mm/yyyy nhưng khi chọn rồi thì nó lại trở thành Serial, làm sao nó vẫn giữ nguyên định dạng.
Xin cám ơn.

 

[hoangdanh282vn]

Các bạn giúp mình định dạng ngày dd/mm/yyyy trên Combobox với. Khi mở danh sách thì vẫn là định dạng ngày dd/mm/yyyy nhưng khi chọn rồi thì nó lại trở thành Serial, làm sao nó vẫn giữ nguyên định dạng.
Xin cám ơn.

Bác thử dủng sự kiện này xem :

Private Sub ComboBox1_Change()
ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yyyy")
End Sub

 

[ptm0412]

Private Sub ComboBox1_Change()
ComboBox1 = Format(ComboBox1, "dd/mm/yy")
End Sub

Ý, Hoàng Danh trả lời rồi!

 

[cadafi]

Có ai test thử combobox trên sheet theo cách này chưa, em test thử thì nó chạy vui lắm! Nháy nháy một hồi mới ra!

 

[sealand]

Cám ơn hoangdanh282vn, ptm0412, tốt rồi bạn ạ.
ca_dafi: Mình tìm chưa ra test kiểu gì?

 

[cadafi]

ca_dafi: Mình tìm chưa ra test kiểu gì?

Anh tạo thử một combobox trên sheet (Dùng Control Toolbox) sau đó test thử code bên dưới xem. Nó nháy nháy một hồi mới xong! Không biết phải tại máy em hay không?

 

[hoangdanh282vn]

Anh tạo thử một combobox trên sheet (Dùng Control Toolbox) sau đó test thử code bên dưới xem. Nó nháy nháy một hồi mới xong! Không biết phải tại máy em hay không?

Em test rồi, vẫn chạy ok không "chớp mắt" mà anh!
Có lẽ do máy của anh sao ấy!

 

[sealand]

Cám ơn Ca_dafi đúng là trên trang trắng thì không có vấn đề gì, nhưng đưa vào trang có dữ liệu thì nó chớp lâu lắm mới set được giá trị chon. Mình cũng chưa xác định được có liên quan đến dữ niệu nào?

 

[Po_Pikachu]

Cái này thì tùy vào máy cấu hình mạnh hay yếu thôi! Máy em thì chỉ cần 0.5s là chạy được 1 lần. Có vẻ như hơi dừng lại 1 chút thôi! @Ca_Dafi: Có thể máy anh Ca_dafi nên sắm thêm RAM thôi! @Sealand: Nếu dữ liệu của bác nhiều quá thì nó làm việc chậm lắm. Nếu có thể bác thử dùng cột phụ rồi thêm vào dòng Text(A1, "dd/mm/yyyy"), rồi dùng cột phụ này để làm dữ liệu cho Combobox xem nó có chịu không? Như vậy ít ra không bị chớp nữa! Thân.

 

[sealand]

To Po_Pikachu
Thực tế, mình dùng nguồn là cột gồm 31 ngày trong tháng và định dạng dd/mm/yyyy. Khi mở Combobox thì vẫn có định dang như vậy. Khi chọn rồi và hiện ngày trên Combobox nó trở thành Serial. Vấn đề mình nghi là nó có vòng lặp chưa kiểm soát đươc vì ô link định dạng ngày tháng nó nháy (reset liên tục)
To hoangdanh282vn:
Nếu bình thường thì nó không có biểu hiện gì. Nhưng nếu có công thức tính toán dựa trên kết quả trả về của Comb thì mới có hiện tượng bạn ạ.( Máy mình mới mua chưa được 2 tháng, cấu hình khá mạnh nên có thể không phải tại máy đâu)

 

[Po_Pikachu]

Nếu thấy không vừa ý lắm thì có thể dùng Combobox của Form cũng được mà. Rồi dùng thêm hàm Index để lấy giá trị chính xác của nó. Hoặc các hàm khác như Match, Vlookup, Indirect,.v.v Thân.

 

[ThuNghi]

To Po_Pikachu
Thực tế, mình dùng nguồn là cột gồm 31 ngày trong tháng và định dạng dd/mm/yyyy. Khi mở Combobox thì vẫn có định dang như vậy. Khi chọn rồi và hiện ngày trên Combobox nó trở thành Serial. Vấn đề mình nghi là nó có vòng lặp chưa kiểm soát đươc vì ô link định dạng ngày tháng nó nháy (reset liên tục)
To hoangdanh282vn:
Nếu bình thường thì nó không có biểu hiện gì. Nhưng nếu có công thức tính toán dựa trên kết quả trả về của Comb thì mới có hiện tượng bạn ạ.( Máy mình mới mua chưa được 2 tháng, cấu hình khá mạnh nên có thể không phải tại máy đâu)

Bác gởi file thô thử xem, thường về dạng ngày nên set
DateSerial(Y,M,D) nó yên tâm hơn.
Còn ComboBox mà lấy từ Range động cái này thì dùng Focus hay hơn Change. Dùng 1 code VBA tạo lại name động sẽ hay hơn counta, find()...

 

[sealand]

To Po_Pikachu:
Mình muốn dùng Control Toolbox hơn vì còn kết hợp sự kiện change để chạy code, ít phải sử lý hơn sheet_change.
To Thu Nghi:
Dữ liệu nhập tạm để thử có 3 ngày từ 27 đến 29. Vào sheet KeCT chọn ngày còn các báo cáo khác dự trên ngày đã chọn của sheet này. Số ngày trong tháng ở Info, mình chưa làm tự động xác định số ngày trong tháng. Mình chưa thử trên file này mà thử trên file vào dữ liệu cả tháng 10, load file đó lớn quá.
Nhờ các bạn kiểm tra giúp, cám ơn nhé.

 

[cadafi]

Anh có thể sử dụng Control khác để chọn ngày không? Em thấy cách dủng Combobox để chọn ngày thì không hay lắm! Có thể Dùng Calendar Control hoặc MS Date and Time Picker (SP4) chẳng hạn!

 

[sealand]

To Ca_dafi:
Mình viết file cho đứa em làm quỹ, cô ấy không thạo Computer lắm. Dùng mấy điều khiển Ca_dafi giới thiệu khi dùng trên máy mới cứ phải adding e cô ấy không thực hiện được. Trước đây, mình đã viết file QL Kho dùng MS Date and Time Picke. Mỗi khi không mở được lại ới mình mệt lắm.

 

[ThuNghi]

To Po_Pikachu:
Mình muốn dùng Control Toolbox hơn vì còn kết hợp sự kiện change để chạy code, ít phải sử lý hơn sheet_change.
To Thu Nghi:
Dữ liệu nhập tạm để thử có 3 ngày từ 27 đến 29. Vào sheet KeCT chọn ngày còn các báo cáo khác dự trên ngày đã chọn của sheet này. Số ngày trong tháng ở Info, mình chưa làm tự động xác định số ngày trong tháng. Mình chưa thử trên file này mà thử trên file vào dữ liệu cả tháng 10, load file đó lớn quá.
Nhờ các bạn kiểm tra giúp, cám ơn nhé.

Cái ComboBox thì chạy không vấn đề gì, chỉ cần.

Private Sub ComboBox1_Change()
ComboBox1 = DateSerial(Year(ComboBox1), Month(ComboBox1), Day(ComboBox1))
End Sub

Nặng là ở chỗ là 14*31 cells có công thức phải update. Sao bác không VBA nhỉ. Dùng AdFi cũng dễ mà.

 

[sealand]

Mình ráp code của Thu Nghi vào chạy tốt và hết nhấp nháp rồi. Cám ơn bạn.

 

[vucham2004]

Cho mình xin hỏi cũng về vấn đề Combobox. Dử liệu mình nhập vào combox 04/03/14 (dd/mm/yy) nhưng khi ghi vào excel thì nó đảo lại 03/04/14 (dd/mm/yy) mình làm thế nào để nó ghi vào đúng là 04/03/14 (dd/mm/yy). Xin cám ơn