Ẩn hiện cột tự động (1 người xem)

[duongnamdao]

Khi chọn giá trị 1 ô trong danh sách thì chỉ có cột chứa giá trị đó hiện, các cột chứa giá trị khác trong danh sách ẩn đi. Các bác xem file rồi giúp em với. Cám ơn các bác nhiều !

 

[fdwin2003]

Tat ca deu co the lam duoc, tuy nhien hoi kho.

 

[duongnamdao]

Em nghĩ mãi chưa ra. Bác nghiên cứu hộ em với nha. Chờ tin bác !

 

[GheNong]

Bác duongnamdao thân mến, tiện đây bác có thể chỉ cho em biết cách tạo dữ liệu kiểu như ô F2 của bác, cho phép chọn những giá trị (A, B, C, D)
Thank bác nhiều !!!

 

[duongnamdao]

Tại ô F2, bạn vào Data, Validation. tại tab Settings, mục Allow chọn List. Mục Source nhập =$B$3:$E$3. Nhấn OK là được

 

[sealand]

Bạn chọn thay đổi f2 xem sao?

 

[duongnamdao]

Cám ơn bác sealand nhiều. Nhưng nếu ô F2 để trống thì các cột B,C,D,E đều ẩn. Em muốn khi ô F2 để trống thì không có cột nào ẩn cả. Bác hộ em với nha

 

[ndu96081631]

Bạn chọn thay đổi f2 xem sao?

Cái này không cần vòng lập đâu anh ---> Dùng Find Method là đủ rồi
-------------------

Cám ơn bác sealand nhiều. Nhưng nếu ô F2 để trống thì các cột B,C,D,E đều ẩn. Em muốn khi ô F2 để trống thì không có cột nào ẩn cả. Bác hộ em với nha

Sửa code lại thế này nhé:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$F$2" Then
    On Error Resume Next
    With Sheet1.Range("B3:E3")
      .EntireColumn.Hidden = Not .Find(Target, LookAt:=xlWhole) Is Nothing
      .Find(Target, LookAt:=xlWhole).EntireColumn.Hidden = False
    End With
  End If
End Sub

Quá đơn giản, đúng không?

 

[vqgiap]

PHP Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$2" Then
On Error Resume Next
With Sheet1.Range("B3:E3")
.EntireColumn.Hidden = Not .Find(Target, LookAt:=xlWhole) Is Nothing
.Find(Target, LookAt:=xlWhole).EntireColumn.Hidden = False
End With
End If
End Sub




Chào anh ndu96081631

, sao copy Code trên vào file excel khác nó không chạy, nhờ anh hướng dẫn giúp.
xin cảm ơn