Hàm tự tạo ‘viết tắt họ tên’ như thế nào?

Xin cám ơn rất nhiều.

Xin vui lòng hướng dẫn hàm viết tắt họ tên sẽ được viết như thế nào?

Xin cám ơn rất nhiều.

Giả sử tôi có tên là Hoàng Trọng Nghĩa, kết quả sẽ là H.T.NGHĨA

Nó giống như trong hình:
8070
Thật ra là có làm thử rồi, nhưng có vẽ lượm thượm nên không tự tin lắm.

Function ShortName(ByVal FullName As String) As String

FullName = Trim(FullName)

If Len(FullName) = 0 Then
ShortName = vbNullString
Exit Function
End If

If InStr(FullName, " ") = 0 Then
ShortName = UCase(FullName)
Else
Dim FirstName As String, LastName As String
FirstName = " " & FullName
LastName = FullName

Do While InStr(FirstName, " ")
FirstName = Mid(FirstName, InStr(FirstName, " ") + 1, Len(FirstName))
LastName = Replace(LastName, Left(LastName, InStr(LastName, " ")), "")
ShortName = ShortName & Left(FirstName, 1) & "."
Loop

ShortName = UCase(Left(ShortName, Len(ShortName) – 2) & LastName)
End If

End Function

Xin nhờ góp ý và sửa chữa.

Vấn đề này sẽ có rất nhiều cách giải quyết. Tôi xin góp vui bằng cách này:
Function ShortName(ByVal FullName As String) As String
Dim i As Long
Do While InStr(FullName, " ")
i = i + 2
FullName = Application.Replace(FullName, i, InStr(FullName, " ") – i + 1, ".")
Loop
ShortName = UCase(FullName)
End Function

www.giaiphapexcel.com/diendan/threads/h%C3%A0m-t%E1%BB%B1-t%E1%BA%A1o-vi%E1%BA%BFt-t%E1%BA%AFt-h%E1%BB%8D-t%C3%AAn-nh%C6%B0-th%E1%BA%BF-n%C3%A0o.70309/

Khóa học SprinGO phù hợp

Ứng dụng AI và Chat GPT trong Quản trị nhân sự

Học xong khóa này, học viên có thể: Hiểu đúng bản chất AI, các nhóm AI phổ biến và cách AI “hoạt động” ở...

Xem khóa học