cách add mảng 1 chiều vào validation list bằng VBA (1 người xem)

[khongnhienttt]

mình có code sau:, sau khi lọc ra được mảng kq, thì làm cách nào để add nó vô list trong validation

Sub refreshCombo()
Dim mang, kq(), dic As Object, i As Integer, k As Integer
Set dic = CreateObject("scripting.dictionary")
With Sheets("Master data")
mang = .Range(.[a3], .[a65000].End(xlUp))
ReDim kq(1 To UBound(mang, 1))
For i = 1 To UBound(mang, 1)
    If mang(i, 1) <> "" And Not dic.exists(mang(i, 1)) Then
        k = k + 1
        dic.Add mang(i, 1), k
        kq(k) = mang(i, 1)
    End If
Next i
End With
With Sheets("Phieu NK").Range("H4").Validation
    .Delete
    .Add Type:=xlValidateList, Formula1:="=WorksheetFunction.Transpose(kq)"
End With
End Sub

 

[Kiều Mạnh]

mình có code sau:, sau khi lọc ra được mảng kq, thì làm cách nào để add nó vô list trong validation

Sub refreshCombo()
Dim mang, kq(), dic As Object, i As Integer, k As Integer
Set dic = CreateObject("scripting.dictionary")
With Sheets("Master data")
mang = .Range(.[a3], .[a65000].End(xlUp))
ReDim kq(1 To UBound(mang, 1))
For i = 1 To UBound(mang, 1)
    If mang(i, 1) <> "" And Not dic.exists(mang(i, 1)) Then
        k = k + 1
        dic.Add mang(i, 1), k
        kq(k) = mang(i, 1)
    End If
Next i
End With
With Sheets("Phieu NK").Range("H4").Validation
    .Delete
    .Add Type:=xlValidateList, Formula1:="=WorksheetFunction.Transpose(kq)"
End With
End Sub

vào link sau mà tham khảo coi nha
http://www.giaiphapexcel.com/forum/showthread.php?106329-Lọc-mảng-nhiều-điều-kiện/page5

http://www.giaiphapexcel.com/forum/...ng-Data-Validation-settings-list-Source/page3

 

[khongnhienttt]

vào link sau mà tham khảo coi nha
http://www.giaiphapexcel.com/forum/showthread.php?106329-Lọc-mảng-nhiều-điều-kiện/page5

http://www.giaiphapexcel.com/forum/...ng-Data-Validation-settings-list-Source/page3

rất cám ơn, mình làm được rồi