Tạo nhấp nháy cho Cell (1 người xem)

[Thaiduc]

Viết code nào trong VBA để tạo nhấp nháy (hiện, ẩn) liên tục cho chữ trong cell.
Ví dụ: Cell A1 là "GIẢI PHÁP EXCELL" khi mở Sheet1 thì Cell A1 chữ "GIẢI PHÁP EXCEL" nhấp nháy (không cần nút lệnh). Thay vì dòng chữ "GIẢI PHÁP EXCEL" chạy như trong diễn đàn.
Nhờ các sư huynh ra tay. Cám ơn!

 

[huuthang_bd]

Viết code nào trong VBA để tạo nhấp nháy (hiện, ẩn) liên tục cho chữ trong cell.
Ví dụ: Cell A1 là "GIẢI PHÁP EXCELL" khi mở Sheet1 thì Cell A1 chữ "GIẢI PHÁP EXCEL" nhấp nháy (không cần nút lệnh). Thay vì dòng chữ "GIẢI PHÁP EXCEL" chạy như trong diễn đàn.
Nhờ các sư huynh ra tay. Cám ơn!

Làm chơi thôi chứ tôi nghĩ chẳng ứng dụng gì được. Bạn xem file. Tải file về mở lên và chọn Sheet1 để xem hiệu ứng.

 

[Thaiduc]

Đúng là làm cho biết hết tính năng động của VBA. Rất cám ơn.
Không có gì là không thể, chỉ có cái mà mình chưa biết hoặc không biết, phải không huuthang_bd

 

[ptm0412]

Nhấp nháy không bằng lấp lánh:

Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
Private Sub Worksheet_Activate()
Dim Str As String
Str = "Gi" & ChrW(7843) & "i pháp Excel - Công c" & ChrW(7909) & " tuy" & ChrW(7879) & "t v" & ChrW(7901) & "i c" & ChrW(7911) & "a b" & ChrW(7841) & "n"
Application.Calculation = xlCalculationManual
[A1].Value = Str
Do
DoEvents
For i = 10 To 15
    [A1].Font.ColorIndex = i
    Sleep 250
Next
Loop
Application.Calculation = xlCalculationAutomatic
End Sub

Tuy nhiên, cũng như huuthang nói: Chỉ chơi thôi.

 

[ndu96081631]

Làm chơi thôi chứ tôi nghĩ chẳng ứng dụng gì được. Bạn xem file. Tải file về mở lên và chọn Sheet1 để xem hiệu ứng.

Dùng Sleep không được đâu Thắng à
Để đơn giản, có thể dùng Ontime thế này:

Dim dT As Double, bChk As Boolean
Sub StartFlicker()
  dT = Now + TimeValue("00:00:01")
  Application.OnTime dT, "Reset"
End Sub

Sub Reset()
  bChk = Not bChk
  Sheet1.Range("A1").Font.Color = IIf(bChk, vbWhite, vbBlack)
  Call StartFlicker
End Sub

Sub StopFlicker()
  On Error Resume Next
  Application.OnTime dT, "Reset", , False
  Sheet1.Range("A1").Font.Color = vbBlack
End Sub

Với cell A1 ta gõ sẵn text nào đó
Code này chạy với chu kỳ 1s. Nếu muốn nhấp nháy nhanh hơn, ta dùng hàm API SetTimer và KillTimer

 

[huuthang_bd]

Dùng Sleep không được đâu Thắng à
Để đơn giản, có thể dùng Ontime thế này:

Dim dT As Double, bChk As Boolean
Sub StartFlicker()
  dT = Now + TimeValue("00:00:01")
  Application.OnTime dT, "Reset"
End Sub

Sub Reset()
  bChk = Not bChk
  Sheet1.Range("A1").Font.Color = IIf(bChk, vbWhite, vbBlack)
  Call StartFlicker
End Sub

Sub StopFlicker()
  On Error Resume Next
  Application.OnTime dT, "Reset", , False
  Sheet1.Range("A1").Font.Color = vbBlack
End Sub

Với cell A1 ta gõ sẵn text nào đó
Code này chạy với chu kỳ 1s. Nếu muốn nhấp nháy nhanh hơn, ta dùng hàm API SetTimer và KillTimer

Thì làm xem chơi thôi chứ đâu có ứng dụng gì đâu anh . Nếu đưa vào Sheet làm việc thì không thể dùng Sleep được.

 

[Thaiduc]

Anh ndu thân mến, sao không thấy anh giúp mình "Code viết tắc cho Form nhập dữ liệu giống như Autocorrect".
Rất mong anh.

 

[dungvccb]

Tạo nhấp nháy cho một cell

Viết code nào trong VBA để tạo nhấp nháy (hiện, ẩn) liên tục cho chữ trong cell.
Ví dụ: Cell A1 là "GIẢI PHÁP EXCELL" khi mở Sheet1 thì Cell A1 chữ "GIẢI PHÁP EXCEL" nhấp nháy (không cần nút lệnh). Thay vì dòng chữ "GIẢI PHÁP EXCEL" chạy như trong diễn đàn.
Nhờ các sư huynh ra tay. Cám ơn!

Em là thành viên mới, em đang cần làm một cell chứa số nhấp nháy để báo cáo sếp, thấy chủ đề này đúng ý với mình quá trời mà đọc không hiểu cách làm. nhờ anh chị hướng dẫn chi tiết từng bước dùm em nhé. em vô cùng cảm ơn