Hỏi về Data Validation (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
Cá ngừ F1

Cá ngừ F1

( ͡° ͜ʖ ͡°)
Thành viên BQT
Moderator
Tham gia
1/1/08
Bài viết
2,579
Được thích
3,723
Donate (Momo)
Donate
Giới tính
Nam
Nghề nghiệp
Quan hệ.. và quan hệ..
Chào các anh chị
E muốn kiểm soát dữ liệu nhập bằng Data Validition của 1 ô là Bội số của 5 (5,10,15...) thì làm thế nào?
Mong sự giúp đỡ!
 
nhapmon đã viết:
allow chọn customer
formular: copy cthức trên vào

chúc thành công
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn nhiều
Cho mình hỏi nâng cao hơn một chút. Có một cột phân loại, nếu loại A thì điều kiện nhập là bội của 2, loại B thì điều kiện nhập là bội của 5..
Như file đính kèm, mong ac giúp đỡ
 

File đính kèm

Cá ngừ F1 đã viết:
Cảm ơn bạn nhiều
Cho mình hỏi nâng cao hơn một chút. Có một cột phân loại, nếu loại A thì điều kiện nhập là bội của 2, loại B thì điều kiện nhập là bội của 5..
Như file đính kèm, mong ac giúp đỡ
Nhấp chuột vào đây để mở rộng...
Thì dùng IF thôi:
Tô chọn B4:B1000
Công thức trong Validation là
PHP: 
=IF(A4="A";MOD(B4;2)=0;IF(A4="B";MOD(B4;5)=0;MOD(B4;10)=0))
 
Cá ngừ F1 đã viết:
Cảm ơn bạn nhiều
Cho mình hỏi nâng cao hơn một chút. Có một cột phân loại, nếu loại A thì điều kiện nhập là bội của 2, loại B thì điều kiện nhập là bội của 5..
Như file đính kèm, mong ac giúp đỡ
Nhấp chuột vào đây để mở rộng...

Trời ơi! Làm 1 điều kiện được rồi, giờ 2 hoặc 3 điều kiện thì IF vài cái là xong chứ gì
 
ndu96081631 đã viết:
Trời ơi! Làm 1 điều kiện được rồi, giờ 2 hoặc 3 điều kiện thì IF vài cái là xong chứ gì
Nhấp chuột vào đây để mở rộng...
Dạ, e lười suy nghĩ quá ạh, trong lúc bối rối nên hỏi luôn, hì
Nếu như mà thêm điều kiện nhỏ hơn 1 số nào nữa thì ntn ạh, ví dụ <50,000,000 chẳng hạn
 
Cá ngừ F1 đã viết:
Cảm ơn bạn nhiều
Cho mình hỏi nâng cao hơn một chút. Có một cột phân loại, nếu loại A thì điều kiện nhập là bội của 2, loại B thì điều kiện nhập là bội của 5..
Như file đính kèm, mong ac giúp đỡ
Nhấp chuột vào đây để mở rộng...

chắc là như vậy, validation cho B4
=MOD(B4,IF(A4="A",2,IF(A4="B",5,10)))=0
--->ok xong
sau đó chọn từ B4--->B bao nhiêu bạn thích --->excel sẻ tự gán đk cho các cell còn lại
 
Cá ngừ F1 đã viết:
Mình có làm ra cái hàm này

Đã chay ngon. Tuy nhiên muốn chặn dưới, ví dụ 10<=B4<=20 thì dường như là hàm nó ko hiểu, hjk
Nhấp chuột vào đây để mở rộng...

Chắc là nó sai ở chổ nào đó,
bạn thử lại cái này
=AND(MOD(B4,IF(A4="A",2,IF(A4="B",5,10)))=0,B4>=10,B4<=20)

hoặc
=AND(MOD(B4,IF(A4="A",2,IF(A4="B",5,10)))=0,MEDIAN(10,20,B4)=B4)
 
Lần chỉnh sửa cuối:
nhapmon đã viết:
Chắc là nó sai ở chổ nào đó,
bạn thử lại cái này
=AND(MOD(B4,IF(A4="A",2,IF(A4="B",5,10)))=0,B4>=10,B4<=20)
Nhấp chuột vào đây để mở rộng...
Như này được hiểu là nếu loại A hay B thì đều có thể chạy từ 10 đến 20
Mình tách như hàm trên để là nếu loại A thì số chỉ chạy từ 10 đến 20, nếu B chạy từ 20 đến 30..., C...
=IF(A4="A",AND(10<B4<=20,MOD(B4,2)=0),IF(A4="B",AND(20<B4<=30,MOD(B4,5)=0),AND(B4<=40,MOD(B4,10)=0)))
Như này thì lại ko chạy được :D

Mình đặt hàm ở ngoài thử thì kết quả FALSE, đang tìm nguyên nhân, hjk
 
Lần chỉnh sửa cuối:
Cá ngừ F1 đã viết:
Như này được hiểu là nếu loại A hay B thì đều có thể chạy từ 10 đến 20
Mình tách như hàm trên để là nếu loại A thì số chỉ chạy từ 10 đến 20, nếu B chạy từ 20 đến 30..., C...
=IF(A4="A",AND(10<B4<=20,MOD(B4,2)=0),IF(A4="B",AND(20<B4<=30,MOD(B4,5)=0),AND(B4<=40,MOD(B4,10)=0)))
Như này thì lại ko chạy được :D

Mình đặt hàm ở ngoài thử thì kết quả FALSE, đang tìm nguyên nhân, hjk
Nhấp chuột vào đây để mở rộng...

Bạn sai cú pháp

AND(10<B4<=20,MOD(B4,2)=0----->and(B4>10,B4<=20,mod(B4,2)=0
 
Data validation cho giá trị duy nhất

E có một cột với nhiều số trùng nhau.. làm thể nào để đưa ra một ô dạng list của data validation các số là duy nhất
many tks!
 

File đính kèm

Cá ngừ F1 đã viết:
E có một cột với nhiều số trùng nhau.. làm thể nào để đưa ra một ô dạng list của data validation các số là duy nhất
many tks!
Nhấp chuột vào đây để mở rộng...

Dù dùng code VBA hay công thức thì cũng chỉ có 1 cách duy nhất: Phải tạo 1 cột phụ chứa list duy nhất. Validation sẽ tham chiếu đến phụ này
Đương nhiên VBA cũng có 1 cách hơi "tà đạo" là nạp trực tiếp vào Validation theo dạng chuổi (không cần cột phụ). Có điều cách này cũng có giới hạn, sẽ không làm được với những list dài
 
Cá ngừ F1 đã viết:
E có một cột với nhiều số trùng nhau.. làm thể nào để đưa ra một ô dạng list của data validation các số là duy nhất
many tks!
Nhấp chuột vào đây để mở rộng...

Dùng chức năng có sẵn của excel: Data->consolidate

Tất nhiên là qua cột phụ, có điều nhanh gọn.
 
tungnguyen_kt đã viết:
Dùng chức năng có sẵn của excel: Data->consolidate

Tất nhiên là qua cột phụ, có điều nhanh gọn.
Nhấp chuột vào đây để mở rộng...
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ì
 
Cá ngừ F1 đã viết:
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ì
Nhấp chuột vào đây để mở rộng...

Cột phụ thì ai cũng làm được, ý mình là nếu làm cột phụ thì mình nghĩ dùng consolidate là nhanh gọn nhất.
Không thì .. chỉ có VBA như anh NDU nói.
 
Cá ngừ F1 đã viết:
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ì
Nhấp chuột vào đây để mở rộng...

Bạn đưa dữ liệu thật lên tôi làm luôn cho
(giả lập không đúng sự thật, mất công làm đi làm lại mệt lắm)
 
ndu96081631 đã viết:
Bạn đưa dữ liệu thật lên tôi làm luôn cho
(giả lập không đúng sự thật, mất công làm đi làm lại mệt lắm)
Nhấp chuột vào đây để mở rộng...
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..
 
Cá ngừ F1 đã viết:
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..
Nhấp chuột vào đây để mở rộng...
1> Code trong Module:
Mã: 
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 Function
2> Code sự kiện SelectionChange
Mã: 
Private 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 Sub
Bạn nhập liệu gì cứ thây kệ, hể chọn vào cell G9 là list sẽ tự cập nhất
Lưu ý:
- Chổ màu đỏ là cell chứa Validaiton
- Chổ màu xanh là vùng dữ liệu cần lấy list duy nhất
Cứ tùy biến 2 chổ đỏ xanh ấy thoải mái, những chổ khác cứ để nguyên
 

File đính kèm

list duy nhất

ndu96081631 đã viết:
1> Code trong Module:
Mã: 
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 Function
2> Code sự kiện SelectionChange
Mã: 
Private 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 Sub
Bạn nhập liệu gì cứ thây kệ, hể chọn vào cell G9 là list sẽ tự cập nhất
Lưu ý:
- Chổ màu đỏ là cell chứa Validaiton
- Chổ màu xanh là vùng dữ liệu cần lấy list duy nhất
Cứ tùy biến 2 chổ đỏ xanh ấy thoải mái, những chổ khác cứ để nguyên
Nhấp chuột vào đây để mở rộng...
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!!!
 

File đính kèm

Cá ngừ F1 đã viết:
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
Nhấp chuột vào đây để mở rộng...
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.
Untitled.jpg
 
Cá ngừ F1 đã viết:
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!!!
Nhấp chuột vào đây để mở rộng...

Trong file bạn nói rằng:
List duy nhất ở ô màu đỏ lấy tham chiếu từ name list bên sheet data
Nhấp chuột vào đây để mở rộng...
Vậy mà code lại ghi:
Mã: 
Set rng = Range("list")
thì sao mà được
Lý ra phải:
Mã: 
Set rng = [COLOR=#ff0000]Sheets("data").[/COLOR]Range("list")
Chỉ rõ tên sheet nguồn đàng hoàng
 
Dạ, thật là tuyệt... vì là e áp dụng hơi máy móc, chưa hiểu về code ạh (nghĩ đơn giản là đặt name rồi thì áp dụng ở đâu cũng được), rất cảm ơn thày...
 
ndu96081631 đã viết:
Trong file bạn nói rằng:

Vậy mà code lại ghi:
Mã: 
Set rng = Range("list")
thì sao mà được
Lý ra phải:
Mã: 
Set rng = [COLOR=#ff0000]Sheets("data").[/COLOR]Range("list")
Chỉ rõ tên sheet nguồn đàng hoàng
Nhấp chuột vào đây để mở rộng...
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?
 
Cá ngừ F1 đã viết:
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?
Nhấp chuột vào đây để mở rộng...

Được luôn!
1> Thêm code này vào Module:
Mã: 
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 Function
2> Sửa code sự kiện SelectionChange thành:
Mã: 
Private 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 Sub
 

File đính kèm

Danh sách tham chiếu phụ thuộc

E có tham khảo tài liệu data validation in Excel của Thày PhanTuHuong trên GPE.
Mục "Tạo danh sách tham chiếu phụ thuộc"
E xin gửi theo vi dụ của thày PTH đính kèm.
Giả sử sắp tới Hà Nội thêm quận mới là quận Mỹ Đình, e có nhập tiếp vào danh sách mà mở rộng tham chiếu ở source list Quận/Huyện thì công thức này phá sản, hjk
Chẳng nhẽ mỗi lần thêm quân mới lại phải insert vào đúng phần Tỉnh/thành phố..??
Có giải pháp nào hoàn hảo hơn không ạh? Mong giúp đỡ
 

File đính kèm

Cá ngừ F1 đã viết:
E có tham khảo tài liệu data validation in Excel của Thày PhanTuHuong trên GPE.
Mục "Tạo danh sách tham chiếu phụ thuộc"
E xin gửi theo vi dụ của thày PTH đính kèm.
Giả sử sắp tới Hà Nội thêm quận mới là quận Mỹ Đình, e có nhập tiếp vào danh sách mà mở rộng tham chiếu ở source list Quận/Huyện thì công thức này phá sản, hjk
Chẳng nhẽ mỗi lần thêm quân mới lại phải insert vào đúng phần Tỉnh/thành phố..??
Có giải pháp nào hoàn hảo hơn không ạh? Mong giúp đỡ
Nhấp chuột vào đây để mở rộng...

Công thức này bắt buộc phải tuân thủ quy tắc: Sort dữ liệu
Vậy nên trường hợp muốn nhập liệu thoải mái (nhập tiếp vào danh sách mà không cần phải chèn đúng chổ), bạn phải dùng đến VBA
 
ndu96081631 đã viết:
Công thức này bắt buộc phải tuân thủ quy tắc: Sort dữ liệu
Vậy nên trường hợp muốn nhập liệu thoải mái (nhập tiếp vào danh sách mà không cần phải chèn đúng chổ), bạn phải dùng đến VBA
Nhấp chuột vào đây để mở rộng...
Mọi con đường đều dẫn đến VBA... Hì.. thày giúp em với ạh.
 
Cá ngừ F1 đã viết:
Mọi con đường đều dẫn đến VBA... Hì.. thày giúp em với ạh.
Nhấp chuột vào đây để mở rộng...
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?
ví dụ: Nếu chọn Hà Nội trong file bài #35 có mảng động là [A2:A8,A22].. từ đó ta có thể offset sang Quận/huyện??
 

File đính kèm

Lần chỉnh sửa cuối:
ndu96081631 đã viết:
Thật ra dạng bài này đã có rồi. Bạn xem topic này:
http://www.giaiphapexcel.com/forum/...a-validation-có-điều-kiện&p=535067#post535067

Mọi thứ đã có sẵn, ta vẽ thêm "con mèo" vào là xong! (trong 30 giây)
Nhấp chuột vào đây để mở rộng...
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)
Giả dụ: nhập chữ H ở list thì đưa ra lựa chọn như: Hà Nội, Hà Nam... Hà Tiên ???
 
Cá ngừ F1 đã viết:
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)
Giả dụ: nhập chữ H ở list thì đưa ra lựa chọn như: Hà Nội, Hà Nam... Hà Tiên ???
Nhấp chuột vào đây để mở rộng...

Hình như bạn muốn nhập liệu nhanh!
Yêu cầu nhiều quá, đã đến lúc bạn nên nghĩ đến việc dùng UserForm thay vì Validation
UserForm kết hợp ComboBox và ListBox sẽ đáp ứng mọi thứ bạn cần (gần giống như tra từ điển)
 
ndu96081631 đã viết:
Hình như bạn muốn nhập liệu nhanh!
Yêu cầu nhiều quá, đã đến lúc bạn nên nghĩ đến việc dùng UserForm thay vì Validation
UserForm kết hợp ComboBox và ListBox sẽ đáp ứng mọi thứ bạn cần (gần giống như tra từ điển)
Nhấp chuột vào đây để mở rộng...
Quả thật.. thầy đi GUỐC trong bụng học trò..
Chỉ có điều.. e cũng có nghiên cứu userform nhưng cứ như +-+-+-+... khó khó là khó
 
Cá ngừ F1 đã viết:
Quả thật.. thầy đi GUỐC trong bụng học trò..
Chỉ có điều.. e cũng có nghiên cứu userform nhưng cứ như +-+-+-+... khó khó là khó
Nhấp chuột vào đây để mở rộng...
Xem file mẫu đính kèm nhé
Hướng dẫn sơ qua cách dùng như clip dưới đây

[video=youtube;H1MGVQ31KcE]http://www.youtube.com/watch?v=H1MGVQ31KcE&feature=youtu.be[/video]


Bạn gõ vài ký tự vào ComboBox, lập tức Listbox sẽ lọc ra những dữ liệu liên quan
Cho phép nhập ký tự đại diện như *, ?...
(dữ liệu được lấy từ sheet MC nha)
----------------
Cách hàm đã viết sẵn cả rồi, giờ việc của bạn là:
- Thay đổi thiết kế của UserForm cho phù hợp
- Thay đổi vùng dữ liệu gốc cho phù hợp
vậy thôi
 

File đính kèm

ndu96081631 đã viết:
Xem file mẫu đính kèm nhé
Hướng dẫn sơ qua cách dùng như clip dưới đây

[video=youtube;H1MGVQ31KcE]http://www.youtube.com/watch?v=H1MGVQ31KcE&feature=youtu.be[/video]


Bạn gõ vài ký tự vào ComboBox, lập tức Listbox sẽ lọc ra những dữ liệu liên quan
Cho phép nhập ký tự đại diện như *, ?...
(dữ liệu được lấy từ sheet MC nha)
----------------
Cách hàm đã viết sẵn cả rồi, giờ việc của bạn là:
- Thay đổi thiết kế của UserForm cho phù hợp
- Thay đổi vùng dữ liệu gốc cho phù hợp
vậy thôi
Nhấp chuột vào đây để mở rộng...
Thầy ơi... This video is private ạh
 
ndu96081631 đã viết:
1> Code trong Module:
Mã: 
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 Function
2> Code sự kiện SelectionChange
Mã: 
Private 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 Sub
Bạn nhập liệu gì cứ thây kệ, hể chọn vào cell G9 là list sẽ tự cập nhất
Lưu ý:
- Chổ màu đỏ là cell chứa Validaiton
- Chổ màu xanh là vùng dữ liệu cần lấy list duy nhất
Cứ tùy biến 2 chổ đỏ xanh ấy thoải mái, những chổ khác cứ để nguyên
Nhấp chuột vào đây để mở rộng...
E có sử dụng code này của thày để lọc dữ liệu duy nhất, ở một số sheet khác thì không thấy có lỗi.. nhưng khi kích vào ô D2 của sheet này để chọn thì báo lỗi này, ko biết là lỗi j ạh?
 

File đính kèm

  • run time error.jpg
    run time error.jpg
    92.5 KB · Đọc: 7
  • VBA.jpg
    VBA.jpg
    138.2 KB · Đọc: 5
Cá ngừ F1 đã viết:
E có sử dụng code này của thày để lọc dữ liệu duy nhất, ở một số sheet khác thì không thấy có lỗi.. nhưng khi kích vào ô D2 của sheet này để chọn thì báo lỗi này, ko biết là lỗi j ạh?
Nhấp chuột vào đây để mở rộng...

Đoán thôi: Có thể cái list mà bạn định cho vào Validation nó quá dài... dài đến mức quá tải
Chỉ đoán thôi chứ không có file cũng không biết được gì
 
ndu96081631 đã viết:
Đoán thôi: Có thể cái list mà bạn định cho vào Validation nó quá dài... dài đến mức quá tải
Chỉ đoán thôi chứ không có file cũng không biết được gì
Nhấp chuột vào đây để mở rộng...
name "Phong_dm" là 204 bản ghi (liệu có quá dài)
Nhưng, E cũng áp dụng cách này cho sheet khác thì ko thấy báo lỗi j ạh...
Dạ, e có phát hiện ra là nếu protect sheet thì báo lỗi mà unprotect thì lại ko báo lỗi này ạh
 
Lần chỉnh sửa cuối:
Có khi nào trong source của list data validation vừa chứa phần tử là chuỗi, vừa có phần tử là hàm số được không ạh?
 
ndu96081631 đã viết:
1> Code trong Module:
Mã: 
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 Function
2> Code sự kiện SelectionChange
Mã: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = [SIZE=3][B]"[COLOR=#ff0000]$G$9[/COLOR]"[/B][/SIZE] 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 Sub
Bạn nhập liệu gì cứ thây kệ, hể chọn vào cell G9 là list sẽ tự cập nhất
Lưu ý:
- Chổ màu đỏ là cell chứa Validaiton
- Chổ màu xanh là vùng dữ liệu cần lấy list duy nhất
Cứ tùy biến 2 chổ đỏ xanh ấy thoải mái, những chổ khác cứ để nguyên
Nhấp chuột vào đây để mở rộng...
Cho e hỏi bổ sung thêm chỗ này chút ạh.. liệu có thay cái target ( If Target.Address = "$G$9") này thành 1 mảng không, vì e muốn cái data vali này ko chỉ 1 cell mà ở một range..
E có mạnh dạn thay bằng cái này If Target.Address = "G9:G2000" Then mà ko có được
tks
 
Lần chỉnh sửa cuối:
Cá ngừ F1 đã viết:
Cho e hỏi bổ sung thêm chỗ này chút ạh.. liệu có thay cái target ( If Target.Address = "$G$9") này thành 1 mảng không, vì e muốn cái data vali này ko chỉ 1 cell mà ở một range..
E có mạnh dạn thay bằng cái này If Target.Address = "G9:G2000" Then mà ko có được
tks
Nhấp chuột vào đây để mở rộng...

Trật lất!
Vầy mới đúng:
Mã: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  [COLOR=#ff0000]If Not Intersect(Range("G9:G2000"), Target) Is Nothing Then[/COLOR]
    Dim arr, rng As Range
    Set rng = Sheets("data").Range("list")
    arr = UniqueList(rng)
    arr = Sort1DArray(arr, True, False)
    If IsArray(arr) Then
      With [COLOR=#ff0000]Intersect(Range("G9:G2000"), Target)[/COLOR]
        .Validation.Delete
        .Validation.Add 3, , , Join(arr, ",")
      End With
    End If
  End If
End Sub
 
ndu96081631 đã viết:
Trật lất!
Vầy mới đúng:
Mã: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  [COLOR=#ff0000]If Not Intersect(Range("G9:G2000"), Target) Is Nothing Then[/COLOR]
    Dim arr, rng As Range
    Set rng = Sheets("data").Range("list")
    arr = UniqueList(rng)
    arr = Sort1DArray(arr, True, False)
    If IsArray(arr) Then
      With [COLOR=#ff0000]Intersect(Range("G9:G2000"), Target)[/COLOR]
        .Validation.Delete
        .Validation.Add 3, , , Join(arr, ",")
      End With
    End If
  End If
End Sub
Nhấp chuột vào đây để mở rộng...
E có sửa lại thì báo lỗi này
New Picture.jpg
Vậy là sao hả Thầy???
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

B
Sau 1 tháng Mã Lại reset về 1 trở lên (1 người xem)
Trả lời
17
Đọc
175
HieuCD
H
H
Đánh số thứ thự phiếu thu chi
Trả lời
14
Đọc
212
LOGANWover
L
H
  • Question Question
Xin giúp đỡ về tạo hàm excel với C# và excel-dna
Trả lời
0
Đọc
42
hdcv.excel
H
N
  • Question Question
Cho em hỏi về mail merge bằng vba
Trả lời
5
Đọc
125
Hoàng Tuấn 868
H
T
Khóa cột cập nhật dữ liệu (1 người xem)
Trả lời
0
Đọc
41
tnkhanhvy
T
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
3 4 5
Trả lời
411
Đọc
50K
ongke0711
ongke0711
H
Tìm kiếm thông tin chi tiết trên sheet tổng hợp
Trả lời
1
Đọc
61
LOGANWover
L
T
Xin hỏi về bảng lương
Trả lời
0
Đọc
62
tuandovn
T
Gà Công Nghệ
Tô màu họ và tên bị trùng từ 2 sheet khác nhau
Trả lời
6
Đọc
124
Gà Công Nghệ
Gà Công Nghệ
A
  • Question Question
Giải thích giúp mình code giải phóng bộ nhớ từ biến (2 người xem)
Trả lời
20
Đọc
9K
nguyendang95
N
Nguyenkhang2404
giúp đỡ lọc dữ liệu nâng cao
Trả lời
22
Đọc
745
Phan Thế Hiệp
Phan Thế Hiệp
B
Dùng button trên forrm để gọi bàn phím ảo win 10(OSK)
Trả lời
5
Đọc
129
huhumalu
H
P
VẼ ĐƯỜNG TẦN SUẤT (DTS) TRÊN EXCEL
Trả lời
8
Đọc
210
ptm0412
ptm0412
P
GOAL SEEK NÂNG CAO TRONG EXCEL
    • Thích
Trả lời
4
Đọc
219
Hoale85
H
B
Gán Phím Tắt Gọi Form
Trả lời
7
Đọc
120
HeSanbi
HeSanbi
K
Điền giá trị ô thay vì địa chỉ ô
Trả lời
2
Đọc
132
LOGANWover
L
G
Chia sẻ các bạn File vẽ kèo Zamil từ excel
    • Thích
    • Yêu thích
Trả lời
11
Đọc
923
trqt82
T
T
Xin trợ giúp cách lọc trùng về khoảng thời gian
Trả lời
10
Đọc
2K
Phan Thế Hiệp
Phan Thế Hiệp
L
Xin hàm trích xuất chuỗi trong ô
Trả lời
12
Đọc
229
LINH7979
L
H
[Xin giúp đỡ] Tìm thời gian trùng ở nhiều khoảng thời gian khác nhau.
Trả lời
14
Đọc
2K
Phan Thế Hiệp
Phan Thế Hiệp
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom