VBA - TÁCH HỌ VÀ TÊN BẰNG CÁCH SỬ DỤNG HÀM TỰ TẠO TRONG EXCEL

1. Cách nạp hàm tự tạo

    + 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ía 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:

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