Lỗi Application.screenupdating (1 người xem)

[Tường_Vi]

Muội chào các Huynh
muội có đoạn code sau chạy bình thường, không cà giựt gì hết

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo thoat
With Range("N2:N65000")
If Not Intersect(Target, .Cells) Is Nothing Then
    If Target <> "" And Target > 0 Then
        With Target
        .Offset(, 1).ClearContents
        .Offset(, 1) = .Offset(, -6) * Target
        End With
    End If
End If
End With

thoat: Exit Sub

End Sub

Nhưng cũng đoạn code trên, muội cho thêm application.screenupdating (true/false) ở thì màn hình giựt kinh khủng

Tại sao lại là vậy?

 

[Excel Công Cụ Tuyệt Vời Của Bạn]

Muội chào các Huynh
muội có đoạn code sau chạy bình thường, không cà giựt gì hết

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo thoat
With Range("N2:N65000")
If Not Intersect(Target, .Cells) Is Nothing Then
If Target <> "" And Target > 0 Then
With Target
.Offset(, 1).ClearContents
.Offset(, 1) = .Offset(, -6) * Target
End With
End If
End If
End With

thoat: Exit Sub

End Sub

Nhưng cũng đoạn code trên, muội cho thêm application.screenupdating (true/false) ở thì màn hình giựt kinh khủng

Tại sao lại là vậy?

Theo kinh nghiệm của mình thì nếu dùng vòng lặp thì mới dùng đoạn code application.screenupdating (true/false). code trên đâu có gì ảnh hưởng đến màn hình đâu mà dùng.

 

[Tường_Vi]

Theo kinh nghiệm của mình thì nếu dùng vòng lặp thì mới dùng đoạn code application.screenupdating (true/false). code trên đâu có gì ảnh hưởng đến màn hình đâu mà dùng.

Thấy các Huynh thêm code đó vào , muội cũng bắt chước mà không hiểu gì hết.
Cám ơn kaka, thì ra chỉ có vòng lặp mới xài thôi

 

[anhphuong]

Thấy các Huynh thêm code đó vào , muội cũng bắt chước mà không hiểu gì hết.
Cám ơn kaka, thì ra chỉ có vòng lặp mới xài thôi

Màn hình có giật gì đâu
Nhớ để FALSE trước, TRUE sau nhé người