VBA: Hàm tách tên trong xâu họ và tên

Hàm tách tên trong xâu họ và tên.

(VD: Nếu biết họ tên là Nguyễn Minh Ngọc, hàm sẽ tách ra được tên là Ngọc)

Tải mã nguồn tại đây

Function GetTen(hoten As String) As String

Dim pos As Integer

pos = 1

If InStr(pos, Trim(hoten), " ") = 0 Then

GetTen = hoten

Exit Function

End If

While InStr(pos + 1, Trim(hoten), " ") > 0

pos = InStr(pos + 1, Trim(ten), " ")

Wend

GetTen = Mid(hoten, pos)

End Function
Tải mã nguồn tại đây