Em tìm được mấy hàm người dùng như file đính kèm, nhưng em không biết cách sử dụng vậy em nhờ thầy cô và các bạn giải thích và hướng dẫn giúp em với.
Em xin cảm ơn!
Em tìm được mấy hàm người dùng như file đính kèm, nhưng em không biết cách sử dụng vậy em nhờ thầy cô và các bạn giải thích và hướng dẫn giúp em với.
Em xin cảm ơn!
Em cảm ơn anh nhé
Anh ơi anh giải thích giúp em 2 hàm này làm gì anh nhé
Private Function ConvertTo1DArray(ByVal SourceArray)
Dim aDest() As Variant
Dim aSource As Variant
Dim item As Variant
Dim idx As Long
'On Error Resume Next
aSource = SourceArray
If Not IsArray(aSource) Then aSource = Array(aSource)
For Each item In aSource
idx = idx + 1
ReDim Preserve aDest(1 To idx)
aDest(idx) = item
Next
ConvertTo1DArray = aDest
'If Err.Number Then MsgBox Err.Description
End Function
Function UniqueList(ParamArray Arrays())
Dim aDest() As Variant
Dim aSub As Variant
Dim item As Variant
Dim idx As Long
Dim n As Long
Dim sItem As String
Dim dic As Object
'On Error Resume Next
Set dic = CreateObject("Scripting.Dictionary")
For n = LBound(Arrays) To UBound(Arrays)
aSub = Arrays(n)
If Not IsArray(aSub) Then aSub = Array(aSub)
For Each item In aSub
If TypeName(item) <> "Error" Then
sItem = CStr(item)
If Len(sItem) Then
If Not dic.Exists(sItem) Then dic.Add sItem, Empty
End If
End If
Next
Next
If dic.Count Then UniqueList = dic.Keys
Set dic = Nothing
'If Err.Number Then MsgBox Err.Description
End Function