Định dạng ngày tháng cho ComboBox (1 người xem)

[dinhthientan]

Kính gửi ac trên Diễn đàn!
Tôi có tạo một Form đơn giản trong đó có một ComboBox chứa dữ liệu ngày tháng được định dạng "dd/mm/yyyy". Khi chạy Form, ComboBox hiển thị không đúng định dạng. Rất mong được ac trên Diễn đàn hỗ trợ code cho ComboBox hiển thi đúng. Rất cảm ơn các ac!

 

[mhung12005]

Kính gửi ac trên Diễn đàn!
Tôi có tạo một Form đơn giản trong đó có một ComboBox chứa dữ liệu ngày tháng được định dạng "dd/mm/yyyy". Khi chạy Form, ComboBox hiển thị không đúng định dạng. Rất mong được ac trên Diễn đàn hỗ trợ code cho ComboBox hiển thi đúng. Rất cảm ơn các ac!

Bạn sửa đoạn màu đỏ này:

Private Sub CB_OKStart_Click()    If Me.CB_NgayBatDau.Value = "Select" Then
       MsgBox ("Chua chon ngay")
       Me.CB_NgayBatDau.SetFocus
    Exit Sub
    End If
    Sheets("ThongKeGiaoDich").Range("C3").Value = [COLOR=#ff0000]DateSerial(Right(CB_NgayBatDau.Value, 4), Mid(CB_NgayBatDau.Value, 4, 2), Left(CB_NgayBatDau.Value, 2))[/COLOR]
    CB_NgayBatDau.ListIndex = -1
    Unload Me
End Sub

Cũng tương tự như vậy với Sub CB_OKEnd_Click().

 

[dinhthientan]

Bạn sửa đoạn màu đỏ này:

Private Sub CB_OKStart_Click()    If Me.CB_NgayBatDau.Value = "Select" Then
       MsgBox ("Chua chon ngay")
       Me.CB_NgayBatDau.SetFocus
    Exit Sub
    End If
    Sheets("ThongKeGiaoDich").Range("C3").Value = [COLOR=#ff0000]DateSerial(Right(CB_NgayBatDau.Value, 4), Mid(CB_NgayBatDau.Value, 4, 2), Left(CB_NgayBatDau.Value, 2))[/COLOR]
    CB_NgayBatDau.ListIndex = -1
    Unload Me
End Sub

Cũng tương tự như vậy với Sub CB_OKEnd_Click().

Rất cảm ơn mhung đã trả lời.
Nhưng tôi cần ComboBox hiện đúng định dạng "dd/mm/yyyy". Sau khi mò mẫm, tôi cũng đã làm được rồi. Mong mọi người góp ý thêm