Thao tác bằng tay và sử dụng Macro cho kết quả khác nhau.

[huuthang_bd]

Máy tôi cài đặt định dạng ngày tháng của hệ thống là dd/mm/yyyy.
Ở ô B1 có dữ liệu dạng text là 11/02/2011. Ô A1 không có dữ liệu.
Khi làm thủ công, copy ô A1 và Paste Special - Add vào ô B1 thì kết quả là 40.585 tương đương với ngày 11/02/2011. Nhưng khi sử dụng Macro tương tự các thao tác như trên thì kết quả lại là 40.849 tương đương với ngày 02/11/2011. Macro được sử dụng như sau:

Sub Test()
[A1].Copy
[B1].PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks:=False, Transpose:=False
End Sub

Xin hỏi các anh chị viết code như thế nào để kết quả giống như khi thao tác thủ công.
Ở đây tôi chỉ lấy ví dụ là 1 ô nhưng khi xử lý cần xử lý 1 vùng rộng và không dùng vòng lặp.
Xin cảm ơn!

 

[kyo]

Em thử và nó vẫn ra kết quả là 40585 mà, anh xem lại xem sao?

 

[huuthang_bd]

Em thử và nó vẫn ra kết quả là 40585 mà, anh xem lại xem sao?

Tôi đã thử nhiều lần rồi kết quả vẫn khác nhau. Chắc phải nhờ một người thứ ba kiểm tra lại.

 

[ndu96081631]

Máy tôi cài đặt định dạng ngày tháng của hệ thống là dd/mm/yyyy.
Ở ô B1 có dữ liệu dạng text là 11/02/2011. Ô A1 không có dữ liệu.
Khi làm thủ công, copy ô A1 và Paste Special - Add vào ô B1 thì kết quả là 40.585 tương đương với ngày 11/02/2011. Nhưng khi sử dụng Macro tương tự các thao tác như trên thì kết quả lại là 40.849 tương đương với ngày 02/11/2011. Macro được sử dụng như sau:

Sub Test()
[A1].Copy
[B1].PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks:=False, Transpose:=False
End Sub

Xin hỏi các anh chị viết code như thế nào để kết quả giống như khi thao tác thủ công.
Ở đây tôi chỉ lấy ví dụ là 1 ô nhưng khi xử lý cần xử lý 1 vùng rộng và không dùng vòng lặp.
Xin cảm ơn!

Đúng là có sai lệch giữa thao tác tay với macro
Trong trường hợp định dạng trong Control Panel trùng với định dạng bảng tính, tôi thấy dùng DateValue chắc ăn hơn

Sub Macro1()
  With Range("B1")
    .NumberFormat = "dd/mm/yyyy"
    .Value = DateValue(.Value)
  End With
End Sub

 

[huuthang_bd]

Đúng là có sai lệch giữa thao tác tay với macro
Trong trường hợp định dạng trong Control Panel trùng với định dạng bảng tính, tôi thấy dùng DateValue chắc ăn hơn

Sub Macro1()
  With Range("B1")
    .NumberFormat = "dd/mm/yyyy"
    .Value = DateValue(.Value)
  End With
End Sub

Vấn đề là thao tác với 1 vùng dữ liệu chứ không phải 1 ô anh à. Và không dùng vòng lặp. Ý em là có cách nào khắc phục Paste Special để dùng Macro mà không còn sự khác biệt với làm thủ công hay không.

 

[ndu96081631]

Vấn đề là thao tác với 1 vùng dữ liệu chứ không phải 1 ô anh à. Và không dùng vòng lặp. Ý em là có cách nào khắc phục Paste Special để dùng Macro mà không còn sự khác biệt với làm thủ công hay không.

Bạn có thể dùng vòng lập nhưng kết hợp với mảng ---> Tốc độ vẫn nhanh mà
Còn nếu nhất định không vòng lập thì... Để nghiên cứu lại xem (có sự nhầm lẫn gì đây không biết)