Viết hàm có truyền tham số Range (địa chỉ) trong VBA Excel

Viết hàm có truyền tham số Range (địa chỉ) trong VBA Excel

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

Bài viết liên quan:

Viết hàm có truyền tham số Range (địa chỉ) trong VBA Excel