ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   can you make a cell blink? (https://www.excelbanter.com/excel-worksheet-functions/300067-can-you-make-cell-blink.html)

pat67

can you make a cell blink?
 
I am look to emphasize a result by blinking the cell. Just wondering
if it's possible. And if so, how. Thanks

Don Guillett[_2_]

can you make a cell blink?
 
On Jan 6, 2:40*pm, pat67 wrote:
I am look to emphasize a result by blinking the cell. Just wondering
if it's possible. And if so, how. Thanks


You really do NOT want to do that.

pat67

can you make a cell blink?
 
On Jan 6, 3:49*pm, Don Guillett wrote:
On Jan 6, 2:40*pm, pat67 wrote:

I am look to emphasize a result by blinking the cell. Just wondering
if it's possible. And if so, how. Thanks


You really do NOT want to do that.


A lot of people say that but I am unsure why. I have code that is
doing it now but I have a question. The blinking cell is the value of
inventory. What I want to do is when we are projected to be under the
goal just make the cell text green but when we project to be over,
have it be red and blink t emphasize. below makes it blink red every
second. I tried just using conditional formatting of the cell but I
guess that overrides the code because it just turned green and
stopped. My assumption is I will have to use code to do it. Problem is
i am unsure how. So my question then would be how would i do that?
Thanks



Public RunWhen As Double

Sub StartBlink()
With ThisWorkbook.Worksheets("Current_Summary").Range(" C3").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("Current_Summary").Range(" C3").Font.ColorIndex
= _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!
StartBlink", , False
End Sub

James Ravenswood

can you make a cell blink?
 
On Jan 6, 4:27*pm, pat67 wrote:
On Jan 6, 3:49*pm, Don Guillett wrote:

On Jan 6, 2:40*pm, pat67 wrote:


I am look to emphasize a result by blinking the cell. Just wondering
if it's possible. And if so, how. Thanks


You really do NOT want to do that.


A lot of people say that but I am unsure why. I have code that is
doing it now but I have a question. The blinking cell is the value of
inventory. What I want to do is when we are projected to be under the
goal just make the cell text green but when we project to be over,
have it be red and blink t emphasize. below makes it blink red every
second. I tried just using conditional formatting of the cell but I
guess that overrides the code because it just turned green and
stopped. My assumption is I will have to use code to do it. Problem is
i am unsure how. So my question then would be how would i do that?
Thanks

Public RunWhen As Double

Sub StartBlink()
* * With ThisWorkbook.Worksheets("Current_Summary").Range(" C3").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("Current_Summary").Range(" C3").Font.ColorIndex
= _
* * * * xlColorIndexAutomatic
* * Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!
StartBlink", , False
End Sub


See:

http://www.cpearson.com/excel/BlinkingText.aspx


Rick Rothstein

can you make a cell blink?
 
See:
http://www.cpearson.com/excel/BlinkingText.aspx


And when you do, pay particular attention to the second bulleted point in
the Summary section at the end of the page.

Rick Rothstein (MVP - Excel)



All times are GMT +1. The time now is 06:39 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com