Vô hiệu hoá tạm thời Private Sub Worksheet_SelectionChange để copy và dán

Liên hệ QC

AnhThu-1976

Thành viên tích cực
Tham gia
17/10/14
Bài viết
1,061
Được thích
175
Chào các anh chị trong diễn đàn
Nếu trong sheet có code
Private Sub Worksheet_SelectionChange
Thì ta không thể dán được
Bình thường em phải vô hiệu hoá tạm thời (bằng cách thêm dấu nháy ' trước code)
Nhưng cách này hơi mất thời gian
cho em hỏi, có cách nào vô hiệu hoá nó tạm thời nhanh không (ví dụ ta check vào chech box)
Em cảm ơn!
 
Thử thêm dòng màu đỏ.
Rich (BB code):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode Then Exit Sub
    ...
    ...
End Sub
 
Upvote 0
Các hàm bẫy sự kiện chỉ chứa code làm việc khi điều kiện rất đơn giản.

Các trường hợp khác, người ta đưa code vào một private function hay sub. Module chứa hàm bẫy sự kiện có thể chứa cả chục private sub's như vậy. Hàm bẫy sự kiện dựa vào điều kiện mà gọi từng hàm tương thích.
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom