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

Thảo luận trong 'Ứng dụng Excel' bắt đầu bởi Hồ Lan, 11 Tháng mười một 2005.

14,795 lượt xem

  1. Hồ Lan

    Hồ Lan Thành viên thân thiết

    Bài viết:
    659
    Đã được thích:
    3
    Nơi ở:
    Q8, tpHCM
    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:
     
    #1
  2. Bình_OverAC

    Bình_OverAC Over Abnormal / Crazy

    Bài viết:
    845
    Đã được thích:
    7
    Nơi ở:
    Nha Trang
    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?
     
    #2
  3. Tuanktcdcn

    Tuanktcdcn Lão già ham vui

    Bài viết:
    548
    Đã được thích:
    50
    Nơi ở:
    Hà Nội
    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.
     
    #3
  4. thanhvo31

    thanhvo31 Thành viên sơ cấp

    Bài viết:
    36
    Đã được thích:
    0
    Nơi ở:
    Haiphong
    Ý 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:
     
    #4
  5. thanhvo31

    thanhvo31 Thành viên sơ cấp

    Bài viết:
    36
    Đã được thích:
    0
    Nơi ở:
    Haiphong
    Đâ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
     
    Last edited: 11 Tháng mười một 2005
    #5

Chia sẻ trang này