Mong các anh chị GPE giúp hoàn thiện code! (1 người xem)

[banhchuoichien]

Em có 1 code lập trình sự kiện mà không chạy được mong các anh chị coi giúp:
Code
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$g$3" Then
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If Sheet1.[g3] = 1 Then
Sheet3.Visible = -1
Else
If Sheet3.Visible = -1 Then Sheet3.Visible = 2
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End If
End Sub
Mục đích code là nếu G3 =1 thì hiện file sheet3, nếu không phải 1 thì ẩn very hidden. Mong mọi người giúp gấp, em đang cần code này để hoàn thiện dự án.
Trân trọng cảm ơn!

 

[Quang_Hải]

Em có 1 code lập trình sự kiện mà không chạy được mong các anh chị coi giúp:
Code
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$g$3" Then
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If Sheet1.[g3] = 1 Then
Sheet3.Visible = -1
Else
If Sheet3.Visible = -1 Then Sheet3.Visible = 2
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End If
End Sub
Mục đích code là nếu G3 =1 thì hiện file sheet3, nếu không phải 1 thì ẩn very hidden. Mong mọi người giúp gấp, em đang cần code này để hoàn thiện dự án.
Trân trọng cảm ơn!

Thử thế này

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$3" Then Sheet3.Visible = Target = 1
End Sub