Với cột phụ thì e có khả năng làm được, nhưng để file thêm nhỏ gọn nên e muốn add luôn vào soucre của list data validation ạh, hì
consolidate dùng như thế nào bạn? mình chưa dùng chức năng này bao giờ, hì, tks
Dạ, cảm ơn thày, thày có thể làm trên giả lập ko ạh, để học trò còn động não suy nghĩ cho dữ liệu thật..
1> Code trong Module:
Function UniqueList(ParamArray sArray())
Dim Item, tmpArr, SubArr, tmp
On Error Resume Next
With CreateObject("Scripting.Dictionary")
For Each SubArr In sArray
tmpArr = SubArr
If Not IsArray(tmpArr) Then tmpArr = Array(tmpArr)
For Each Item In tmpArr
tmp = CStr(Item)
If Len(tmp) Then
If Not .Exists(tmp) Then .Add tmp, ""
End If
Next
Next
If .Count Then UniqueList = .Keys
End With
End FunctionPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "[COLOR=#ff0000]$G$9[/COLOR]" Then
Dim arr, rng As Range
Set rng = [COLOR=#0000cd]Range("D5:D1000")[/COLOR]
arr = UniqueList(rng)
If IsArray(arr) Then
With Target
.Validation.Delete
.Validation.Add 3, , , Join(arr, ",")
End With
End If
End If
End SubThày ơi, e có thử nghiệm code với file đính kèm, nhưng không chạy được... e ko hiểu cơ chế nên chỉ copy code và thay đổi tham chiếu.. hjk
Excel 2007: Chọn ô trả ra kết quả trước > Data > Consolidate > Chọn hàm cần tính (nếu chỉ lấy list thì hàm nào cũng được) > Chọn vùng dữ liệu (List dữ liệu nằm bền trái, tối thiểu 2 cột) > Add > Check Left column > OK.
Thày ơi, e có thử nghiệm code với file đính kèm, nhưng không chạy được... e ko hiểu cơ chế nên chỉ copy code và thay đổi tham chiếu.. hjk
Mong thầy và mng chị dẫn!!!
Vậy mà code lại ghi:
Set rng = Range("list")Set rng = [COLOR=#ff0000]Sheets("data").[/COLOR]Range("list")Cho e hỏi bổ đề chút là có thể tư động sort cái list (từ nhỏ đến lớn) trong sheet list đc ko ah?
Function Sort1DArray(ByVal Arr, Optional ByVal isText As Boolean = False, Optional ByVal isDESC As Boolean = False)
Dim sCommand As String
sCommand = "('" & Join(Arr, vbBack) & "').split('" & vbBack & "').sort("
If isText Then
sCommand = sCommand & ")"
Else
sCommand = sCommand & "function(a,b){return (a-b)})"
End If
If isDESC Then sCommand = sCommand & ".reverse()"
sCommand = sCommand & ".join('" & vbBack & "')"
With CreateObject("MSScriptControl.ScriptControl")
.Language = "JavaScript"
Sort1DArray = Split(.Eval(sCommand), vbBack)
End With
End FunctionPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$F$8" Then
Dim Arr, rng As Range
Set rng = Sheets("data").Range("list")
Arr = UniqueList(rng)
[COLOR=#ff0000][B] Arr = Sort1DArray(Arr, True, False)[/B][/COLOR]
If IsArray(Arr) Then
With Target
.Validation.Delete
.Validation.Add 3, , , Join(Arr, ",")
End With
End If
End If
End SubMọi con đường đều dẫn đến VBA... Hì.. thày giúp em với ạh.
Có cách nào tạo một mảng ĐỘNG với tham chiếu điều kiện là Tỉnh/thành phố không ạh?
Thật ra dạng bài này đã có rồi. Bạn xem topic này:
E hỏi thêm chút, liệu list có thể đưa ra gợi ý về việc lựa chọn (như kiểu đánh hàm số trên excel)
