Làm thế nào để Combobox hiển thị theo định dạng ngày (1 người xem)

[nhoc_khun]

Chào các bác,
Tôi file lên đây và mong các bác xem qua và giúp đỡ cho.
Trong file có 1 form, gồm 1 textbox và 1 combobox.
khi mở form ra, tôi chọn trong Cbo thì giá trị không hiển thị giống như định dạng ngày ở cột A trong sheet1. Vậy phải làm sao cho nó hiển thị giống nhau nhi?
Và tương tự, textbox cũng sẽ hiển thị một trong các ngày ở cột A, sheet1 (bất kỳ).
Cảm ơn nhiều

 

[buithanhlong]

Chào các bác,
Tôi file lên đây và mong các bác xem qua và giúp đỡ cho.
Trong file có 1 form, gồm 1 textbox và 1 combobox.
khi mở form ra, tôi chọn trong Cbo thì giá trị không hiển thị giống như định dạng ngày ở cột A trong sheet1. Vậy phải làm sao cho nó hiển thị giống nhau nhi?
Và tương tự, textbox cũng sẽ hiển thị một trong các ngày ở cột A, sheet1 (bất kỳ).
Cảm ơn nhiều

Bạn xem có được không?

 

[quocphuoc88]

Thử xem nhé !

Private Sub ComboBox1_Change()
 Me.ComboBox1.Value = Format(Me.ComboBox1.Value, [COLOR=#b22222]"DD/MM/YYYY"[/COLOR])
 Me.TextBox1.Value = Format(Me.ComboBox1.Value, [COLOR=#b22222]"DD/MM/YYYY"[/COLOR])
End Sub

Chỗ nâu nâu là chỉnh theo nhu cầu của bạn, có thể là "DD/MM/YY"

 

[nhoc_khun]

Rất đúng chỗ tôi cần. Cảm ơn hai bác đã giúp đỡ.

 

[hoangduy012]

chỉ cần thế này thôi:
Private Sub ComboBox1_Change()
ComboBox1.Value = CDate(ComboBox1.Value)
End Sub