A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Excel » Worksheet Functions
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

Blinking Text



 
 
Thread Tools Display Modes
  #1  
Old February 2nd, 2008, 08:35 AM posted to microsoft.public.excel.worksheet.functions
Esra Dekan
external usenet poster
 
Posts: 22
Default Blinking Text

OK, i know its kind of frowned on, but I need to have a cell that
flashes text.

How do i do that in Office 2007?

Any help appreciated
TIA
Esra
  #2  
Old February 2nd, 2008, 09:09 AM posted to microsoft.public.excel.worksheet.functions
Héctor Miguel
external usenet poster
 
Posts: 298
Default Blinking Text

hi, Esra !

OK, i know its kind of frowned on, but I need to have a cell that flashes text.
How do i do that in Office 2007?


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

or... there is a wise-tricky procedure (posted by KL in spanish ng sometime ago)...
(and with minor changes based on Thomas Jansen -1999- post)...
that let's you to preserve the undo-levels, and you might want to give it a try...

if any doudbts (or further information)... would you please comment ?
hth,
hector.

assuming 'a cell' es [B1] and you need it to 'flash' if it's value is greater than 5

1) select [B1]... - [menu] format / conditional format...
formula: - =(b15)*(mod(second(now()),2)=0)
format: - apply formats as needed/wished/...

2) copy/paste the following code-lines:
===
a) in a general code module:
===
Option Private Module
Public Sequence As Date
Sub StartBlinking()
Sequence = Now + TimeSerial(0, 0, 1)
Worksheets(1).Range("b1").Calculate ' modify/adapt/... worksheet's index/name as appropriate
Application.OnTime Sequence, "StartBlinking"
End Sub
Sub StopBlinking()
On Error Resume Next
Application.OnTime Sequence, "StartBlinking", Schedule:=False
End Sub
===
b) in 'ThisWorkbook' code module:
===
Private Sub Workbook_Open()
StartBlinking
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlinking
End Sub


  #3  
Old February 2nd, 2008, 11:23 AM posted to microsoft.public.excel.worksheet.functions
Esra Dekan
external usenet poster
 
Posts: 22
Default Blinking Text

On Sat, 2 Feb 2008 02:09:24 -0600, "Héctor Miguel"
wrote:

hi, Esra !

OK, i know its kind of frowned on, but I need to have a cell that flashes text.
How do i do that in Office 2007?


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

or... there is a wise-tricky procedure (posted by KL in spanish ng sometime ago)...
(and with minor changes based on Thomas Jansen -1999- post)...
that let's you to preserve the undo-levels, and you might want to give it a try...

if any doudbts (or further information)... would you please comment ?
hth,
hector.

assuming 'a cell' es [B1] and you need it to 'flash' if it's value is greater than 5

1) select [B1]... - [menu] format / conditional format...
formula: - =(b15)*(mod(second(now()),2)=0)
format: - apply formats as needed/wished/...

2) copy/paste the following code-lines:
===
a) in a general code module:
===
Option Private Module
Public Sequence As Date
Sub StartBlinking()
Sequence = Now + TimeSerial(0, 0, 1)
Worksheets(1).Range("b1").Calculate ' modify/adapt/... worksheet's index/name as appropriate
Application.OnTime Sequence, "StartBlinking"
End Sub
Sub StopBlinking()
On Error Resume Next
Application.OnTime Sequence, "StartBlinking", Schedule:=False
End Sub
===
b) in 'ThisWorkbook' code module:
===
Private Sub Workbook_Open()
StartBlinking
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlinking
End Sub



No that doesnt seem to work for me.

When I open or close the workbook with the private subs in there, it
says compiling error, sub or function not defined

Same thing when i close the workbook


When i use conditional formatting, it says "You cannot use relative
references in Conditional Formatting criteria for colour scales, data
bars and icon sets."

Am I doing something wrong?

ty

Esra
  #4  
Old February 2nd, 2008, 09:11 PM posted to microsoft.public.excel.worksheet.functions
Gord Dibben
external usenet poster
 
Posts: 20,252
Default Blinking Text

Hector's code works fine for me.

You may have mis-read his directions or when copying code left something out.

Note: B1 won't blink the color on/off unless there is data in the cell,
although the blinking code is running. Even a space will start it blinking.


Gord Dibben MS Excel MVP

On Sat, 02 Feb 2008 23:23:39 +1300, Esra Dekan wrote:

On Sat, 2 Feb 2008 02:09:24 -0600, "Héctor Miguel"
wrote:

hi, Esra !

OK, i know its kind of frowned on, but I need to have a cell that flashes text.
How do i do that in Office 2007?


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

or... there is a wise-tricky procedure (posted by KL in spanish ng sometime ago)...
(and with minor changes based on Thomas Jansen -1999- post)...
that let's you to preserve the undo-levels, and you might want to give it a try...

if any doudbts (or further information)... would you please comment ?
hth,
hector.

assuming 'a cell' es [B1] and you need it to 'flash' if it's value is greater than 5

1) select [B1]... - [menu] format / conditional format...
formula: - =(b15)*(mod(second(now()),2)=0)
format: - apply formats as needed/wished/...

2) copy/paste the following code-lines:
===
a) in a general code module:
===
Option Private Module
Public Sequence As Date
Sub StartBlinking()
Sequence = Now + TimeSerial(0, 0, 1)
Worksheets(1).Range("b1").Calculate ' modify/adapt/... worksheet's index/name as appropriate
Application.OnTime Sequence, "StartBlinking"
End Sub
Sub StopBlinking()
On Error Resume Next
Application.OnTime Sequence, "StartBlinking", Schedule:=False
End Sub
===
b) in 'ThisWorkbook' code module:
===
Private Sub Workbook_Open()
StartBlinking
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlinking
End Sub



No that doesnt seem to work for me.

When I open or close the workbook with the private subs in there, it
says compiling error, sub or function not defined

Same thing when i close the workbook


When i use conditional formatting, it says "You cannot use relative
references in Conditional Formatting criteria for colour scales, data
bars and icon sets."

Am I doing something wrong?

ty

Esra


  #5  
Old February 3rd, 2008, 12:52 AM posted to microsoft.public.excel.worksheet.functions
Esra Dekan
external usenet poster
 
Posts: 22
Default Blinking Text

I have huh?

I open the file after i have installed the VBA as per instructions,
(copied and pasted) and when i open it, it tells me

"Compile error. Sub or function not defined"

Also says the same when I close it after clicking off that message.

I copied and pasted the formula as provided, so I dont see how that
can be wrong.

Not sure what is going on here??, (

Need help please.

TIA
Esra






On Sat, 02 Feb 2008 12:11:37 -0800, Gord Dibben gorddibbATshawDOTca
wrote:

Hector's code works fine for me.

You may have mis-read his directions or when copying code left something out.

Note: B1 won't blink the color on/off unless there is data in the cell,
although the blinking code is running. Even a space will start it blinking.


Gord Dibben MS Excel MVP

On Sat, 02 Feb 2008 23:23:39 +1300, Esra Dekan wrote:

On Sat, 2 Feb 2008 02:09:24 -0600, "Héctor Miguel"
wrote:

hi, Esra !

OK, i know its kind of frowned on, but I need to have a cell that flashes text.
How do i do that in Office 2007?

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

or... there is a wise-tricky procedure (posted by KL in spanish ng sometime ago)...
(and with minor changes based on Thomas Jansen -1999- post)...
that let's you to preserve the undo-levels, and you might want to give it a try...

if any doudbts (or further information)... would you please comment ?
hth,
hector.

assuming 'a cell' es [B1] and you need it to 'flash' if it's value is greater than 5

1) select [B1]... - [menu] format / conditional format...
formula: - =(b15)*(mod(second(now()),2)=0)
format: - apply formats as needed/wished/...

2) copy/paste the following code-lines:
===
a) in a general code module:
===
Option Private Module
Public Sequence As Date
Sub StartBlinking()
Sequence = Now + TimeSerial(0, 0, 1)
Worksheets(1).Range("b1").Calculate ' modify/adapt/... worksheet's index/name as appropriate
Application.OnTime Sequence, "StartBlinking"
End Sub
Sub StopBlinking()
On Error Resume Next
Application.OnTime Sequence, "StartBlinking", Schedule:=False
End Sub
===
b) in 'ThisWorkbook' code module:
===
Private Sub Workbook_Open()
StartBlinking
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlinking
End Sub



No that doesnt seem to work for me.

When I open or close the workbook with the private subs in there, it
says compiling error, sub or function not defined

Same thing when i close the workbook


When i use conditional formatting, it says "You cannot use relative
references in Conditional Formatting criteria for colour scales, data
bars and icon sets."

Am I doing something wrong?

ty

Esra

  #6  
Old February 3rd, 2008, 03:14 AM posted to microsoft.public.excel.worksheet.functions
Dave Peterson
external usenet poster
 
Posts: 19,791
Default Blinking Text

Maybe you got hit by linewrap in the newsgroup post.

Sub StartBlinking()
Sequence = Now + TimeSerial(0, 0, 1)
' modify/adapt/... worksheet's index/name as appropriate
Worksheets(1).Range("b1").Calculate
Application.OnTime Sequence, "StartBlinking"
End Sub

That "appropriate" line is the end of the comment. It's not really part of the
code.

Esra Dekan wrote:

I have huh?

I open the file after i have installed the VBA as per instructions,
(copied and pasted) and when i open it, it tells me

"Compile error. Sub or function not defined"

Also says the same when I close it after clicking off that message.

I copied and pasted the formula as provided, so I dont see how that
can be wrong.

Not sure what is going on here??, (

Need help please.

TIA
Esra

On Sat, 02 Feb 2008 12:11:37 -0800, Gord Dibben gorddibbATshawDOTca
wrote:

Hector's code works fine for me.

You may have mis-read his directions or when copying code left something out.

Note: B1 won't blink the color on/off unless there is data in the cell,
although the blinking code is running. Even a space will start it blinking.


Gord Dibben MS Excel MVP

On Sat, 02 Feb 2008 23:23:39 +1300, Esra Dekan wrote:

On Sat, 2 Feb 2008 02:09:24 -0600, "Héctor Miguel"
wrote:

hi, Esra !

OK, i know its kind of frowned on, but I need to have a cell that flashes text.
How do i do that in Office 2007?

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

or... there is a wise-tricky procedure (posted by KL in spanish ng sometime ago)...
(and with minor changes based on Thomas Jansen -1999- post)...
that let's you to preserve the undo-levels, and you might want to give it a try...

if any doudbts (or further information)... would you please comment ?
hth,
hector.

assuming 'a cell' es [B1] and you need it to 'flash' if it's value is greater than 5

1) select [B1]... - [menu] format / conditional format...
formula: - =(b15)*(mod(second(now()),2)=0)
format: - apply formats as needed/wished/...

2) copy/paste the following code-lines:
===
a) in a general code module:
===
Option Private Module
Public Sequence As Date
Sub StartBlinking()
Sequence = Now + TimeSerial(0, 0, 1)
Worksheets(1).Range("b1").Calculate ' modify/adapt/... worksheet's index/name as appropriate
Application.OnTime Sequence, "StartBlinking"
End Sub
Sub StopBlinking()
On Error Resume Next
Application.OnTime Sequence, "StartBlinking", Schedule:=False
End Sub
===
b) in 'ThisWorkbook' code module:
===
Private Sub Workbook_Open()
StartBlinking
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlinking
End Sub



No that doesnt seem to work for me.

When I open or close the workbook with the private subs in there, it
says compiling error, sub or function not defined

Same thing when i close the workbook


When i use conditional formatting, it says "You cannot use relative
references in Conditional Formatting criteria for colour scales, data
bars and icon sets."

Am I doing something wrong?

ty

Esra


--

Dave Peterson
  #7  
Old February 3rd, 2008, 04:18 AM posted to microsoft.public.excel.worksheet.functions
Esra Dekan
external usenet poster
 
Posts: 22
Default Blinking Text

Maybe by chance, could someone email me a workbook with a flashing
cell? and I should be able to work it out from there.

I just cant seem to get it for some reason.

My email address is in the message i think, minus the underscore.

I wouls appreciate it

Esra



On Sat, 02 Feb 2008 20:14:12 -0600, Dave Peterson
wrote:

Maybe you got hit by linewrap in the newsgroup post.

Sub StartBlinking()
Sequence = Now + TimeSerial(0, 0, 1)
' modify/adapt/... worksheet's index/name as appropriate
Worksheets(1).Range("b1").Calculate
Application.OnTime Sequence, "StartBlinking"
End Sub

That "appropriate" line is the end of the comment. It's not really part of the
code.

Esra Dekan wrote:

I have huh?

I open the file after i have installed the VBA as per instructions,
(copied and pasted) and when i open it, it tells me

"Compile error. Sub or function not defined"

Also says the same when I close it after clicking off that message.

I copied and pasted the formula as provided, so I dont see how that
can be wrong.

Not sure what is going on here??, (

Need help please.

TIA
Esra

On Sat, 02 Feb 2008 12:11:37 -0800, Gord Dibben gorddibbATshawDOTca
wrote:

Hector's code works fine for me.

You may have mis-read his directions or when copying code left something out.

Note: B1 won't blink the color on/off unless there is data in the cell,
although the blinking code is running. Even a space will start it blinking.


Gord Dibben MS Excel MVP

On Sat, 02 Feb 2008 23:23:39 +1300, Esra Dekan wrote:

On Sat, 2 Feb 2008 02:09:24 -0600, "Héctor Miguel"
wrote:

hi, Esra !

OK, i know its kind of frowned on, but I need to have a cell that flashes text.
How do i do that in Office 2007?

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

or... there is a wise-tricky procedure (posted by KL in spanish ng sometime ago)...
(and with minor changes based on Thomas Jansen -1999- post)...
that let's you to preserve the undo-levels, and you might want to give it a try...

if any doudbts (or further information)... would you please comment ?
hth,
hector.

assuming 'a cell' es [B1] and you need it to 'flash' if it's value is greater than 5

1) select [B1]... - [menu] format / conditional format...
formula: - =(b15)*(mod(second(now()),2)=0)
format: - apply formats as needed/wished/...

2) copy/paste the following code-lines:
===
a) in a general code module:
===
Option Private Module
Public Sequence As Date
Sub StartBlinking()
Sequence = Now + TimeSerial(0, 0, 1)
Worksheets(1).Range("b1").Calculate ' modify/adapt/... worksheet's index/name as appropriate
Application.OnTime Sequence, "StartBlinking"
End Sub
Sub StopBlinking()
On Error Resume Next
Application.OnTime Sequence, "StartBlinking", Schedule:=False
End Sub
===
b) in 'ThisWorkbook' code module:
===
Private Sub Workbook_Open()
StartBlinking
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlinking
End Sub



No that doesnt seem to work for me.

When I open or close the workbook with the private subs in there, it
says compiling error, sub or function not defined

Same thing when i close the workbook


When i use conditional formatting, it says "You cannot use relative
references in Conditional Formatting criteria for colour scales, data
bars and icon sets."

Am I doing something wrong?

ty

Esra

  #8  
Old February 3rd, 2008, 04:35 AM posted to microsoft.public.excel.worksheet.functions
Gord Dibben
external usenet poster
 
Posts: 20,252
Default Blinking Text

What you refer to as "formula" is either a macro or event code.

As Dave points out, you could have been hit by line wrap.

My reader did not wrap but yours may have.

Here is a cleaned up set with a revision. I used a sheetname. You will edit
that to your sheetname

a) Copy these two macros to a general code module:
=================

Option Private Module
Public Sequence As Date
Sub StartBlinking()
Sequence = Now + TimeSerial(0, 0, 1)
Worksheets("MySheet").Range("B1").Calculate
Application.OnTime Sequence, "StartBlinking"
End Sub

Sub StopBlinking()
On Error Resume Next
Application.OnTime Sequence, "StartBlinking", Schedule:=False
End Sub

===================

b) Copy these two events to 'ThisWorkbook' code module:
===================

Private Sub Workbook_Open()
StartBlinking
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlinking
End Sub

======================


Gord

On Sun, 03 Feb 2008 12:52:19 +1300, Esra Dekan wrote:

I copied and pasted the formula as provided, so I dont see how that
can be wrong.


  #9  
Old February 3rd, 2008, 05:10 AM posted to microsoft.public.excel.worksheet.functions
Gord Dibben
external usenet poster
 
Posts: 20,252
Default Blinking Text

Have sent one to you.


Gord

On Sun, 03 Feb 2008 16:18:45 +1300, Esra Dekan wrote:

Maybe by chance, could someone email me a workbook with a flashing
cell? and I should be able to work it out from there.

I just cant seem to get it for some reason.

My email address is in the message i think, minus the underscore.

I wouls appreciate it

Esra


  #10  
Old February 3rd, 2008, 07:38 PM posted to microsoft.public.excel.worksheet.functions
Esra Dekan
external usenet poster
 
Posts: 22
Default Blinking Text

That doesnt work here either.

maybe something wrong with the program? Do I need an add=in or
something?


Esra


On Sat, 02 Feb 2008 20:10:42 -0800, Gord Dibben gorddibbATshawDOTca
wrote:

Have sent one to you.


Gord

On Sun, 03 Feb 2008 16:18:45 +1300, Esra Dekan wrote:

Maybe by chance, could someone email me a workbook with a flashing
cell? and I should be able to work it out from there.

I just cant seem to get it for some reason.

My email address is in the message i think, minus the underscore.

I wouls appreciate it

Esra

 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 01:40 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.