Vấn Đề về code lập trình sự kiện không chạy được. (1 người xem)

[truongquangtrong]

Chào anh/chị.


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:

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!
Xem thêm>>> https://internetvietnam.net/

 

[ndu96081631]

Chào anh/chị.


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:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = [COLOR=#ff0000]"$g$3"[/COLOR] 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!

Chỗ màu đỏ sai. Phải là "$G$3" mới đúng (chữ G viết HOA)