Sửa code định dạng ngày tháng

[letinnghia]

Các anh chị và các bạn GPE em dùm mình chổ này.
Mình có 1 file excel trước khi bỏ code vào thì gõ 02/08/2014 kết quả 02/08/2014
sau khi mình bỏ code vào định dạng ngày bị đảo ngược gõ 02/08/2014 đổi thành 08/02/2014
các anh chị và các bạn biết sửa code dùm mình chổ này cho đúng định dạng là dd/mm/yyyy.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next
If Not Intersect(Target, [A1:IV65500]) Is Nothing Then
If Target <> "" Then
Target.Value = UCase(Target)
End If
End If
Application.EnableEvents = True
End Sub
cảm ơn.

 

[Quang_Hải]

Các anh chị và các bạn GPE em dùm mình chổ này.
Mình có 1 file excel trước khi bỏ code vào thì gõ 02/08/2014 kết quả 02/08/2014
sau khi mình bỏ code vào định dạng ngày bị đảo ngược gõ 02/08/2014 đổi thành 08/02/2014
các anh chị và các bạn biết sửa code dùm mình chổ này cho đúng định dạng là dd/mm/yyyy.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next
If Not Intersect(Target, [A1:IV65500]) Is Nothing Then
If Target <> "" Then
Target.Value = UCase(Target)
End If
End If
Application.EnableEvents = True
End Sub
cảm ơn.

1. Nếu code tác động đến hết bảng tính thì quá thừa cái vòng If not... End If bên ngoài
2. On Error Resume Next là tự sát
3. Không có file khó đoán lỗi

 

[letinnghia]

1. Nếu code tác động đến hết bảng tính thì quá thừa cái vòng If not... End If bên ngoài
2. On Error Resume Next là tự sát
3. Không có file khó đoán lỗi

Vậy mình gửi file lên bạn xem dùm

 

[Quang_Hải]

Vậy mình gửi file lên bạn xem dùm

Trên máy tính mình không bị gì cả. Nhập gì thì ra y chang không thay đổi.

 

[letinnghia]

Trên máy tính mình không bị gì cả. Nhập gì thì ra y chang không thay đổi.

Trong Control Panel chỉnh Format ngày là MM/dd/yyyy thì kế quả là gõ gì ra nấy, nếu chỉnh dd/MM/yyyy thì khi gõ kết quả cho ra bị ngược là MM/dd/yyyy chỉ bị từ ngày 01~12.
Bạn quanghai1969 biết không mình đã test trên 5 máy(Win7, win8, office 2007, 2013) rồi máy nào cũng bị như vậy. Thật lòng là ngại quá anh thử chỉnh format ngày trong control panel của máy anh xem kết quả thế nào nhé.
cảm ơn anh

 

[Quang_Hải]

Trong Control Panel chỉnh Format ngày là MM/dd/yyyy thì kế quả là gõ gì ra nấy, nếu chỉnh dd/MM/yyyy thì khi gõ kết quả cho ra bị ngược là MM/dd/yyyy chỉ bị từ ngày 01~12.
Bạn quanghai1969 biết không mình đã test trên 5 máy(Win7, win8, office 2007, 2013) rồi máy nào cũng bị như vậy. Thật lòng là ngại quá anh thử chỉnh format ngày trong control panel của máy anh xem kết quả thế nào nhé.
cảm ơn anh

Mình luôn chỉnh chế độ dd-mmm-yy

 

[vuongtoituonglai]

Mình luôn chỉnh chế độ dd-mmm-yy

Có cách nào anh remote vào máy mình không nhỉ. Bởi vì mình thấy vô lý quá

 

[letinnghia]

Có cách nào anh remote vào máy mình không nhỉ. Bởi vì mình thấy vô lý quá

Anh chỉnh chế độ dd-mmm-yy à, vậy anh thử chỉnh lại dd/MM/yyyy xem sao nhé.
Nếu có thể anh remote vào máy mình nhé.

 

[MrTeCong]

Trong Control Panel chỉnh Format ngày là MM/dd/yyyy thì kế quả là gõ gì ra nấy, nếu chỉnh dd/MM/yyyy thì khi gõ kết quả cho ra bị ngược là MM/dd/yyyy chỉ bị từ ngày 01~12.
Bạn quanghai1969 biết không mình đã test trên 5 máy(Win7, win8, office 2007, 2013) rồi máy nào cũng bị như vậy. Thật lòng là ngại quá anh thử chỉnh format ngày trong control panel của máy anh xem kết quả thế nào nhé.
cảm ơn anh

bạn nhập ngược lại !
vd: Ngày nhâp là 12/5/2015 -> nó bị đảo thành ngày 5/12/2015 ! Nên khi nhập bạn nhập 5/12/2015 nó sẽ đảo thành 12/5/2015 đúng ý muốn lun

 

[vanle33]

bạn nhập ngược lại !
vd: Ngày nhâp là 12/5/2015 -> nó bị đảo thành ngày 5/12/2015 ! Nên khi nhập bạn nhập 5/12/2015 nó sẽ đảo thành 12/5/2015 đúng ý muốn lun

"nhập ngược lại" là DỞ ẸC
Máy tôi cài Win 7 office 2010 dùng muôn đời nay (excel 2010) nhập 30/6 nhấn Enter ra 30/06/2015.
Hoặc nhập 8/2/11 nhấn Enter ra 08/02/2011
Định dạng như sau trong Control Panel
Regional and Language/chọn Vietnamese (Vietnam) trong Format và Vietnam trong Location/OK (kèm luôn định dạng Short date là dd/MM/yyyy)

 

[ndu96081631]

Xem hết toàn bộ các bài trong topic này tôi vẫn không hiểu chủ topic muốn gì?
- Nhập ngày tháng năm thì cứ nhập bình thường đi, tự dưng lại thêm cái code Worksheet_Change làm giống gì không biết?
- Trong code có đoạn xử lý Target.Value = UCase(Target) thì ăn nhậu thế nào đối với dữ liệu dạng Date
Tóm lại là chẳng hiểu
!!! ???

 

[doveandrose]

Xem hết toàn bộ các bài trong topic này tôi vẫn không hiểu chủ topic muốn gì?
- Nhập ngày tháng năm thì cứ nhập bình thường đi, tự dưng lại thêm cái code Worksheet_Change làm giống gì không biết?
- Trong code có đoạn xử lý Target.Value = UCase(Target) thì ăn nhậu thế nào đối với dữ liệu dạng Date
Tóm lại là chẳng hiểu
!!! ???

người lập topic đã 1 năm rồi không quay lại để ngó topic chắc là đã tìm được cách rồi . sau 1 năm thì kiến thức con người cũng khác đi nhiều chứ . cái khó hiểu ở đây là người ở #9 kìa . bới 1 chủ đề đã kết thúc từ 1 năm trước lên tưởng sao => đi góp 1 giải pháp tào lao