Nhờ chỉnh code để code xử lý nhanh hơn (1 người xem)

[khoa289]

Chào anh/chị
Nhờ anh chị giúp chỉnh sửa code xử lý nhanh hơn(Code hiện tại xử lý chậm và nhấp nháy màn hình)
Đính kèm file.
Cám ơn

 

[nlbx]

code nhanh mà bạn. thêm Application.Calculation thành manul và auto vào nữa xem sao.

 

[giaiphap]

Chào anh/chị
Nhờ anh chị giúp chỉnh sửa code xử lý nhanh hơn(Code hiện tại xử lý chậm và nhấp nháy màn hình)
Đính kèm file.
Cám ơn

Tôi thấy cũng nhanh rồi, nhưng muốn nhanh hơn chút thì sửa vầy.

Sub HOPDONGPLHD()
'
' HOPDONGPLHD Macro
'
Application.DisplayAlerts = False
Application.ScreenUpdating = False
    Columns("S:dd").EntireColumn.Hidden = True
    Columns("E:r").EntireColumn.Hidden = False
Range("d65500").End(xlUp).Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Sub BAOLANHHD()
'
' BAOLANHHD Macro
'
Application.DisplayAlerts = False
Application.ScreenUpdating = False
    Columns("e:eu").EntireColumn.Hidden = True
    Columns("s:ac").EntireColumn.Hidden = False
Range("d65500").End(xlUp).Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub