Làm sao để một ô có thể nhấp nháy

[ST-Lu!]

Chào các anh

Có cách nào để một ô luôn nhấp nháy không. Ý của em là màu của nó bị thay đổi liên tục ấy
-------
Mục tiêu của em là người làm tập trung vào ô ấy

cám ơn các anh

 

[ChanhTQ@]

Chào các anh Có cách nào để một ô luôn nhấp nháy không. Ý của em là màu của nó bị thay đổi liên tục ấy -----
Mục tiêu của em là người làm tập trung vào ô ấy Cám ơn các anh

Được bạn à, nhưng khi đó trang tính của bạn khó có thể làm được việc gì khác thì sao đây?
Chẳng lẽ chỉ để nhấp nháy vài ô không thôi sao?

 

[hoangdanh282vn]

Chào các anh

Có cách nào để một ô luôn nhấp nháy không. Ý của em là màu của nó bị thay đổi liên tục ấy
-------
Mục tiêu của em là người làm tập trung vào ô ấy

cám ơn các anh

Bạn xem thử code nay nha :

Sub Tomau()
If [A1].Interior.ColorIndex = 3 Then
[A1].Interior.ColorIndex = 5
ElseIf [A1].Interior.ColorIndex = 5 Then
[A1].Interior.ColorIndex = 3
End If
Time
End Sub

Sub Time()
Application.OnTime Now + TimeValue("00:00:01"), "Tomau"
End Sub

 

[daminhlt]

Bạn đưa doan code cua hoangdanh282vn vào Thisworkbook khi mở ra sẽ chạy được

Private Sub Workbook_Open()
If [A1].Interior.ColorIndex = 3 Then
[A1].Interior.ColorIndex = 5
ElseIf [A1].Interior.ColorIndex = 5 Then
[A1].Interior.ColorIndex = 3
End If
Time
End Sub

 

[ST-Lu!]

Cám ơn code của Hoàng danh

Mình áp dụng code trên nhưng khi đóng file thì không được, file thời gian file thây đổi trong phậm vi 1 s

Hoàng Danh xem lại giúp nhé

 

[anhtuan1066]

Xem thử file này thế nào nhé!
Trong file, khi bạn đổi giá trị tại A1 thành 1 thì A1 sẽ nhấp nháy!
Bạn có thể chỉnh lại điều kiện cho phù hợp với ý đồ riêng
Mến
ANH TUẤN

 

[kieuhuy_bmt]

Gửi anh Tuấn

Xem thử file này thế nào nhé!
Trong file, khi bạn đổi giá trị tại A1 thành 1 thì A1 sẽ nhấp nháy!
Bạn có thể chỉnh lại điều kiện cho phù hợp với ý đồ riêng
Mến
ANH TUẤN

Tôi chạy, nó báo như sau, vậy phải xử lý thế nào?

 

[Po_Pikachu]

File đó đâu có vấn đề gì đâu nhỉ? Bạn tải lại link của mình xem. File: http://www.mediafire.com/?ntghymzqom3 @AnhTuan1066: Bác nên đặt biến CellCheck trong Module để nó có thể lưu được thông số True/False nha! Thân.

 

[ST-Lu!]

Cám ơn Anh Tuan
File của anh đúng theo ý đồ của em

 

[hoangdanh282vn]

Gửi các bạn thêm 1 cách. Tự động tô màu nhấp nháy vùng (ô) đang được chọn.