Chỉ dùm user function (2 người xem)

[hungchng]

Nhờ các bạn chỉ giúp cách viết user function để đổi string trong cell A1 là Trương Minh Đẩu font unicode thành dzazwu3 truzozwng minh tại cell A2

 

[nvson]

dzazwu3 truzozwng minh

----> Mình không hiểu!???
Nhưng bạn thử đoạn Code sau:

Option Explicit
'
Public Function Change_String(strText As String) As String
    Dim strSplit() As String, strText_2 As String, strText_3 As String
    strSplit = Split(strText, " ")
    strText_2 = strSplit(UBound(strSplit))
    strText_3 = Left(strText, Len(strText) - Len(strText_2))
    Change_String = strText_2 & " " & Trim(strText_3)
End Function

 

[hungchng]

Ý là tôi muốn mã họ lót tên của ô A1 qua ô A2 thành tên họ lót theo quy tắc sắc huyền hỏi ngã nặng thành 1,2,3,4,5 ở cuối từ, còn ă đ ê ô ư â ơ thành az,dz,ez,oz,uz,azw,ozw.
Việc cắt Tên rồi đưa lên trước Họ lót tôi đã làm được


Function DaoTenHo(S As String)
Dim Sb As String
Dim i As Integer
S = Trim(S)
For i = 1 To Len(S)
Sb = Right$(S, i)
If InStr(Sb, " ") <> 0 Then
Exit For
End If
Next
DaoTenHo = Trim(Sb & Chr(32) & Left(S, Len(S) - Len(Sb)))
End Function