Giống như hàm Vloolup, sum, max ... ta có thể viết 1 hàm riêng trong VBA Excel
Function getVLK_My(rge As Range) As String
Dim kq As String
arrData = rge
For iNum1 = 1 To UBound(arrData , 1)
For iNum2 = 1 To UBound(arrData , 2)
'MsgBox first(iNum1, iNum2)
kq = kq & " - " & arrData (iNum1, iNum2)
Next iNum2
Next iNum1
getVLK_My = kq
End Function
Public Function hamcuatoi(o1, o2)
'VarType (o1)
tong = 0
arr = o1
MsgBox UBound(arr, 1)
MsgBox UBound(arr, 2)
For i = 1 To UBound(arr)
tong = tong + o1(i)
Next
hamcuatoi = tong
'hamcuatoi = o1 + o2
'hamcuatoi = VarType(o1)
End Function
Viết hàm có truyền tham số Range (địa chỉ) trong VBA Excel