Chuyển đổi định dạng cho dữ liệu - thêm và bớt định dạng vào cell (2 người xem)

[panpanpan]

Dear các bác,
E mới vào Forum và thấy Forum mình rất hữu ích và giúp xử lý vấn đề nhanh chóng.
E đang có 1 yêu cầu chuyển đổi định dạng. E đã search nhưng vẫn chưa ra phương án.
Bác nào có giải pháp hoặc có link tham khảo thì gửi e nhé.

Dữ liệu trong file đính kèm.

Nôm na là cần tìm hàm xử lý chuỗi địa chỉ text trên cell:
1. Xóa ký tự "."
2. Thêm ký tự ":" vào chuỗi 12 số, cách 2 ký tự thì chèn

Nhờ các cao thủ chỉ giáo E cám ơn trước

 

[concogia]

Dear các bác,
E mới vào Forum và thấy Forum mình rất hữu ích và giúp xử lý vấn đề nhanh chóng.
E đang có 1 yêu cầu chuyển đổi định dạng. E đã search nhưng vẫn chưa ra phương án.
Bác nào có giải pháp hoặc có link tham khảo thì gửi e nhé.

Dữ liệu trong file đính kèm.

Nôm na là cần tìm hàm xử lý chuỗi địa chỉ text trên cell:
1. Xóa ký tự "."
2. Thêm ký tự ":" vào chuỗi 12 số, cách 2 ký tự thì chèn

Nhờ các cao thủ chỉ giáo E cám ơn trước

Bạn chép code này vào bảng tính

Public Function thay(Vung As String) As String
    Dim i As Integer, Tam As String, j As String
        Vung = Replace(Vung, ".", "")
            For i = 1 To Len(Vung)
                    j = Mid(Vung, i, 1)
                If i Mod 2 = 0 Then
                    Tam = Tam & j & ":"
                Else
                    Tam = Tam & j
                End If
            Next
    thay = Left(Tam, Len(Tam) - 1)
End Function

Ở cell B2 nhập: =thay(A2)
Code này chỉ giải quyết đúng yêu cầu của bạn, không mang tính tổng quát vì không biết dữ liệu thật của bạn

 

[ndu96081631]

Bạn chép code này vào bảng tính

Public Function thay(Vung As String) As String
    Dim i As Integer, Tam As String, j As String
        Vung = Replace(Vung, ".", "")
            For i = 1 To Len(Vung)
                    j = Mid(Vung, i, 1)
                If i Mod 2 = 0 Then
                    Tam = Tam & j & ":"
                Else
                    Tam = Tam & j
                End If
            Next
    thay = Left(Tam, Len(Tam) - 1)
End Function

Ở cell B2 nhập: =thay(A2)
Code này chỉ giải quyết đúng yêu cầu của bạn, không mang tính tổng quát vì không biết dữ liệu thật của bạn

Anh quét từ cuối chuổi lên đầu chuổi theo Step -2 sẽ nhanh hơn!
Kiểu vầy đây:

Public Function RepText(Text As String) As String
  Dim i As Long
  On Error Resume Next
  Text = Replace(Text, ".", "")
  For i = Len(Text) - 1 + (Len(Text) Mod 2) To 1 Step -2
    RepText = Mid(Text, i, 2) & ":" & RepText
  Next
  RepText = Mid(RepText, 1, Len(RepText) - 1)
End Function

 

[panpanpan]

Vậy là cần 1 đoạn code VBA.
Chính xác cái e cần, cảm ơn 2 bác :*).