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. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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 | |
|
|