+ Từ giao diện chương trình Excel, nhấn tổ hợp phím tắt "Alt + F11"
+ Từ cửa sổ Microsoft Visual Basic, mở bảng chọn "Insert -> Module"
+ Sao chép và dán đoạn mã phí dưới vào vùng soạn thảo trong cửa sổ Microsoft Visual Basic
+ Nhấn tổ hợp phím "Alt + Q" và bắt đầu sử dụng
2. Cú pháp sử dụng
+ Tách họ: =TachHo(<Địa chỉ ô hoặc Chuỗi văn bản>)
+ Tách họ đệm: =TachHoDem(<Địa chỉ ô hoặc Chuỗi văn bản>)
+ Tách tên: =TachTen(<Địa chỉ ô hoặc Chuỗi văn bản>)
3. Nội dung các hàm
Mã: Chọn tất cả
Function TachHoVaDem(str As String) As String
Dim strLen As Integer
Dim j As Integer
str = Trim(str)
strLen = Len(str)
For j = strLen To 1 Step -1
If Mid(str, j, 1) = " " Then
Exit For
End If
Next
If j > 1 Then
TachHoVaDem = Application.Trim(Mid(str, 1, j))
Else
TachHoVaDem = str
End If
End Function
Function TachHo(str As String) As String
Dim strLen As Integer
Dim i As Integer
str = Trim(str)
strLen = Len(str)
For i = 1 To strLen
If Mid(str, i, 1) = " " Then
Exit For
End If
Next
If Trim(Mid(str, 1, i - 1)) = str Then
TachHo = ""
Else
TachHo = Trim(Mid(str, 1, i - 1))
End If
End Function
Function TachHoDem(str As String) As String
Dim strLen As Integer
Dim i, j As Integer
str = Trim(str)
strLen = Len(str)
For i = 1 To strLen
If Mid(str, i, 1) = " " Then
Exit For
End If
Next
For j = strLen To 1 Step -1
If Mid(str, j, 1) = " " Then
Exit For
End If
Next
If i < j + 1 Then
TachHoDem = Trim(Mid(str, i, j - i + 1))
Else
TachHoDem = ""
End If
End Function
Function TachTen(str As String) As String
Dim strLen As Integer
Dim j As Integer
str = Trim(str)
strLen = Len(str)
For j = strLen To 1 Step -1
If Mid(str, j, 1) = " " Then
Exit For
End If
Next
If j > 1 Then
TachTen = Trim(Mid(str, j + 1, strLen - j))
Else
TachTen = str
End If
End Function