XIN GIÚP ĐỠ VỀ CÁCH LÀM CHỨ NHẤP NHÁY TRONG EXCEL (2 người xem)

[Phạm Diễn]

Mong các cao nhân giúp dùm em với ạ, em muốn tạo hiệu ứng chữ nhâp nháy trong excel
em có xem clip trên youtube rồi mà sao tới lúc lấy code thì không biết lấy ở đâu
Xin các cao nhân giúp dùm ạ, em cám ơn!

 

[phulien1902]

Mong các cao nhân giúp dùm em với ạ, em muốn tạo hiệu ứng chữ nhâp nháy trong excel
em có xem clip trên youtube rồi mà sao tới lúc lấy code thì không biết lấy ở đâu
Xin các cao nhân giúp dùm ạ, em cám ơn!

Code đây:

Public Chay As Double
Sub Nhapnhay()
    If Range("A1") = "TEST CH" & ChrW(7918) & " NH" & ChrW(7844) & _
       "P NHÁY" Then
        If [a1].Font.ColorIndex = 3 Then
            [a1].Font.ColorIndex = 2
        Else
            [a1].Font.ColorIndex = 3
        End If
    End If
    Chay = Now + TimeSerial(0, 0, 1)
    Application.OnTime Chay, "Nhapnhay", , True
End Sub