Nhờ các anh/chị chỉ giáo về lỗi chậm cập nhật dữ liệu khi dùng VBA

[giaiphapexcel93@]

Em dùng Code sau để thu gọn các dòng trống dữ liệu trong EXCEL
nhưng khi nhập dữ liệu thì Code không chạy ngay mà mà ấn sang một sheet khác rồi ấn lại sheet đang thực hiện thì dòng mới được ẩn (giống như khi dữ liệu thay đổi thì phải reset lại trang sheet thì mới thực hiện được lệnh)

Private Sub Worksheet_Activate()
Dim Rng As Range
Application.ScreenUpdating = False
For Each Rng In [AA15:AA19]
If Rng.Value <> 0 Then
Rng.EntireRow.Hidden = False
Else
Rng.EntireRow.Hidden = True
End If
Next Rng
Application.ScreenUpdating = True
End Sub

Bài đã được tự động gộp: 25/12/23

File đính kèm

 

[BuiQuangThuan]

Em dùng Code sau để thu gọn các dòng trống dữ liệu trong EXCEL
nhưng khi nhập dữ liệu thì Code không chạy ngay mà mà ấn sang một sheet khác rồi ấn lại sheet đang thực hiện thì dòng mới được ẩn (giống như khi dữ liệu thay đổi thì phải reset lại trang sheet thì mới thực hiện được lệnh)

Private Sub Worksheet_Activate()
Dim Rng As Range
Application.ScreenUpdating = False
For Each Rng In [AA15:AA19]
If Rng.Value <> 0 Then
Rng.EntireRow.Hidden = False
Else
Rng.EntireRow.Hidden = True
End If
Next Rng
Application.ScreenUpdating = True
End Sub

Bài đã được tự động gộp: 25/12/23

File đính kèm

Đang dùng sự kiên này Worksheet_Activate thì kết quả như thế là đúng rồi mà

 

[giaiphapexcel93@]

Đang dùng sự kiên này Worksheet_Activate thì kết quả như thế là đúng rồi mà

Em muốn thay đổi sự kiện thì viết lại như thế nào? Khi giá trị thay đổi là ô tham chiếu từ vùng dữ liệu khác của sheet hoặc sheet khác