Hướng dẫn cách ứng dụng hàm tự tạo bằng VBA để viết tắt họ tên trên Excel

Trong công việc hàng ngày tại văn phòng, bạn không thể tránh được những công việc phải xử lý danh sách nhân viên, khách hàng như: lọc tên, lọc họ, viết tắt tên để tiện cho báo cáo và quản lý. Trong bài viết này mình sẽ hướng dẫn bạn cách ứng dụng hàm tự tạo bằng VBA để viết tắt họ tên trên Excel sao cho nhanh chóng.

Bạn có một danh sách nhân viên. Bạn muốn viết  tắt họ tên của từng người :

Ví dụ

• “Nguyễn Văn Hùng”  thành “NV Hùng”
• “”Lê Thị Lan Anh”” thành “LTL Anh”

Việc này hoàn toàn đơn giản nếu bạn vận dụng VBA như sau :

Bạn insert một module mới :

Function ghepten(HoTen As Range) As String
If HoTen.Count > 1 Then Exit Function
On Error GoTo Thoat
Dim TMP As Variant, I As Byte
TMP = Split(HoTen.Text)
For I = LBound(TMP, 1) To UBound(TMP, 1) – 1
ghepten = ghepten & Left(CStr(TMP(I)), 1)
Next
ghepten = ghepten & Space(1) & TMP(UBound(TMP, 1))
Thoat: Exit Function
End Function

Cách sử dụng rất đơn giản theo cấu trúc : =ghepten(dữ liệu nguồn)

Với bài viết trên, mình hy vọng giúp các bạn có thể tự tạo ra hàm để viết tắt họ tên trên Excel, trong bài viết tới mình sẽ chia sẻ một số bài viết về các hàm tự tạo dạng như trên.

Chúc các bạn thành công :

DuyTG hocexcel.online