Worksheet SelectionChange làm chậm sheet

[kobebryant]

Các anh chị cho mình hỏi: mình có lập một sự kiện SelectionChange trong worksheet. Lệnh này làm mỗi lần mình di chuyển cell trong worksheet rất chậm. Không biết có cách nào để khắc phụ vấn đề này ko ạ. Xin cám ơn

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Range("K9:K" & Range("CuoiBC").Row - 1), Target) Is Nothing And Target.CountLarge = 1 And xFlag = True Then
    Call toShowCombobox
      Else
    If ComboBox1.Visible = True Then ComboBox1.Visible = False
End If
Application.EnableEvents = True
End Sub

 

[BuiQuangThuan]

Các anh chị cho mình hỏi: mình có lập một sự kiện SelectionChange trong worksheet. Lệnh này làm mỗi lần mình di chuyển cell trong worksheet rất chậm. Không biết có cách nào để khắc phụ vấn đề này ko ạ. Xin cám ơn

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Range("K9:K" & Range("CuoiBC").Row - 1), Target) Is Nothing And Target.CountLarge = 1 And xFlag = True Then
    Call toShowCombobox
      Else
    If ComboBox1.Visible = True Then ComboBox1.Visible = False
End If
Application.EnableEvents = True
End Sub

Bỏ sự kiện đó đi là hết anh ạ

 

[kobebryant]

Bỏ sự kiện đó đi là hết anh ạ

Mình có thể viết code để bật tắt sự kiện này ko bạn

 

[Hoàng Tuấn 868]

Bỏ sự kiện đó đi là hết anh ạ

Ca o đờ cờ. ............

 

[VetMini]

ca o đờ cờ. ............

Đờ cờ. Chỉ là ca o bờ tắt mở nờ tờ nờ.

 

[Hoàng Tuấn 868]

Đờ cờ. Chỉ là ca o bờ tắt mở nờ tờ nờ.

Chuẩn luôn anh. .... .. .........

 

[kobebryant]

Đờ cờ. Chỉ là ca o bờ tắt mở nờ tờ nờ.

vậy mình khắc phục được ko anh ơi

 

[VetMini]

vậy mình khắc phục được ko anh ơi

ca o hay không ca o tùy theo mình có nờ tờ nờ.

 

[kobebryant]

ca o hay không ca o tùy theo mình có nờ tờ nờ.

Mọi người viết em đọc ko hiểu lắm ạ

 

[batman1]

Mọi người viết em đọc ko hiểu lắm ạ

Người ta viết gì thì kệ người ta đi. Nhưng nếu là tôi tung một đoạn code lên thì bạn có hiểu rõ nguyên nhân tại sao chậm không hay chỉ là đoán mò? Bạn không biết trong tập tin của tôi có gì, cái gì nó hoạt động như cái phanh ... Nhìn một đoạn code thì cụ của thánh cũng bó tay, chịu khó ở vào vị trí của người khác, chịu khó suy nghĩ đi. Tôi lưu ý thế thôi, không có nghĩa là tôi sẽ giúp ích được gì trong vấn đề của bạn.

Chưa chắc có tập tin mọi người sẽ tìm ra nguyên nhân. Nhưng tôi rất dị ứng với kiểu nói vu vơ vài câu, trích một đoạn code - nhiều khi là một nửa sub / function, tung một cái ảnh lên, rồi cho là mọi người sẽ đoán mò ra được nguyên nhân của vấn đề.