Ẩn hiện Sheet có điều kiện.

[Manhhungstone]

Nhờ mọi người hướng dẫn có cách nào ẩn hiện sheet có điều kiện. mình kèm theo File nhờ mọi người hướng dẫn giùm/ xin cảm ơn nhiều

 

[streetjoker]

cho em hỏi code để ẩn và hiện các chart như thế nào a
có 1 macro

Sub bang2()
'


'
Range("H15").GoalSeek goal:=0, ChangingCell:=Range("C15")
End Sub

giờ em đang ở 1 sheet1, macro kia thực hiện ở sheet2
em muốn tạo 1 nút để khi bấm vào thì sheet 2 hiện lên và thực hiện luôn câu lênh trên được ko a ?
p/s
trên chart, muốn tạo nút để back về 1 sheet nào đấy thì làm như thế nào a
trên sheet 1 có 1 button link tới sheet2, sheet 2 có 1 button link tới chart 3
vậy code như nào để khi ấn button 1 thì sheet2 hiện, sheet 1 và chart 3 ẩn,
khi ấn button 2 thì chart3 hiện sheet 1 &2 ẩn
thanks all

 

[anhtotbung35]

Dùng Button ngon hơn!
Code trong Module

Sub LinkToSh()
With Sheets(ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text)
.Visible = True: .Select
End With
End Sub

Code cho sheet TrangChu

Private Sub Worksheet_Activate()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> "TrangChu" Then Sh.Visible = False
Next
End Sub

Gửi anh Ndu
Bài này làm button thì mình đã làm được rồi, nhưng mình lỡ làm một file khi mở file thì load Form điều khiển. Mình muốn làm tương tự như bài này, khi mở file lên thì toàn bộ các sheets đều ẩn chỉ còn lại mỗi cái Form điều khiển, khi Click vào Sheet A nào thì Sheet A hiện ra, còn Sheet B và Sheet C ẩn đi. Tương tự Click vào Sheet B thì chỉ mỗi Sheet B hiện ra. Dĩ nhiên là khi mở file load Form lên các Sheet ẩn đi, nhưng khi nhập dữ liệu từ Form vào Sheet thì Sheet đó vẫn cập nhật được dữ liệu. Mình có file đính kèm để Anh sửa dùm code lên file cho nhanh. Cảm ơn trước nhé.