Nhập giá trị để ẩn hiện sheet (2 người xem)

[Pon1]

chào các anh chị,
nhờ các anh chị giúp:
em đang quản lý file nầy:
nếu như em nhập giá trị 1500 vào ô H16 thì: sheet load test của em sẽ ẩn, các sheet còn lại vẩn hiện không bị ẩn đi.

nếu như em nhập giá trị 1800 vào ô H16 thì: sheet load test (wn) của em sẽ ẩn, các sheet còn lại vẩn hiện không bị ẩn đi.

còn nếu em không nhập giá trị nào thì tất cả các sheet đều hiện hết.

mong các anh chị giúp em với.
xin chân thành cám ơn ạ.

 

[VMH0307]

chào các anh chị,
nhờ các anh chị giúp:
em đang quản lý file nầy:
nếu như em nhập giá trị 1500 vào ô H16 thì: sheet load test của em sẽ ẩn, các sheet còn lại vẩn hiện không bị ẩn đi.

nếu như em nhập giá trị 1800 vào ô H16 thì: sheet load test (wn) của em sẽ ẩn, các sheet còn lại vẩn hiện không bị ẩn đi.

còn nếu em không nhập giá trị nào thì tất cả các sheet đều hiện hết.

mong các anh chị giúp em với.
xin chân thành cám ơn ạ.

Bạn thử code này với Sheet test record xem

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, [H16]) Is Nothing Then
If [H16] = 1500 Then
Sheets("Load Test").Visible = False
Sheets("Load Test (wn)").Visible = True
ElseIf [H16] = 1800 Then
Sheets("Load Test (wn)").Visible = False
Sheets("Load Test").Visible = True
Else
Sheets("Load Test (wn)").Visible = True
Sheets("Load Test").Visible = True
End If
End If
End Sub

 

[Pon1]

Bạn thử code này với Sheet test record xem

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, [H16]) Is Nothing Then
If [H16] = 1500 Then
Sheets("Load Test").Visible = False
Sheets("Load Test (wn)").Visible = True
ElseIf [H16] = 1800 Then
Sheets("Load Test (wn)").Visible = False
Sheets("Load Test").Visible = True
Else
Sheets("Load Test (wn)").Visible = True
Sheets("Load Test").Visible = True
End If
End If
End Sub

thank anh,

anh cho em hỏi :
nếu như em không nhập giá trị 1500 mà là nhập dòng ký tự hay số bất kỳ vào ô H16 thì: sheet load test của em sẽ ẩn, các sheet còn lại vẩn hiện không bị ẩn đi.

còn nếu em không nhập giá trị hay ký tự nào thì tất cả các sheet đều hiện hết.

có sử dụng code trên được không anh?

cám ơn anh.