Danh sách ở cột A1:A7 là cố định không thể xóa được 2 ô trống đó
Không xóa được trong source thì phải dùng source khác, và source đó không trống.
Ý bạn là dùng source phụ, nhưng làm sao source phụ tự động thay đổi theo khi sỏuce chính thay đổi
Cảm ơn bạn, đã giúp tôi xử lí được 50%về trường hợp ô trống. Còn trường hợp trung ô trùng nhau bạn có cách nào ko, xin giúp đỡ
Vâng ah, vậy ndu906081631 giúp tôi VBA như vậy nhé
Cảm ơn bạn, bạn giúp đỡ như vậy là ổn rồi, nhưng sợ file nặng thêm như bác ndu phân tích
Cho em mượn tạm cái Valilist của anh mhung12005 nhé, bạn dùng công thức này cho H2 rùi làm List để chọn cũng được, hơi dài chút nhưng cũng là 1 cách.
=IF(ISERROR(INDEX(Valilist,MATCH(1,INDEX((Valilist<>"")*(COUNTIF($H$1:H1,Valilist)=0),0),0))),"",INDEX(Valilist,MATCH(1,INDEX((Valilist<>"")*(COUNTIF($H$1:H1,Valilist)=0),0),0)))Quá chuẩn luôn, cảm ơn mhung12005 và các bạn cùng giúp
Cái này bạn giỡn chơi với thichthibup hay sao ah, thêm vào cột A nó lặng thinh mà
If Not Intersect(Range("A1:A100"), Target) Is Nothing ThenKhông hiểu sao file này khi mở lên ko hề có đoạn code nào, nhờ các bác kiểm tra giúp; hơn nữa các file trước đây có code nhưng nay mở ra thì không thấy dòng code nào, mặc dù phai đó vẫn hoạt động bình thường
Em đang hiểu ý của anh mhung12005 là khi chọn và thêm dữ liệu vào vùng [A1:A100] code chạy luôn và cập nhật vào validation sư phụ ạ, hành động thêm dữ liệu trước, cũng hơi ngược ngược chút vì có phải lúc nào cũng thêm dữ liệu đâu mà tác động vào vùng A1:A100. hix! Có lẽ là anh ấy đang triển khai code theo hướng đó nên mới viết như vậy.
Nếu chọn hành động THÊM DỮ LIỆU thì cập nhật code. Vậy ta phải dùng sự kiện Change chứ sao lại SelectionChange.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim arr, Item, dic As Object, tmp As String
On Error Resume Next
If Target.Address = "$B$1" Then
arr = Range("A1:A10000").Value
Set dic = CreateObject("Scripting.Dictionary")
For Each Item In arr
tmp = CStr(Item)
If Len(tmp) Then
If Not dic.Exists(tmp) Then dic.Add tmp, ""
End If
Next
With Target.Validation
.Delete
If dic.Count Then .Add 3, , , Join(dic.Keys, ",")
End With
End If
End Sub
