Nhấp nháy màu khi hiển thị ô , . . . (1 người xem)

[nqdn2010]

Giả sử tôi có 1 sheet, Ở ô D2 có cô thức hiện thị các ô ở cột B. Khi Ô D2 hiện thị B2 thì Ô B2 nhấp nháy màu; Khi Ô D2 hiện thị B3 thì Ô B3 nhấp nháy màu, Ô B2 dừng.
Nếu Ô D2 hiện thị bất kỳ ô nào thì Ô đó nhấp nháy màu càng tốt.
Nhờ mọi người chia sẽ!
Chủ nhật an vui!

 

[ndu96081631]

Giả sử tôi có 1 sheet, Ở ô D2 có cô thức hiện thị các ô ở cột B. Khi Ô D2 hiện thị B2 thì Ô B2 nhấp nháy màu; Khi Ô D2 hiện thị B3 thì Ô B3 nhấp nháy màu, Ô B2 dừng.
Nếu Ô D2 hiện thị bất kỳ ô nào thì Ô đó nhấp nháy màu càng tốt.
Nhờ mọi người chia sẽ!
Chủ nhật an vui!

Mặc dù làm được nhưng tôi thấy yêu cầu này rất.. TÀO LAO ---> Chẳng ích gì cả

 

[nqdn2010]

Mặc dù làm được nhưng tôi thấy yêu cầu này rất.. TÀO LAO ---> Chẳng ích gì cả

Anh ndu! Mở Topic có anh trả lời em rất thích! (Không biết điều gì đó)!
Tào lao đối với anh, nhưng sự kiện đối với người khác.
Vd:
1. Anh Ndu Dạy học sinh khiếm thị, màu sắc là điều diễn tả.
2. Điều anh Ndu làm được là niềm vui của em ( Vì học hỏi là niềm vui).
3. Điều anh Ndu làm được dù nhỏ nhoi đối với người này nhưng lại quý báu đối với người khác.
4. Công việc mọi người khác nhau, nhưng mục đích đều là cái chung.
Mong em có kiến thức như anh.

CHIA SẼ NHÉ ANH ndu96081631!

 

[hungpecc1]

Giả sử tôi có 1 sheet, Ở ô D2 có cô thức hiện thị các ô ở cột B. Khi Ô D2 hiện thị B2 thì Ô B2 nhấp nháy màu; Khi Ô D2 hiện thị B3 thì Ô B3 nhấp nháy màu, Ô B2 dừng.
Nếu Ô D2 hiện thị bất kỳ ô nào thì Ô đó nhấp nháy màu càng tốt.
Nhờ mọi người chia sẽ!
Chủ nhật an vui!

Cho hỏi : Mục đích " Màu mè " này bạn dùng để làm gì? <--- thôi thì cũng tặng bạn 1 file để bạn tham khảo !

 

[nqdn2010]

Cho hỏi : Mục đích " Màu mè " này bạn dùng để làm gì? <--- thôi thì cũng tặng bạn 1 file để bạn tham khảo !

Ý tôi là, khi mình lệnh chỉ định Ô nào bị sai, cần phải sửa lại ô đó, chính Ô đó nhấp nháy để người ta dể nhìn ra và sửa chữa lại ô đó.
Anh giúp tôi điều nữa nhe, Khi ô nhấp nháy mình click chuột vào thì nó dừng nhấp nháy và Ô D2 có thể câu lệnh hiển thị ô bất kỳ. Khi ô D2 thay đổi không cần click chuột ô nhấp nháy vẫn thay đổi.
VD: Ô D2 tôi viết câu lệnh (If(M1="";"M1";"M2") vậy khi Ô M1 rỗng thì Ô M1 nhấp nháy, còn Ô M1<>"" (Khi mình nhập liệu vào) thì tự động ô M2 nhấp nháy không cần Click vào ô D2 lần nữa.
Cám ơn sự chia sẽ của bạn!

 

[ndu96081631]

Cho hỏi : Mục đích " Màu mè " này bạn dùng để làm gì? <--- thôi thì cũng tặng bạn 1 file để bạn tham khảo !

Mấy trò này nói khó không khó (nhưng cũng không dễ)
Tóm lại: Bạn dùng hàm API Settimer và KilTimer sẽ giải quyết được mọi chuyện
(Tôi đã làm những dạng tương tự cả vài chục lần rồi ---> Chán, hổng muốn làm tiếp)
Các bạn tự nghiên cứu đi

 

[hungpecc1]

Mấy trò này nói khó không khó (nhưng cũng không dễ)
Tóm lại: Bạn dùng hàm API Settimer và KilTimer sẽ giải quyết được mọi chuyện
(Tôi đã làm những dạng tương tự cả vài chục lần rồi ---> Chán, hổng muốn làm tiếp)
Các bạn tự nghiên cứu đi

Cảm ơn anh đã chỉ điểm cho em món " đồ chơi " màu mè mới --> cái này " ngon " hơn dùng DoEnvents !

Ý tôi là, khi mình lệnh chỉ định Ô nào bị sai, cần phải sửa lại ô đó, chính Ô đó nhấp nháy để người ta dể nhìn ra và sửa chữa lại ô đó.
Anh giúp tôi điều nữa nhe, Khi ô nhấp nháy mình click chuột vào thì nó dừng nhấp nháy và Ô D2 có thể câu lệnh hiển thị ô bất kỳ. Khi ô D2 thay đổi không cần click chuột ô nhấp nháy vẫn thay đổi.
VD: Ô D2 tôi viết câu lệnh (If(M1="";"M1";"M2") vậy khi Ô M1 rỗng thì Ô M1 nhấp nháy, còn Ô M1<>"" (Khi mình nhập liệu vào) thì tự động ô M2 nhấp nháy không cần Click vào ô D2 lần nữa.
Cám ơn sự chia sẽ của bạn!

Bạn tham khảo file đính kèm ! rồi tự vọc thêm , cách sử dụng như sau :
*Nhập địa chỉ vào ô D1 --> muốn dừng thì clipdouble vào ô đang " nhấp nháy "
*Để tiếp tục thì clip đúp vào ô D1 !

 

[ndu96081631]

Cảm ơn anh đã chỉ điểm cho em món " đồ chơi " màu mè mới --> cái này " ngon " hơn dùng DoEnvents !



Bạn tham khảo file đính kèm ! rồi tự vọc thêm , cách sử dụng như sau :
*Nhập địa chỉ vào ô D1 --> muốn dừng thì clipdouble vào ô đang " nhấp nháy "
*Để tiếp tục thì clip đúp vào ô D1 !

Cái Function GPE trong file của bạn nên viết cho đầy đủ thế này:

Private Function TimeProc(ByVal H As Long, ByVal nMSG As Long, ByVal nID As Long, ByVal nTsys As Long)

Tức có tham số đàng hoàng
Tôi chẳng thể giải thích tại sao lại cần như vậy (vì tôi cũng đang học) nhưng qua kinh nghiệm dùng mấy hàm này, tôi thấy rằng nếu không viết rõ ràng thì sẽ có 1 lúc nào đó file bị lỗi nghiêm trọng rồi tự đóng lại luôn
Ngoài ra nên suy nghĩ thật kỹ những lỗi có thể xảy ra (chẳng hạn Set rng = Range([D1].Value) mà cell D1 lại chứa text tào lao gì đó) ---> Vì mấy hàm SetTimer, KillTimer này dùng ngon nhưng cũng khá nguy hiểm ---> Lỗi xuất hiện là "tiêu" luôn
------------------------------
Thêm nữa: thời gian nên đặt dài dài chút, ít ra cũng cở 500 (1/2 giây). Gì mà có 120, nó chớp loạn cả lên (nhìn nhức mắt quá)

 

[nqdn2010]

Cái Function GPE trong file của bạn nên viết cho đầy đủ thế này:

Private Function TimeProc(ByVal H As Long, ByVal nMSG As Long, ByVal nID As Long, ByVal nTsys As Long)

Tức có tham số đàng hoàng
Tôi chẳng thể giải thích tại sao lại cần như vậy (vì tôi cũng đang học) nhưng qua kinh nghiệm dùng mấy hàm này, tôi thấy rằng nếu không viết rõ ràng thì sẽ có 1 lúc nào đó file bị lỗi nghiêm trọng rồi tự đóng lại luôn
Ngoài ra nên suy nghĩ thật kỹ những lỗi có thể xảy ra (chẳng hạn Set rng = Range([D1].Value) mà cell D1 lại chứa text tào lao gì đó) ---> Vì mấy hàm SetTimer, KillTimer này dùng ngon nhưng cũng khá nguy hiểm ---> Lỗi xuất hiện là "tiêu" luôn
------------------------------
Thêm nữa: thời gian nên đặt dài dài chút, ít ra cũng cở 500 (1/2 giây). Gì mà có 120, nó chớp loạn cả lên (nhìn nhức mắt quá)

Cám ơn anh đã chỉ giáo!

Bạn tham khảo file đính kèm ! rồi tự vọc thêm , cách sử dụng như sau :
*Nhập địa chỉ vào ô D1 --> muốn dừng thì clipdouble vào ô đang " nhấp nháy "
*Để tiếp tục thì clip đúp vào ô D1 !

Tôi đã áp dụng vào công việc hiên giờ chạy rất ổn và hiệu quả.
Cám ơn sự giúp đở nhiệt tình của anh!
Chúc các anh vui khỏe, để chỉ giáo mấy em nhiều, nhiều!

 

[hungpecc1]

Cám ơn anh đã chỉ giáo!

Tôi đã áp dụng vào công việc hiên giờ chạy rất ổn và hiệu quả.
Cám ơn sự giúp đở nhiệt tình của anh!
Chúc các anh vui khỏe, để chỉ giáo mấy em nhiều, nhiều!

Bạn nên ngâm cứu thật ký câu này của anh ndu nhé !

Ngoài ra nên suy nghĩ thật kỹ những lỗi có thể xảy ra (chẳng hạn Set rng = Range([D1].Value) mà cell D1 lại chứa text tào lao gì đó) ---> Vì mấy hàm SetTimer, KillTimer này dùng ngon nhưng cũng khá nguy hiểm ---> Lỗi xuất hiện là "tiêu" luôn

ĐỌC KỸ HƯỚNG DẪN SỬ DỤNG TRƯỚC KHI DÙNG !