Tạo list.

[danhdanh81]

Cho em hỏi một bài như sau:
Em muốn tạo 1 list với điều kiện trong vd;
KHI CHỌN XONG TRONG Ô A2 TỪ Ô B2 TRỞ ĐI PHẢI TẠO 1 LIST KHÔNG CÒN TỒN TẠI GIÁ TRỊ CỦA Ô A2,NỮA

 

[viehoai]

TỪ Ô B2 TRỞ ĐI

Là B2, B3, B4, .. đến mấy?
Hay là B2, C2, ... đến mấy?

TỪ Ô B2 TRỞ ĐI PHẢI TẠO 1 LIST KHÔNG CÒN TỒN TẠI GIÁ TRỊ CỦA Ô A2,NỮA

Là gì vậy ta???

 

[danhdanh81]

Là B2, B3, B4, .. đến mấy?
Hay là B2, C2, ... đến mấy?

Là gì vậy ta???

Tức là nếu ô a2 chọn E thì trong ô B2 phải tạo 1 list không chứa E nữa.
Hoàn toàn tương tự cho ô C3 phải tạo list không chứa các giá trị mà ô A2,B2 đã chọn.

 

[SA_DQ]

Bằng macro sự kiện; bạn xem thêm trong file kèm theo

Các cột sau dành để bạn thử sức trước!

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim Rng As Range, sRng As Range, rW As Long
 
 Set Rng = Range("K2:K9")
 
 If Not Intersect([A2], Target) Is Nothing Then
   Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
   rW = sRng.Row
   Select Case rW
   Case 2
      Rng.Offset(, 1).Value = Rng.Offset(1).Value
   Case 9
      [l2].Resize(8).Value = [k2].Resize(8).Value
   Case Else
      [l2].Resize(rW - 2).Value = [k2].Resize(rW - 2).Value
      sRng.Offset(, 1).Resize(9 - rW).Value = sRng.Offset(1).Resize(9 - rW).Value
   End Select
 End If
 
End Sub

 

[ndu96081631]

Tức là nếu ô a2 chọn E thì trong ô B2 phải tạo 1 list không chứa E nữa.
Hoàn toàn tương tự cho ô C3 phải tạo list không chứa các giá trị mà ô A2,B2 đã chọn.

Mấy bài toàn trích lọc dạng này có đầy trên GPE rồi, định để cho bạn tìm mà cuối cùng bạn vẫn không tìm ra
Thôi thì làm cho bạn đây!
Xem file
Chú ý: Vào menu Insert\Name\Define để xem thêm các công thức khác