Cần giúp đỡ định dạng ngày tháng cho các ô cùng cột bằng VBA (Dùng cho excel 2003) (2 người xem)

[hung2412]

Chào Quý vị và các bạn GPE!
Nhờ Quý vị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Định dạng ngày tháng năm cho cột B (Để Sort cột B theo ngày tháng), tôi làm bằng thủ công (Tôi xài excel 2003) => Chọn ô C1 rồi định dạng theo "dd/mm/yyyy" (Máy tính của tôi đã được cài đặt là ngày/tháng/năm) => Copy ô C1 => Quét chọn cột B => Paste special => Chọn Add => Kết quả ngon lành.
Tuy nhiên, tôi làm thao tác như trên bằng VBA thì lại bị lỗi không như ý muốn:

Sub text()
[C1].NumberFormat = "dd/mm/yyyy"
[C1].Copy: Range([B6], [B65000].End(xlUp)).PasteSpecial , xlAdd, False, False
End Sub

Không hiểu là tại làm sao.
Mong Quý vị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có file đính kèm.

 

[Hoàng Trọng Nghĩa]

Chào Quý vị và các bạn GPE!
Nhờ Quý vị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Định dạng ngày tháng năm cho cột B (Để Sort cột B theo ngày tháng), tôi làm bằng thủ công (Tôi xài excel 2003) => Chọn ô C1 rồi định dạng theo "dd/mm/yyyy" (Máy tính của tôi đã được cài đặt là ngày/tháng/năm) => Copy ô C1 => Quét chọn cột B => Paste special => Chọn Add => Kết quả ngon lành.
Tuy nhiên, tôi làm thao tác như trên bằng VBA thì lại bị lỗi không như ý muốn:

Sub text()
[C1].NumberFormat = "dd/mm/yyyy"
[C1].Copy: Range([B6], [B65000].End(xlUp)).PasteSpecial , xlAdd, False, False
End Sub

Không hiểu là tại làm sao.
Mong Quý vị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có file đính kèm.

Toàn bộ cột B của bạn là dạng TEXT chứ không phải dạng DATE nên bạn xem lại cột này!

 

[Ếch Xanh]

Chào Quý vị và các bạn GPE!
Nhờ Quý vị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Định dạng ngày tháng năm cho cột B (Để Sort cột B theo ngày tháng), tôi làm bằng thủ công (Tôi xài excel 2003) => Chọn ô C1 rồi định dạng theo "dd/mm/yyyy" (Máy tính của tôi đã được cài đặt là ngày/tháng/năm) => Copy ô C1 => Quét chọn cột B => Paste special => Chọn Add => Kết quả ngon lành.
Tuy nhiên, tôi làm thao tác như trên bằng VBA thì lại bị lỗi không như ý muốn:

Sub text()
[C1].NumberFormat = "dd/mm/yyyy"
[C1].Copy: Range([B6], [B65000].End(xlUp)).PasteSpecial , xlAdd, False, False
End Sub

Không hiểu là tại làm sao.
Mong Quý vị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có file đính kèm.

Muốn copy cho đúng thì bạn phải xử lý cột B cho đúng trạng thái DATE của nó, bạn tô khối bất kỳ cột nào đó muốn chuyển nó về dạng date (trường hợp này là dữ liệu tại cột B), rồi chạy code dưới đây:

Sub DateConvert()
    On Error Resume Next
    Dim cls As Range
    For Each cls In Selection
        cls = CDate(cls.Value)
    Next
End Sub

Khi cột nguồn đã là dạng DATE rồi thì cần chi phải định dạng ở cột đích nữa phải không!?

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau

 

[hung2412]

Muốn copy cho đúng thì bạn phải xử lý cột B cho đúng trạng thái DATE của nó, bạn tô khối bất kỳ cột nào đó muốn chuyển nó về dạng date (trường hợp này là dữ liệu tại cột B), rồi chạy code dưới đây:

Sub DateConvert()
    On Error Resume Next
    Dim cls As Range
    For Each cls In Selection
        cls = CDate(cls.Value)
    Next
End Sub

Khi cột nguồn đã là dạng DATE rồi thì cần chi phải định dạng ở cột đích nữa phải không!?

Oh, yeah, em xin cảm ơn Quý vị đã chỉ giáo. Vâng, đã đúng theo đề bài.