Ẩn và hiện các Sheet có điều kiện (1 người xem)

[tvxdgt]

Tôi muốn ẩn Sheet và hiện sheet băng cách viết thêm macro để khi có điều kiện thì sheet một số sheet được hiện ra và ẩn đi. Cụ thể tôi có tải file kèm theo nhờ các bạn trong diễn đàn chỉ giúp.

 

[0905744404]

Tôi muốn ẩn Sheet và hiện sheet băng cách viết thêm macro để khi có điều kiện thì sheet một số sheet được hiện ra và ẩn đi. Cụ thể tôi có tải file kèm theo nhờ các bạn trong diễn đàn chỉ giúp.

Bạn xem file này thử nha, còn ý của bạn minh không hiểu lắm

 

[tvxdgt]

Cảm ơn bạn Hoàng Mạnh Linh, File mà bạn viết macro là bạn tạo button rồi thực hiện gi macro, đây minh muốn viết thêm điều kiện ví dụ khi ô D21=0, tức là trong bảng thống kê không có cống D100 thì khi click command Hien cac Sheet thi sheet D100 không hiện ra còn các cống khác có trong bảng thống kê thì các Sheet tương ứng vẫn hiện ra.

 

[tvxdgt]

Cảm ơn bạn Hoàng Mạnh Linh, File mà bạn viết macro là bạn tạo button rồi thực hiện gi macro, đây minh muốn viết thêm điều kiện ví dụ khi ô D21=0, tức là trong bảng thống kê không có cống D100 thì khi click command Hien cac Sheet thi sheet D100 không hiện ra còn các cống khác có trong bảng thống kê thì các Sheet tương ứng vẫn hiện ra.

 Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then 
   Sheets("sheet1").Visible = (Target <> 0) 
 End If  
If Target.Address = "$A$2" Then   
 Sheets("sheet2").Visible = (Target <> 0) 
 End If  
If Target.Address = "$A$3" Then
    Sheets("sheet3").Visible = (Target <> 0) 
 End If 
 End Sub

Mình viết một đoạn code ẩn sheet có điều kiện mình đưa lên mong các bạn góp ý đoạn code trên.

 

[Tran Mui]

Bạn có thể bổ sung làm sao khi xóa A1 Sheet1 ẩn, khi cần Sheet1 hiện làm thế nào được không, (vì 3 ô này đều trong Sheet1 đã ẩn rồi)

 

[tvxdgt]

Bạn có thể bổ sung làm sao khi xóa A1 Sheet1 ẩn, khi cần Sheet1 hiện làm thế nào được không, (vì 3 ô này đều trong Sheet1 đã ẩn rồi)

Một là bạn có thể tạo một sheet trung gian để ẩn các sheet còn lại, hai là bạn thêm điều kiện ở sheet2 hoặc sheet3 để hiện lại sheet1.

 

[tvxdgt]

Mình tạo được một file hoàn chỉnh về điều kiện ẩn và hiện các sheet mong muốn, minh đưa lên để bạn tham khảo và mong góp ý kiến thêm