S
Suresh Lohar
I want to know the method, how do I get text blink in a excel sheet.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
T
Tom Hutchins
You have to use a macro to do that in Excel. This link explains how:
http://www.cpearson.com/Excel/BlinkingText.aspx
If you are new to macros, this link to Jon Peltier's site may be helpful:
http://peltiertech.com/WordPress/2008/03/09/how-to-use-someone-elses-macro/
Hope this helps,
Hutch
http://www.cpearson.com/Excel/BlinkingText.aspx
If you are new to macros, this link to Jon Peltier's site may be helpful:
http://peltiertech.com/WordPress/2008/03/09/how-to-use-someone-elses-macro/
Hope this helps,
Hutch
R
Rick Rothstein
Just to follow up on Tom's message... be sure to read the Summary section at
the bottom of the webpage for that first URL link... ESPECIALLY the part in
parentheses on that last bulleted item.
the bottom of the webpage for that first URL link... ESPECIALLY the part in
parentheses on that last bulleted item.
S
Suresh Lohar
Thanks, macros are working but only when I run macros.
Otherwise when I open the file, it doesn't blink automatically.
Why is so sir.
Suresh
Otherwise when I open the file, it doesn't blink automatically.
Why is so sir.
Suresh
S
Suresh Lohar
Public RunWhen As Double
Sub StartBlink()
With ThisWorkbook.Worksheets("CALCULATION").Range("D4").Font
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
True
End Sub
Sub StopBlink()
ThisWorkbook.Worksheets("CALCULATION").Range("D4").Font.ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
False
End Sub
Private Sub Workbook_Open()
StartBlink
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlink
End Sub
I used this macro, but text blink only then when I run the macros.
When I open this file, Text doesn't blink automatically.
Kindly help sir in this regard. Thanks a lot.
Sub StartBlink()
With ThisWorkbook.Worksheets("CALCULATION").Range("D4").Font
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
True
End Sub
Sub StopBlink()
ThisWorkbook.Worksheets("CALCULATION").Range("D4").Font.ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
False
End Sub
Private Sub Workbook_Open()
StartBlink
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlink
End Sub
I used this macro, but text blink only then when I run the macros.
When I open this file, Text doesn't blink automatically.
Kindly help sir in this regard. Thanks a lot.
R
Rick Rothstein
The Workbook_Open and the Workbook_BeforeClose procedures are workbook event
code and, as such, must be placed in the ThisWorkbook module, not the BAS
Module you now have them in (macros go in the BAS Module, but event code
goes in the sheet or workbook module that they apply to). You can open the
ThisWorkbook module by double clicking the ThisWorkbook entry from Project
window.
code and, as such, must be placed in the ThisWorkbook module, not the BAS
Module you now have them in (macros go in the BAS Module, but event code
goes in the sheet or workbook module that they apply to). You can open the
ThisWorkbook module by double clicking the ThisWorkbook entry from Project
window.
S
Suresh Lohar
sir, many many thanks, it works now.
Thanks for quick and kind cooperation.
Suresh Lohar
Thanks for quick and kind cooperation.
Suresh Lohar