Tính toán từ viết tắt từ chuỗi văn bản - Ví dụ về mã VBA

Tạo từ viết tắt từ chuỗi văn bản

Hàm sau đây đánh giá các Từ viết tắt từ các chuỗi, tức là nó nối chữ cái đầu tiên trong mỗi từ trong một chuỗi. Ví dụ: “cây xanh” trở thành “TAG”.

Quy trình duyệt qua mọi ký tự trong một chuỗi và nếu nó là khoảng trắng thì nó sẽ lấy ký tự tiếp theo trong chuỗi. Trước khi đánh giá chuỗi, nó loại bỏ tất cả các khoảng trắng ở cuối và trùng lặp.

Hàm Acroymn (Original_String As String) As String Dim Trimmed_String As String Dim Length As Integer Dim Pos As Integer Trimmed_String = Application.WorksheetFunction.Trim (Original_String) 'tính độ dài của chuỗi Length = Len (Trimmed_String) Acroymn = UCase (Left (Trimmed_String, 1)) For Pos = 2 To Length - 1 If (Mid (Trimmed_String, Pos, 1) = "") Then Acroymn = Acroymn & UCase (Mid (Trimmed_String, Pos + 1, 1)) End If Next Pos Kết thúc chức năng

Ví dụ :
Acroymn (“British Broadcasting Corporation”) cho BBC
Acroymn (“Funky”) cho F
Acroymn (“”) cho NULL

Để tải xuống tệp .XLSM từ bài viết, hãy nhấp vào đây