• TRANG CHỦ
  • THỦ THUẬT
    • Thủ thuật máy tính
    • Thủ thuật văn phòng
    • Thủ thuật Internet
    • Thủ thuật điện thoại
  • CHIA SẺ PHẦN MỀM
  • DIỆT VIRUS
  • CÔNG NGHỆ SỐ
  • THỦ THUẬT OFFICE
  • HỖ TRỢ
  • DỊCH VỤ
    • Sửa máy tính tại nhà

Blog thủ thuật máy tính - Thủ thuật windows

Blog chia sẻ thủ thuật máy tính và thủ thuật windows, lưu lại những kiến thức trong quá trình mình làm việc

You are here: Home / Thủ thuật Office / Tạo hàm cắt họ, tên, họ đệm trong VBA

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

March 19, 2016 By Chu Quang

(Hàm cắt họ, tên, họ đệm trong Excel) Khi bạn sử dụng Excel, thao tác với danh sách họ tên khách hàng, học sinh, học viên, … nhưng danh sách này lại bao gồm họ tên đầy đủ trong khi bạn lại muốn tách riêng cột tên khỏi cột họ tên này. Hôm nay, Cuuhotinhoc.com sẽ hướng dẫn bạn 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: Khởi động chương trình Microsoft Excel.
  • Bước 2: Trong Menu Tool chọn Macro Visual Basic Editor. (Có thể sử dụng tổ hợp phím Alt + F11). Cửa sổ Microsoft Visual Basic xuất hiện.

Tao ham cat ho ten ho dem trong vba

  • Bước 3: Trong Menu Insert chọn Module. Cửa sổ Code xuất hiện.

Tao ham cat ho ten ho dem trong vba

  • Bước 4: Copy toàn bộ đoạn Code sau vào trong cửa sổ 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 lại màn hình làm việc chính của Excel, bạn vào Menu File chọn Close And Return to Microsoft Excel (Hoặc sử dụng tổ hợp phím Alt + Q).
  • Bước 6: Sử dụng những hàm đã tạo ở trên

Tao ham cat ho ten ho dem trong vba

Tại ô B1 ta có Họ tên đầy đủ của 1 người (Hình 3). Để cắt tên của người đó, bạn cần thực hiện các bước sau:
  •  Đưa vệt sáng đến ô B2, nhập vào hàm =Cathodem(B1) và nhấn Enter. Kết quả ô B2 có giá trị là Thị Ngọc.
  • Tương tự, nếu bạn muốn cắt Họ thì dùng hàm =Catho(B1), cắt Tên thì dùng hàm Catten(B1).

Hi vọng bài viết hướng dẫn cách tạo hàm cắt họ, tên, họ đệm bằng Microsoft Visual Basic giúp ích cho các bạn!

5 / 5 ( 1 vote )

Nội dung

  1. Bài viết liên quan:

Bài viết liên quan:

  • Tách nền khỏi ảnh trên Word đơn giản
  • Thay đổi ngôn ngữ hiển thị trong Windows 7
  • 5 sai lầm dễ dàng phá hủy ổ SSD
  • Những thủ thuật máy tính đơn giản và hữu ích
  • Hướng dẫn in hai mặt giấy trong Word, PDF, Excel

Filed Under: Thủ thuật Office Tagged With: hàm cắt họ tên, Office, Thủ thuật Excel

Tìm kiếm

Newbie nên đọc

  • Dạy photoshop cơ bản
  • Thủ thuật Office
  • Tạo website đơn giản
  • Download drivers

Bài viết nổi bật

  • Cách giúp máy tính không bị lag khi chơi game online

    Cách giúp máy tính không bị lag khi chơi game online

  • Cách sửa laptop bị lỗi màn hình xanh

    Cách sửa laptop bị lỗi màn hình xanh

  • Cách sử dụng DNS Cloudflare 1.1.1.1 để truy cập các trang web bị chặn

    Cách sử dụng DNS Cloudflare 1.1.1.1 để truy cập các trang web bị chặn

  • Những thủ thuật máy tính đơn giản và hữu ích

    Những thủ thuật máy tính đơn giản và hữu ích

  • Hướng dẫn cách tạo USB cài đặt Windows 10

    Hướng dẫn cách tạo USB cài đặt Windows 10

  • Tạo USB cài đặt Win 10 bằng Media Creation Tool

    Tạo USB cài đặt Win 10 bằng Media Creation Tool

  • Khắc phục lỗi máy scan không hoạt động trên Windows 10

    Khắc phục lỗi máy scan không hoạt động trên Windows 10

Theo dõi mạng xã hội

Liên hệ với tôi

Nếu các bạn gặp khó khăn gì trong quá trình làm việc hãy liên hệ với tôi theo email:

admin@cuuhotinhoc.com

Những gì tôi biết tôi sẽ hướng dẫn tận tình. Cảm ơn các bạn đã ủng hộ

Blog bạn bè

Công nghệ 3s
Tin học AZ
Mẹo vặt đời sống

Đôi lời về tác giả

Blog chia sẻ thủ thuật máy tính - Thủ thuật windows

Mình tên là Huy Phong đây là nơi mình viết lại những kinh nghiệm làm việc, những thủ thuật máy tính khi máy tính phát sinh một sự cố, cũng như là một nơi lưu trữ lại các kiến thức làm việc của mình để khi cần có thể lấy ra và áp dụng được luôn, Mong các bạn có thể đóng góp thêm cho blog của mình.

Copyright © 2021 · Going Green Pro Theme on Genesis Framework · WordPress · Log in