Xin giúp đỡ về VBA tự hide row hoặc unhide row (1 người xem)

[tieulatba]

Em có 1 file như sau, nhưng muốn giá trị tại ô H1 là 1 công thức thì phải làm sao. Các cao nhân chỉ giáo với

 

[tieulatba]

VD tại ô H1 ta điền giá trị =Z1 khi Z1 bằng 0 thì ẩn dòng 15, khi Z1 khác 0 thì hiện dòng 15 ạ

 

[tieulatba]

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([H1], Target) Is Nothing Then
Rows("15:15").EntireRow.Hidden = [G15].Value = 0
End If
End Sub
Đoạn code em đang xài, H1 là 1 giá trị bất kỳ thì dòng 15 ẩn, nhưng khi gán nó bằng 1 công thức thì dòng 15 ko ẩn

 

[hoaithanhe]

Mình học hỏi thêm được nhiều điều từ bài viết của các bạn. Chúc các bạn luôn thành công