Sự kiện đổi màu nền và màu chữ một một địa chỉ ô được chỉ định ?

[Nguyễn Khả Nam]

Chào các bạn,

Mình đang tạo một sự kiện để thay đổi màu nền và màu chữ của một ô được chỉ định, ví dụ ô B2 trong sheet1.
Tuy nhiên, mình cảm thấy code chạy chưa được mượt (vẫn còn hiện tượng giật giật), đôi lúc bị lỗi xung đột nào đó mà không rõ nguyên nhân.
Bạn nào biết cách xử lý vấn đề này có thể giúp mình được không?

Mình rất cảm ơn sự giúp đỡ của các bạn!

 

[Mr.hieudoanxd]

Thử API xem anh Nam

 

[Hoàng Tuấn 868]

Thử API xem anh Nam

Cái này chạy vẫn giật giật nhỉ.

 

[Mr.hieudoanxd]

Cái này chạy vẫn giật giật nhỉ.

Bỏ luôn Application.screenupdateting thi không giật nữa.

 

[Hoàng Tuấn 868]

Bỏ luôn Application.screenupdateting thi không giật nữa.

Hết giật luôn, nhưng không hiểu bạn này đổi mầu như thế cho việc gì nhỉ, mình nhìn hoa mắt quá.

 

[Nguyễn Khả Nam]

Thử API xem anh Nam

Cảm ơn Hiểu, giờ anh mới xem API lợi hại thật tiếc là anh không còn gì trong đầu

Hết giật luôn, nhưng không hiểu bạn này đổi mầu như thế cho việc gì nhỉ, mình nhìn hoa mắt quá.

hihi chỉ là vui thôi ạ, cảm ơn bạn quan tâm.

 

[Mr.hieudoanxd]

Cảm ơn Hiểu, giờ anh mới xem API lợi hại thật tiếc là anh không còn gì trong đầu

hihi chỉ là vui thôi ạ, cảm ơn bạn quan tâm.

Em thì gần vơi gần hết Class, mỗi lần động tới lại phải vào xem lại. Bác thì bài nào cũng thấy Class á.

 

[HeSanbi]

Đừng trót sử dụng API Timer vào việc này. Tiêu khiển thế này lợi bất cập hại.
Tỉ lệ xung đột xảy ra là 90%. Khả năng sập ứng dụng bất kể khi nào.

Thử bật lên, nhấn một ô để nhập liệu.

 

[Nguyễn Khả Nam]

Cảm ơn anh, nhờ anh chỉ thêm cách hay.

 

[HeSanbi]

Thử tận dụng Events CommandBars với CommandBars_OnUpdate trong lớp xem sao.

Nếu bạn thay đổi 1 nút không sử dụng đến trong Ribbon sự kiện này sẽ được gọi. Kiểu như Enabled = Not Enabled

Bạn phải biết cách phát hiện người dùng nhấn sửa ô Excel.

 

[Nguyễn Khả Nam]

Thử tận dụng Events CommandBars với CommandBars_OnUpdate trong lớp xem sao.

Nếu bạn thay đổi 1 nút không sử dụng đến trong Ribbon sự kiện này sẽ được gọi. Kiểu như Enabled = Not Enabled

Bạn phải biết cách phát hiện người dùng nhấn sửa ô Excel.

Cảm ơn anh đã chỉ, anh có thể tạo và đính kèm file ví dụ không ?

 

[HeSanbi]

Bạn có thể tham khảo khởi tạo sự kiện CommandBars

Private WithEvents cmbrs As CommandBars
Private Sub Class_Initialize()
    Set cmbrs = Application.CommandBars
End Sub
Private Sub Class_Terminate()
    Set cmbrs = Nothing
End Sub
Private Sub  DoiMau()
     ' Xác định lượng thời gian dừng, độ trễ thời gian để thực hiện đổi màu giữa mỗi nhịp
     If [Hết thời gian] Then set cmbrs = nothing
End Sub
Private Sub cmbrs_OnUpdate()
    DoiMau
    With Application.CommandBars.FindControl(id:=2040)
        .Enabled = Not .Enabled
    End With
End Sub