Tạo hàm cắt tên, họ, họ đệm trong VBA Excel

Thứ sáu - 01/07/2016 09:10
Khi làm việc trong Excel bạn thường phải thao tác với danh sách họ tên học viên, khách hàng. Do danh sách này bao gồm đầy đủ họ và tên, tuy nhiên bạn lại muốn tách riêng cột tên từ cột họ tên này. Bạn đã sử dụng các hàm có sẵn để làm việc này nhưng vẫn chưa đươc. Trong bài viết này tôi xin trình bày cách tách tên ra khỏi cột họ và tên bằng cách viết hàm VBA.
+    Bước 1: Mở chương trình Microsoft Excel.
+    Bước 2: Vào Menu Tool\Macro\Visual Basic Editor. (Hoặc ấn tổ hợp phím Alt + F11). Xuất hiện cửa sổ Microsoft Visual Basic.
          

+    Bước 3: Vào Menu Insert\Module. Xuất hiện cửa sổ Code



+    Bước 4: Nhập đoạn Code phía dưới vào trong cửa sổ Code (Hình 2)
Bắt đầu đoạn Code


Function CatTen(str As String) As String
    Dim mlen As Long
    Dim i As Long
    mlen = Len(str)
    For i = mlen To 1 Step -1
        If Mid(str, i, 1) = " " Then
            Exit For
        End If
    Next
    If i <> 0 Then
        CatTen = Trim(Mid(str, i + 1, mlen - i))
    Else
        CatTen = Trim(str)
    End If
End Function

Function CatHo(str As String) As String
    Dim mlen As Long
    Dim i As Long
    mlen = Len(str)
    For i = 1 To mlen
        If Mid(str, i, 1) = " " Then
            Exit For
        End If
    Next
    If i <> 0 Then
        CatHo = Trim(Mid(str, 1, i - 1))
    Else
        CatHo = Trim(str)
    End If
End Function

 Function CatHoDem(str As String) As String
    Dim mlen As Long
    Dim i, j, k As Long
    mlen = Len(str)
    k = 0
    For i = mlen To 1 Step -1
        If Mid(str, i, 1) = " " Then
            Exit For
        End If
        k = k + 1
    Next
    For j = 1 To mlen
        If Mid(str, j, 1) = " " Then
            Exit For
        End If
        k = k + 1
    Next
    If i <> 0 Then
        CatHoDem = Trim(Mid(str, j, mlen - k))
    Else
        CatHoDem = Trim(str)
    End If
End Function


+    Bước 5: Quay trở lại màn hình làm việc chính của Excel bằng cách vào Menu File\Close And Return to Microsoft Excel (Hoặc ấn tổ hợp phím Alt + Q).
+    Bước 6: Sử dụng những hàm chúng ta đã tạo



-   Tại ô B1 ta có Họ và tên 1 người như ở Hình 3
-    Bây giờ ta chỉ muốn cắt tên của người đó, ta sẽ làm như sau:
-    Đưa vệt sáng đến ô B2, nhập vào hàm =Catten(B1) và ấn Enter kết quả ô B2 có giá trị là Thảo
-    Nếu chúng ta muốn cắt Họ thì dùng hàm Catho, muốn cắt Họ đệm thì dùng hàmCathodem


 

Tổng số điểm của bài viết là: 0 trong 0 đánh giá

Click để đánh giá bài viết

  Ý kiến bạn đọc

Hỗ trợ online
Hỗ trợ online
  • Tư vấn Kỹ thuật

    Lê Quang Lưu

    0905 914 411

    quangluutk@gmail.com

  • Tư vấn Kinh doanh

    Dương Thị Ngọc Liễu

    0985 040 674

    ngoclieuti@gmail.com

Thống kê
  • Đang truy cập7
  • Hôm nay79
  • Tháng hiện tại5,674
  • Tổng lượt truy cập92,697
Bạn đã không sử dụng Site, Bấm vào đây để duy trì trạng thái đăng nhập. Thời gian chờ: 60 giây