Cách tự viết hàm tự tạo trong Excel bằng VBA

Cú pháp của Function:
Function Tên( [tham số sử dụng] ) [As] [Kiểu giá trị trả về của Function]
Nội dung Function
End Function
Các Video liên quan
-----------------------------------------------------------------
Kết nối với mình
/ tam.niem.3
------------------------------------------------------------------
Làm việc với mình
email: [e-mail]
------------------------------------------------------------------
------------------------------------------------------------------
Donate cafe
techcombank: 1902 6406 0310 12
------------------------------------------------------------------
Cám ơn các bạn đã theo dõi
Mẹo Hay Excel
✅ Free Excel Course (Basic to Advanced) -bit.ly/3CVWK0D
✅ Free VBA course
Excel So Easy
#excel #tipsexcel #exceltut

[@hungphamvan9641]

Hay quá bro !!

[@HungAnhNguyen-sm9hw]

Mình đã dùng lại code của bạn nhưng khi chạy thì kết quả báo lỗi #VALUE!. Giúp mình tìm ra lỗi với. Xin cảm ơn bạn nhiều Function udfTextJoin(txtRange As Range, Optional delimiter = ",") Dim Result As String Dim i As Integer Dim Arr() As Variant Dim arList As Object Set arList = CreateObject ("System.Collections.Array1ist") Arr = txtRange For i = 1 To UBound(Arr) If Arr(i, 1) "" Then If Not arList.contains(Arr(i, 1)) Then arList.Add (Arr(i, 1)) Result = Result & Arr(i, 1) & delimiter End If End If Next udfTextJoin = Left(Result, Len(Result) - Len(delimiter)) End Function

[@sendahoasu]

Function udfTextJoin(TextRange As Range, Optional Delimiter As String = "|") Dim textString As String Dim ArrayList As Object Dim ArrRange() As Variant Set ArrayList = CreateObject("System.Collections.Arraylist") ArrRange = TextRange.Value Dim i As Long For i = 1 To UBound(ArrRange) If ArrRange(i, 1) "" Then If Not ArrayList.contains(ArrRange(i, 1)) Then ArrayList.Add (ArrRange(i, 1)) textString = textString & Delimiter & ArrRange(i, 1) End If End If Next udfTextJoin = Right(textString, Len(textString) - 1) End Function