LẤY CÁC CHỮ CÁI ĐẦU CỦA MỘT CHUỖI

LẤY CÁC CHỮ CÁI ĐẦU CỦA MỘT CHUỖI

Bạn có một danh sách họ và tên nhân viên, hay bất kỳ mội nội dung nào, và bạn muốn lấy các chữ cái đầu tiên để ghép lại.
Nếu bạn đang phải làm thủ công thì quả thật cũng rất kì công đấy. Excel không có sẵn một hàm để làm như vậy mà chúng ta sẽ phải xây dựng hàm bằng VBA.
Bài viết này sẽ hướng dẫn các bạn xây dựng một hàm tự tạo bằng VBA để lấy các chữ cái đầu của một chuỗi.
Cùng theo dõi cách làm sau nhé.
Mình có ví dụ như hình sau:

– Bước 1: Đầu tiên các bạn nhấn phím tắt Alt + F11 (để mở cửa VBA) sau đó vào Insert – Module

– Bước 2: Bạn viết đoạn Code sau vào module vừa tạo ra:

Function NAME(my_string As String) As String
my_string = Trim(my_string)
Dim buff() As String
ReDim buff(Len(my_string) – 1)
For i = 1 To Len(my_string)
buff(i – 1) = Mid$(my_string, i, 1)
Next
NAME = buff(0)
For i = LBound(buff) + 1 To UBound(buff)
If buff(i – 1) = ” ” Then
NAME = NAME + buff(i)
End If
Next i
End Function

– Bước 3: Tắt cửa sổ VBA và trở laị File excel, ngay tại ô B4 bạn gọi hàm VBA ra: 
=NAME(A4) sau đó Enter thì bạn đã lấy các kí tự đầu tiên của một chuỗi thành công.
Bạn theo dõi kết quả từ cách làm trên nhé.

Hy vọng bài viết sẽ hữu ích cho công việc của bạn. TTV chúc các bạn thành công!

———————————

TRUNG TÂM ĐÀO TẠO TIN HỌC TRÍ TUỆ VIỆT

CS1: 451 Điện Biên Phủ, Phường 25 – Quận Bình Thạnh – TP.HCM
CS2: 213 Đường 3/2, Phường 9 – Quận 10 – TP.HCM
CS3: 84T/8 Trần Đình Xu – Quận 1 – TP.HCM
Hotline: 0902.936.936

Rate this post
BÀI VIẾT LIÊN QUAN

Chèn File PDF, Excel, Word Vào PowerPoint

Chèn File PDF, Excel, Word Vào PowerPoint Khi làm slide trong chương trình power point, có nhiều lúc chúng ta cần đính kèm dữ liệu từ bên ngoài như nội...

Xử lí các ô trống trong Pivottable

Xử lí các ô trống trong Pivottable Khi bạn thấy có những ô trống nằm trong Pivot Table, bạn có thể thay thế các ô trống này bằng một giá...

0902.936.936
MENU