Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Old February 21st 04, 12:45 PM posted to microsoft.public.excel.programming
external usenet poster
 
First recorded activity by ExcelBanter: Feb 2004
Posts: 1
Default Is It Possible To Make A Cell Blink..

I AM LOOKING FOR A CODE OR FORMULA TO MAKE A WORKSHEET CELL BLINK O
REVERSE VIDEO IF A CERTAIN CONDITION IS FULFILLED. IN CONDITIONA
FORMATTING I COULD NOT FIND ANYTHING LIKE THIS. I AM WONDERING IF THI
COULD BE ACHIEVEABLE THROUGH VBA CODE.


REGARDS,


DARN

--
Message posted from http://www.ExcelForum.com


  #2   Report Post  
Old February 21st 04, 12:59 PM posted to microsoft.public.excel.programming
external usenet poster
 
First recorded activity by ExcelBanter: Jan 2004
Posts: 3,885
Default Is It Possible To Make A Cell Blink..

Hi Darno
yes it is possible but only with code. But I strongly recommend not to
do this :-)
- You can't do anything else while the cell blinks (as the macro runs
constantly)
- Blinking cells have nothing to do with spreadsheets ;-)

------
Dim Nexttime
Sub Flash()
NextTime = Now + TimeValue("00:00:01")
If ActiveWorkbook.Worksheets("Sheet1").Range("A1").va lue = 1 then
With ActiveWorkbook.Worksheets("Sheet1").Range("A1").Fo nt
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
end if
Application.OnTime NextTime, "Flash"
End Sub

Sub StopIt()
Application.OnTime NextTime, "Flash", schedule:=False
ActiveWorkbook.Worksheets("Tabelle3").Range("A1"). Font.ColorIndex =
xlAutomatic
End Sub

-----

The first macro makes cell A1 blink every second if the value of A1 =
1. The second macro stops the blinking
P.S.: please turn off your Caps Lock in your posts - Makes it difficult
to read and all uper case is considered as shouting in NG


--
Regards
Frank Kabel
Frankfurt, Germany

I AM LOOKING FOR A CODE OR FORMULA TO MAKE A WORKSHEET CELL BLINK OR
REVERSE VIDEO IF A CERTAIN CONDITION IS FULFILLED. IN CONDITIONAL
FORMATTING I COULD NOT FIND ANYTHING LIKE THIS. I AM WONDERING IF

THIS
COULD BE ACHIEVEABLE THROUGH VBA CODE.


REGARDS,


DARNO


---
Message posted from http://www.ExcelForum.com/


  #3   Report Post  
Old February 21st 04, 01:38 PM posted to microsoft.public.excel.programming
external usenet poster
 
First recorded activity by ExcelBanter: Jul 2003
Posts: 162
Default Is It Possible To Make A Cell Blink..

Hi Darno!

This is one of those features that that we have not yet been blessed
with in any version of Excel.

But here is some code that is really nasty:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Integer
Dim NextTime As Date
If Range("MyFlashCell").Value 7 Then
For n = 1 To 5
With Range("MyFlashCell").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
With Range("MyFlashCell").Interior
If .ColorIndex = 3 Then .ColorIndex = 2 Else .ColorIndex = 3
End With
Application.Wait Now + TimeValue("00:00:01")
Next
End If
With Range("MyFlashCell")
..Font.ColorIndex = 3
..Interior.ColorIndex = 2
End With
End Sub

It goes in the Sheet module, it sucks processing time and creates a
delay of 5 seconds on every recalculation if MyFlashCell exceeds the
value of 7.

Don't blame me if co-workers perform surgical operations on you
without anaesthetic.

--
Regards
Norman Harker MVP (Excel)
Sydney, Australia

Excel and Word Function Lists (Classifications, Syntax and Arguments)
available free to good homes.
"darno " wrote in message
...
I AM LOOKING FOR A CODE OR FORMULA TO MAKE A WORKSHEET CELL BLINK OR
REVERSE VIDEO IF A CERTAIN CONDITION IS FULFILLED. IN CONDITIONAL
FORMATTING I COULD NOT FIND ANYTHING LIKE THIS. I AM WONDERING IF

THIS
COULD BE ACHIEVEABLE THROUGH VBA CODE.


REGARDS,


DARNO


---
Message posted from
http://www.ExcelForum.com/



  #4   Report Post  
Old February 21st 04, 01:47 PM posted to microsoft.public.excel.programming
external usenet poster
 
First recorded activity by ExcelBanter: Jul 2006
Posts: 634
Default Is It Possible To Make A Cell Blink..

=SUBSTITUTE("not yet been blessed with","blessed","cursed")

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 00/02/03

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission :-)
----------------------------------------------------------------------------



"Norman Harker" wrote in message
...
Hi Darno!

This is one of those features that that we have not yet been blessed
with in any version of Excel.

But here is some code that is really nasty:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Integer
Dim NextTime As Date
If Range("MyFlashCell").Value 7 Then
For n = 1 To 5
With Range("MyFlashCell").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
With Range("MyFlashCell").Interior
If .ColorIndex = 3 Then .ColorIndex = 2 Else .ColorIndex = 3
End With
Application.Wait Now + TimeValue("00:00:01")
Next
End If
With Range("MyFlashCell")
.Font.ColorIndex = 3
.Interior.ColorIndex = 2
End With
End Sub

It goes in the Sheet module, it sucks processing time and creates a
delay of 5 seconds on every recalculation if MyFlashCell exceeds the
value of 7.

Don't blame me if co-workers perform surgical operations on you
without anaesthetic.

--
Regards
Norman Harker MVP (Excel)
Sydney, Australia

Excel and Word Function Lists (Classifications, Syntax and Arguments)
available free to good homes.
"darno " wrote in message
...
I AM LOOKING FOR A CODE OR FORMULA TO MAKE A WORKSHEET CELL BLINK OR
REVERSE VIDEO IF A CERTAIN CONDITION IS FULFILLED. IN CONDITIONAL
FORMATTING I COULD NOT FIND ANYTHING LIKE THIS. I AM WONDERING IF

THIS
COULD BE ACHIEVEABLE THROUGH VBA CODE.


REGARDS,


DARNO


---
Message posted from
http://www.ExcelForum.com/





---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.593 / Virus Database: 376 - Release Date: 20/02/2004


  #5   Report Post  
Old February 21st 04, 02:03 PM posted to microsoft.public.excel.programming
external usenet poster
 
First recorded activity by ExcelBanter: Jan 2004
Posts: 3,885
Default Is It Possible To Make A Cell Blink..

Hi Norman
also quite beautiful <vbg
Hopefully MS never decides to implement blinking is a major feature
enhancement ;-)

--
Regards
Frank Kabel
Frankfurt, Germany

Norman Harker wrote:
Hi Darno!

This is one of those features that that we have not yet been blessed
with in any version of Excel.

But here is some code that is really nasty:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Integer
Dim NextTime As Date
If Range("MyFlashCell").Value 7 Then
For n = 1 To 5
With Range("MyFlashCell").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
With Range("MyFlashCell").Interior
If .ColorIndex = 3 Then .ColorIndex = 2 Else .ColorIndex = 3
End With
Application.Wait Now + TimeValue("00:00:01")
Next
End If
With Range("MyFlashCell")
.Font.ColorIndex = 3
.Interior.ColorIndex = 2
End With
End Sub

It goes in the Sheet module, it sucks processing time and creates a
delay of 5 seconds on every recalculation if MyFlashCell exceeds the
value of 7.

Don't blame me if co-workers perform surgical operations on you
without anaesthetic.

I AM LOOKING FOR A CODE OR FORMULA TO MAKE A WORKSHEET CELL BLINK OR
REVERSE VIDEO IF A CERTAIN CONDITION IS FULFILLED. IN CONDITIONAL
FORMATTING I COULD NOT FIND ANYTHING LIKE THIS. I AM WONDERING IF
THIS COULD BE ACHIEVEABLE THROUGH VBA CODE.


REGARDS,


DARNO


---
Message posted from http://www.ExcelForum.com/




  #6   Report Post  
Old February 21st 04, 02:13 PM posted to microsoft.public.excel.programming
external usenet poster
 
First recorded activity by ExcelBanter: Feb 2004
Posts: 1
Default Is It Possible To Make A Cell Blink..

Thanks a lot to you both, for giving such a way out. Thanks again.

regards,


darn

--
Message posted from http://www.ExcelForum.com

  #7   Report Post  
Old February 21st 04, 02:17 PM posted to microsoft.public.excel.programming
external usenet poster
 
First recorded activity by ExcelBanter: Jul 2003
Posts: 162
Default Is It Possible To Make A Cell Blink..

Hi Ken!

I wish to deny the rumour that you're spreading that I got transported
to Australia for flashing.

Will this make you happier; he says knowing the answer. At least it
only flashes if there's a change to the offending cell.


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("MyFlashCell")) Is Nothing Then Exit Sub
Dim n As Integer
Dim NextTime As Date
If Range("MyFlashCell").Value 7 Then
For n = 1 To 5
With Range("MyFlashCell").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
With Range("MyFlashCell").Interior
If .ColorIndex = 3 Then .ColorIndex = 2 Else .ColorIndex = 3
End With
Application.Wait Now + TimeValue("00:00:01")
Next
End If
With Range("MyFlashCell")
..Font.ColorIndex = 3
..Interior.ColorIndex = 2
End With
End Sub


--
Regards
Norman Harker MVP (Excel)
Sydney, Australia

Excel and Word Function Lists (Classifications, Syntax and Arguments)
available free to good homes.
"Ken Wright" wrote in message
...
=SUBSTITUTE("not yet been blessed with","blessed","cursed")

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 00/02/03

--------------------------------------------------------------------

--------
It's easier to beg forgiveness than ask permission :-)
--------------------------------------------------------------------

--------



"Norman Harker" wrote in message
...
Hi Darno!

This is one of those features that that we have not yet been

blessed
with in any version of Excel.

But here is some code that is really nasty:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Integer
Dim NextTime As Date
If Range("MyFlashCell").Value 7 Then
For n = 1 To 5
With Range("MyFlashCell").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
With Range("MyFlashCell").Interior
If .ColorIndex = 3 Then .ColorIndex = 2 Else .ColorIndex = 3
End With
Application.Wait Now + TimeValue("00:00:01")
Next
End If
With Range("MyFlashCell")
.Font.ColorIndex = 3
.Interior.ColorIndex = 2
End With
End Sub

It goes in the Sheet module, it sucks processing time and creates

a
delay of 5 seconds on every recalculation if MyFlashCell exceeds

the
value of 7.

Don't blame me if co-workers perform surgical operations on you
without anaesthetic.

--
Regards
Norman Harker MVP (Excel)
Sydney, Australia

Excel and Word Function Lists (Classifications, Syntax and

Arguments)
available free to good homes.
"darno " wrote in message
...
I AM LOOKING FOR A CODE OR FORMULA TO MAKE A WORKSHEET CELL

BLINK OR
REVERSE VIDEO IF A CERTAIN CONDITION IS FULFILLED. IN

CONDITIONAL
FORMATTING I COULD NOT FIND ANYTHING LIKE THIS. I AM WONDERING

IF
THIS
COULD BE ACHIEVEABLE THROUGH VBA CODE.


REGARDS,


DARNO


---
Message posted from
http://www.ExcelForum.com/





---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.593 / Virus Database: 376 - Release Date: 20/02/2004




  #8   Report Post  
Old February 21st 04, 02:26 PM posted to microsoft.public.excel.programming
external usenet poster
 
First recorded activity by ExcelBanter: Jul 2006
Posts: 634
Default Is It Possible To Make A Cell Blink..

LOL

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 00/02/03

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission :-)
----------------------------------------------------------------------------



"Norman Harker" wrote in message
...
Hi Ken!

I wish to deny the rumour that you're spreading that I got transported
to Australia for flashing.

Will this make you happier; he says knowing the answer. At least it
only flashes if there's a change to the offending cell.


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("MyFlashCell")) Is Nothing Then Exit Sub
Dim n As Integer
Dim NextTime As Date
If Range("MyFlashCell").Value 7 Then
For n = 1 To 5
With Range("MyFlashCell").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
With Range("MyFlashCell").Interior
If .ColorIndex = 3 Then .ColorIndex = 2 Else .ColorIndex = 3
End With
Application.Wait Now + TimeValue("00:00:01")
Next
End If
With Range("MyFlashCell")
.Font.ColorIndex = 3
.Interior.ColorIndex = 2
End With
End Sub


--
Regards
Norman Harker MVP (Excel)
Sydney, Australia

Excel and Word Function Lists (Classifications, Syntax and Arguments)
available free to good homes.
"Ken Wright" wrote in message
...
=SUBSTITUTE("not yet been blessed with","blessed","cursed")

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 00/02/03

--------------------------------------------------------------------

--------
It's easier to beg forgiveness than ask permission :-)
--------------------------------------------------------------------

--------



"Norman Harker" wrote in message
...
Hi Darno!

This is one of those features that that we have not yet been

blessed
with in any version of Excel.

But here is some code that is really nasty:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Integer
Dim NextTime As Date
If Range("MyFlashCell").Value 7 Then
For n = 1 To 5
With Range("MyFlashCell").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
With Range("MyFlashCell").Interior
If .ColorIndex = 3 Then .ColorIndex = 2 Else .ColorIndex = 3
End With
Application.Wait Now + TimeValue("00:00:01")
Next
End If
With Range("MyFlashCell")
.Font.ColorIndex = 3
.Interior.ColorIndex = 2
End With
End Sub

It goes in the Sheet module, it sucks processing time and creates

a
delay of 5 seconds on every recalculation if MyFlashCell exceeds

the
value of 7.

Don't blame me if co-workers perform surgical operations on you
without anaesthetic.

--
Regards
Norman Harker MVP (Excel)
Sydney, Australia

Excel and Word Function Lists (Classifications, Syntax and

Arguments)
available free to good homes.
"darno " wrote in message
...
I AM LOOKING FOR A CODE OR FORMULA TO MAKE A WORKSHEET CELL

BLINK OR
REVERSE VIDEO IF A CERTAIN CONDITION IS FULFILLED. IN

CONDITIONAL
FORMATTING I COULD NOT FIND ANYTHING LIKE THIS. I AM WONDERING

IF
THIS
COULD BE ACHIEVEABLE THROUGH VBA CODE.


REGARDS,


DARNO


---
Message posted from
http://www.ExcelForum.com/





---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.593 / Virus Database: 376 - Release Date: 20/02/2004






---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.593 / Virus Database: 376 - Release Date: 20/02/2004




Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
How to make cell contents blink? Paul Excel Discussion (Misc queries) 1 March 17th 08 07:54 PM
How does one make data in a cell blink Vern Excel Worksheet Functions 0 January 20th 07 09:43 PM
Can you make a cell blink? raven_guy Excel Worksheet Functions 2 June 8th 05 07:17 PM
In excel, can you make a cell blink? giveya50 Excel Discussion (Misc queries) 7 May 13th 05 02:28 PM
Make a cell blink JenML5 Excel Discussion (Misc queries) 1 April 21st 05 03:59 PM


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

Powered by vBulletin® Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Copyright 2004-2017 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Copyright © 2017