Hỗ trợ hoán vị 2 màu trong 1 chuỗi ký tự

[Nguyenhoangphong0902]

Em có bài tập thực tế, kính mong các cao thủ giúp đỡ dùm em, bình thường em làm bằng cách tách cột tách chuỗi các kiểu mà thủ công quá. Nhờ các cao thủ code giúp em. Em đội ơn các cao thủ.

 

[CHAOQUAY]

Em có bài tập thực tế, kính mong các cao thủ giúp đỡ dùm em, bình thường em làm bằng cách tách cột tách chuỗi các kiểu mà thủ công quá. Nhờ các cao thủ code giúp em. Em đội ơn các cao thủ.
View attachment 266823

..............................................

Function hoanvi(Chuoi As String) As String
Dim tam
Dim j, k

tam = Split(Application.Trim(Chuoi))
For j = 0 To UBound(tam)
    If InStr(tam(j), "/") Then
        k = Split(tam(j), "/")
        tam(j) = k(1) & "/" & k(0)
        Exit For
    End If
Next j
hoanvi = Join(tam)
End Function

 

[Nguyenhoangphong0902]

Trời Diễn đàn này sao toàn cao thủ không? Cho em hỏi làm sao học để viết được như các anh? Các anh học bao nhiêu lâu thì viết được như vậy ạ ?

 

[hongphuong1997]

Trời Diễn đàn này sao toàn cao thủ không? Cho em hỏi làm sao học để viết được như các anh? Các anh học bao nhiêu lâu thì viết được như vậy ạ ?

hi hi..... chỉ cần học 2 tuần là cao thủ hơn anh @CHAOQUAY đó bạn oi
Vba học dễ thui mà.