CÔNG TY CỔ PHẦN BLUESOFTS

CÔNG TY CỔ PHẦN BLUESOFTS

/ Lập trình VBA / cơ bản / Lập trình VBA tạo hàm A2T và T2A thay hàm TEXTJOIN, TEXTSPLIT của Excel 365

Lập trình VBA tạo hàm A2T và T2A thay hàm TEXTJOIN, TEXTSPLIT của Excel 365

Hai hàm TEXTJOIN, TEXTSPLIT chỉ có trong Excel 365 hoặc bản nâng cấp cao hơn và bạn không thể dùng nó trong các phiên bản thấp hơn như từ Excel 2019 trở về trước. Bài viết này tôi hướng dẫn cách lập trình trình VBA để tạo ra hai hàm A2T và hàm T2A để thay thế và ứng dụng ở mức đơn giản nhất. 

Bước 1: Từ bảng tính Excel, nhấn ALTR+F11 để vào cửa sổ "Visual basic for application"
Bước 2: Nếu chưa có module haowcj bạn muốn tọa mới, vào mneu Insert->Module
Bây giờ bạn đã nhìn thấy một cửa sổ bên phải để bạn soạn thảo code VBA vào đây.
Bước 3: Soạn thảo hoặc dán đoạn code dưới đây vào

'------COPY TỪ ĐÂY 
Option Explicit 
'Author: Nguyen Duy Tuan - http://bluesofts.net
'VBA ProgrammingFunction a2t(arr, Optional ByVal Delimiter As String = ",")
Function a2t(arr, Optional ByVal Delimiter As String = ",") 
   Dim a 
   If IsArray(arr) Then 
      For Each a In arr 
         If Len(a2t) = 0 Then 
            a2t = a 
         Else 
            a2t = a2t & Delimiter & a 
         End If 
      Next 
   Else 
      a2t = arr 
   End If 
End Function 
'------------------------------------------------------------------------------------
Function T2A(ByVal Text As String, Optional ByVal Delimiter As String = ",") 
   T2A = Split(Text, Delimiter) 
End Function
'---------------END COPY----------------------------

Sử dụng hàm UDF A2T() và T2A trên bảng tính Excel

Tham khảo hướng dẫn tạo hàm trong VBA "ai cũng làm được". Tác giả: Nguyễn Duy Tuân