Bỏ dòng trống trong List Validation trong trường hợp này!

[Hong.Van]

Giúp em bỏ dòng trống trong List Validation trong trường hợp chọn cột làm List
Xin xem File
Em cảm ơn!

 

[Quang_Hải]

Giúp em bỏ dòng trống trong List Validation trong trường hợp chọn cột làm List
Xin xem File
Em cảm ơn!

Cái này mình nghi là phải dùng VBA quá, H Van nghĩ sao?

 

[Hong.Van]

Cái này mình nghi là phải dùng VBA quá, H Van nghĩ sao?

Hi, viết VBA thì anh viết 5 phút xong, anh viết giùm em nha!
-------
Thầy cô & anh chị có cthức nào thì cho em tham khảo
Em cảm ơn!

 

[ndu96081631]

Giúp em bỏ dòng trống trong List Validation trong trường hợp chọn cột làm List
Xin xem File
Em cảm ơn!

Validation tự bản thân nó không có chức năng bỏ ô trống. Vậy nên ta phải dùng công thức lọc dữ liệu (bỏ ô trống) ra 1 vùng khác. Xong Validatinay2List sẽ tham chiếu đến vùng mới này

 

[Hong.Van]

Validation tự bản thân nó không có chức năng bỏ ô trống. Vậy nên ta phải dùng công thức lọc dữ liệu (bỏ ô trống) ra 1 vùng khác. Xong Validatinay2List sẽ tham chiếu đến vùng mới này

Ý thầy tạo ra cột phụ?

 

[ndu96081631]

Ý thầy tạo ra cột phụ?

Chỉ có cách đó thôi (nếu làm bằng công thức)
Còn VBA thì chẳng có gì để nói cả ---> Dùng hàm nối chuổi, xong "nhét" vào Validation
(hàm nối chuổi mới vừa đưa lên đấy thôi, cứ thế áp dụng, khỏi viết chi cho mệt)

 

[Quang_Hải]

Hi, viết VBA thì anh viết 5 phút xong, anh viết giùm em nha!
-------
Thầy cô & anh chị có cthức nào thì cho em tham khảo
Em cảm ơn!

Cách thì nhiều mà, hoặc tạm cái này nhé. Dùng sự kiện gì đó để kích hoạt sub

Sub tao_validation()
Dim d As Object, cell
Set d = CreateObject("scripting.dictionary")
With Sheets("sheet1")
   For Each cell In .Range(.[a1], .[IV1].End(1))
   If cell <> "" Then If Not d.exists(cell) Then d.Add cell, ""
   Next
   .[A11].Validation.Delete
   .[A11].Validation.Add Type:=xlValidateList, Formula1:=Join(d.keys, ",")
End With
End Sub

 

[ndu96081631]

Cách thì nhiều mà, hoặc tạm cái này nhé. Dùng sự kiện gì đó để kích hoạt sub

Sub tao_validation()
Dim d As Object, cell
Set d = CreateObject("scripting.dictionary")
With Sheets("sheet1")
   For Each cell In .Range(.[a1], .[IV1].End(1))
   If cell <> "" Then If Not d.exists(cell) Then d.Add cell, ""
   Next
   .[A11].Validation.Delete
   .[A11].Validation.Add Type:=xlValidateList, Formula1:=Join(d.keys, ",")
End With
End Sub

Sao phải cần đến dictionary vậy Quang Hải? Người ta đâu có nói gì liên quan đến duy nhất đâu

 

[Quang_Hải]

Sao phải cần đến dictionary vậy Quang Hải? Người ta đâu có nói gì liên quan đến duy nhất đâu

Tại dạo này tay nghề cũng khá hơn chút nhưng bị ế ẩm quả nên phải tìm chổ xài nếu không quên mất hết anh ơi.