Chữ và số nhấp nháy trong excel

[Hồ Lan]

Các Bác ơi !

Giúp tôi với, tôi muốn sếp chú ý tới diễn giải, nội dung và số tiền về những khoản đặc biệt (gởi bằng email) mà tôi không muốn in đậm, khác màu, tôi chỉ muốn khi mở ra thì nó nhấp nháy như bên work. Bác nào biết xin chỉ dùm.
Cám ơn !:0frown:

 

[Bình_OverAC]

Chào bác! Em muốn hỏi thêm là nhấp nháy là như thế nào? Màu chữ thay đổi, màu nền của ô thay đổi hay như thế nào?

 

[Tuanktcdcn]

Vụ này phải phải dùng VBA thôi, nhưng không đáng để vất vả như vậy. Bạn cứ để màu nổi lên là được rồi.

 

[thanhvo31]

Ý bạn là muốn xếp bị ngất xỉu hả??
Có cần phải đi cấp cứu ngay không?
Theo tôi, nên đưa vào Powerpoint, chọn hiệu ứng có như đạn bắn ấy "Typewriter" thì phải!
:lol:

Đùa chút xíu thôi, câu hỏi của bạn rất hay. Tôi thử tìm mãi chưa có câu trả lời
Nhưng ý tưởng của tôi thế này ( nếu thực sự không còn cách nào khác để gây ấn tượng với xếp)
Dùng Macro, ghi lại những hiệu ứng thay đổi, VD đổi font, màu , pattern..
Đưa nó vào auto_open, cho nó 1 vòng lặp, chỉ thoat ra khi nhấn phím chẳng hạn!

Chúc bạn chóng thành xếp để các NV của bạn được ...khổ:lol:

 

[thanhvo31]

Đây là kết quả thử nghiệm, tôi ko gửi file đính kèm được
'ở trong modul , đoạn này được Recorded, hơi bị thô, cần tinh chỉnh
sub Macro2()
'A1 là nội dung muốn tạo hiệu ứng
Range("A1").Select
Selection.Font.ColorIndex = 3
Selection.Font.ColorIndex = 3
Selection.Font.ColorIndex = 49
Selection.Font.ColorIndex = 7
Selection.Font.ColorIndex = 51
Range("A1").Select
With Selection.Interior
.ColorIndex = 46
.Pattern = xlGray8
.PatternColorIndex = xlAutomatic
End With
End Sub

'ở trong code của thisworkbook
Private Sub Workbook_Open()
Do
t = t + 1
Macro2
Loop Until t = 300
End Sub