Dùng Macro để tách hàng thành cột nhưng ngày tháng bị sai định dạng

Liên hệ QC
H

hdhanh

Thành viên mới
Tham gia
21/9/22
Bài viết
4
Được thích
0
Chào các bác;
em có dùng Macro để ghi lại hàng loạt các thao tác để tách 1 dòng dữ liệu dạng text thành các cột dữ liệu như thế này:
Xuly.JPG

Tuy nhiên, khi em thao tác bằng tay (Replace, Text to Columns, ... thì ngày tháng trong dòng text đó ra ngon lành, ngày tháng đúng cả, chạy lần 1 cũng ngon lành.
Nhưng sau đó thì lại bị nhận sai, ngày thành tháng và ngược lại.

Cái code Macro nó như này ạ:
Mã: 
Sub Xuly_2()
'
' Xuly_2 Macro
'

    Range("A1:A1").Select
    Selection.Replace What:="""]}*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="*cell"":[""", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=""",""", Replacement:="|", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("A1:A1").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="|", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12 _
        , 1), Array(13, 1), Array(14, 1)), TrailingMinusNumbers:=True

End Sub

Bác nào có thể giúp em sửa lại cái Macro để nó sau khi tách dữ liệu ngày tháng ra thì nó nhận đúng định dạng được không ạ?
em xin cảm ơn ạ!
 

File đính kèm

  • Xu ly du lieu.xlsm
    27 KB · Đọc: 13
hdhanh đã viết:
Chào các bác;
em có dùng Macro để ghi lại hàng loạt các thao tác để tách 1 dòng dữ liệu dạng text thành các cột dữ liệu như thế này:
View attachment 281196

Tuy nhiên, khi em thao tác bằng tay (Replace, Text to Columns, ... thì ngày tháng trong dòng text đó ra ngon lành, ngày tháng đúng cả, chạy lần 1 cũng ngon lành.
Nhưng sau đó thì lại bị nhận sai, ngày thành tháng và ngược lại.

Cái code Macro nó như này ạ:
Mã: 
Sub Xuly_2()
'
' Xuly_2 Macro
'

    Range("A1:A1").Select
    Selection.Replace What:="""]}*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="*cell"":[""", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=""",""", Replacement:="|", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("A1:A1").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="|", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12 _
        , 1), Array(13, 1), Array(14, 1)), TrailingMinusNumbers:=True

End Sub

Bác nào có thể giúp em sửa lại cái Macro để nó sau khi tách dữ liệu ngày tháng ra thì nó nhận đúng định dạng được không ạ?
em xin cảm ơn ạ!
Nhấp chuột vào đây để mở rộng...
Bạn đang học hay là dùng vào công việc.Nếu dùng vào công việc gửi file đầy đủ dữ liệu mình code còn học thì cứ tìm hiểu thêm.
 
hdhanh đã viết:
Chào các bác;
em có dùng Macro để ghi lại hàng loạt các thao tác để tách 1 dòng dữ liệu dạng text thành các cột dữ liệu như thế này:
View attachment 281196

Tuy nhiên, khi em thao tác bằng tay (Replace, Text to Columns, ... thì ngày tháng trong dòng text đó ra ngon lành, ngày tháng đúng cả, chạy lần 1 cũng ngon lành.
Nhưng sau đó thì lại bị nhận sai, ngày thành tháng và ngược lại.

Cái code Macro nó như này ạ:
Mã: 
Sub Xuly_2()
'
' Xuly_2 Macro
'

    Range("A1:A1").Select
    Selection.Replace What:="""]}*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="*cell"":[""", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=""",""", Replacement:="|", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("A1:A1").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="|", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12 _
        , 1), Array(13, 1), Array(14, 1)), TrailingMinusNumbers:=True

End Sub

Bác nào có thể giúp em sửa lại cái Macro để nó sau khi tách dữ liệu ngày tháng ra thì nó nhận đúng định dạng được không ạ?
em xin cảm ơn ạ!
Nhấp chuột vào đây để mở rộng...
Thử code vầy coi được không
Mã: 
Sub Xuly()
Dim Res As Variant
With Range("A1")
    .Replace "*[""", ""
    .Replace """]*", ""
    Res = Split(.Value, """,""")
End With
Range("A1").Resize(, UBound(Res) + 1) = Res
End Sub
 
snow25 đã viết:
Bạn đang học hay là dùng vào công việc.Nếu dùng vào công việc gửi file đầy đủ dữ liệu mình code còn học thì cứ tìm hiểu thêm.
Nhấp chuột vào đây để mở rộng...
Vâng công việc bác ạ. Và chính xác là mỗi ngày em có 3 hàng dữ liệu, em có để 3 ví dụ trong file đấy ạ;
Và em muốn xử lý tách 3 dòng đấy thành các cột, sau đấy xếp vào 1 hàng và copy vào bảng thống kê ở sheet khác ạ
Bài đã được tự động gộp:

Quang_Hải đã viết:
Thử code vầy coi được không
Mã: 
Sub Xuly()

End Sub
Nhấp chuột vào đây để mở rộng...

Cảm ơn anh; em đã thử dùng code của anh; nhưng kết quả thì vẫn như thế anh ạ.
Sau khi tách thì cột ngày tháng thì vẫn nhận đúng ngày tháng, nhưng ở dạng text, khi em bấm F2 vào ô đó thì nó nhận lại ngày tháng, có điều ngày tháng lẫn lộn với nhau ạ
Em có gửi file sau khi thay code của anh đây ạ
 

File đính kèm

  • Xuly_dulieu.xlsm
    30.5 KB · Đọc: 5
  • Xuly_dulieu2.xlsm
    28.4 KB · Đọc: 5
Lần chỉnh sửa cuối:
hdhanh đã viết:
ngày thành tháng và ngược lại.
Nhấp chuột vào đây để mở rộng...
Nếu tôi đoán đúng thì sửa như sau, nếu sai bét thì thôi - coi như không có bài của tôi.

Nếu dữ liệu đầu vào luôn đúng như trong tập tin, tức dạng ... cell":["dd/mm/yyyy" ... thì sửa
FieldInfo:=Array(Array(1, 1)
Nhấp chuột vào đây để mở rộng...

thành

FieldInfo:=Array(Array(1, 4)
Nhấp chuột vào đây để mở rộng...
 
Lần chỉnh sửa cuối:
batman1 đã viết:
Nếu tôi đoán đúng thì sửa như sau, nếu sai bét thì thôi - coi như không có bài của tôi.

Nếu dữ liệu đầu vào luôn đúng như trong tập tin, tức dạng ... cell":["dd/mm/yyyy" ... thì sửa


thành
Nhấp chuột vào đây để mở rộng...
Ngon lành cành đào bác ơi. Em cảm ơn nhiều nhiều ạ
 
hdhanh đã viết:
Vâng công việc bác ạ. Và chính xác là mỗi ngày em có 3 hàng dữ liệu, em có để 3 ví dụ trong file đấy ạ;
Và em muốn xử lý tách 3 dòng đấy thành các cột, sau đấy xếp vào 1 hàng và copy vào bảng thống kê ở sheet khác ạ
Bài đã được tự động gộp:



Cảm ơn anh; em đã thử dùng code của anh; nhưng kết quả thì vẫn như thế anh ạ.
Sau khi tách thì cột ngày tháng thì vẫn nhận đúng ngày tháng, nhưng ở dạng text, khi em bấm F2 vào ô đó thì nó nhận lại ngày tháng, có điều ngày tháng lẫn lộn với nhau ạ
Em có gửi file sau khi thay code của anh đây ạ
Nhấp chuột vào đây để mở rộng...
Thêm chút xíu nữa chắc ổn
Mã: 
Sub Xuly()
Dim Res As Variant
With Range("A1")
    .Replace "*[""", ""
    .Replace """]*", ""
    Res = Split(.Value, """,""")
    Res(0) = CDate(Res(0))
End With
Range("A1").Resize(, UBound(Res) + 1) = Res
End Sub
 
Quang_Hải đã viết:
Thêm chút xíu nữa chắc ổn
Mã: 
Sub Xuly()
Dim Res As Variant
With Range("A1")
    .Replace "*[""", ""
    .Replace """]*", ""
    Res = Split(.Value, """,""")
    Res(0) = CDate(Res(0))
End With
Range("A1").Resize(, UBound(Res) + 1) = Res
End Sub
Nhấp chuột vào đây để mở rộng...
Để chiều em thử ạ. Em chân thành cảm ơn anh và cộng đồng GPE nhiều ạ
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

H
Kết nối vba với Database host (hiện tại đang làm host web)
Trả lời
2
Đọc
109
Haidang7979
H
emlat3
Đặt màu xen kẽ các dòng theo ký tự
Trả lời
1
Đọc
38
DeTong
D
D
Prime Сasual Dating - Verified Ladies
Trả lời
0
Đọc
20
djneunhu
D
S
  • Question
Không lấy đủ dữ liệu bằng kết nối ADO
2
Trả lời
20
Đọc
351
shnhatha221108
S
S
Slicer không chuyển qua trạng thái mờ.
Trả lời
1
Đọc
41
ptm0412
ptm0412
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom