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

  • Thread starter Hồ Lan
  • Ngày gửi
Hồ Lan

Hồ Lan

Thành viên thân thiết
21/10/05
659
3
18
46
Q8, tpHCM
#1
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

Bình_OverAC

Over Abnormal / Crazy
14/5/04
845
7
18
37
Nha Trang
#2
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?
 
T

thanhvo31

Thành viên sơ cấp
17/7/05
36
0
0
44
Haiphong
#4
Ý 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:
 
T

thanhvo31

Thành viên sơ cấp
17/7/05
36
0
0
44
Haiphong
#5
Đâ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
 
Sửa lần cuối:

Thành viên trực tuyến

  • daongocnam0603
  • xediengiatot

Xem nhiều