Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How could I make the contents of a Cell "Flash" like a warning.
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How could I make the contents of a Cell "Flash" like a warning.
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 lets 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 its 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/... worksheets 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
Posted to microsoft.public.excel.programming
|
|||
|
|||
How could I make the contents of a Cell "Flash" like a warning
Put this in Cell B20:
Hello World!! This is animated text!!! Run this code in a conventional module: Sub ANIM() st = " " & Range("B20") & " " i = 0 While True Range("B21").Value = Mid(st, i Mod Len(st) + 1, 10) For j = 1 To 300000 k = k + 1 Next j i = i + 1 Wend End Sub Regards, Ryan--- -- RyGuy "Héctor Miguel" wrote: 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 lets 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 its 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/... worksheets 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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
How could I make the contents of a Cell "Flash" like a warning
Hi Hector,
is it possible to use the below code to my user form 'Label', and it should blink only for 1 minute and 5 seconds "Héctor Miguel" wrote: 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 lets 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 its 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/... worksheets 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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
How could I make the contents of a Cell "Flash" like a warning.
Check out this page:
http://www.cpearson.com/excel/BlinkingText.aspx for a slightly cleaner version with a few comments. Note that this page came up number 1 in google with "Excel blinking text". |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
How could I make the contents of a Cell "Flash" like a warning.
hi, Douglas !
Check out this page: http://www.cpearson.com/excel/BlinkingText.aspx for a slightly cleaner version with a few comments. Note that this page came up number 1 in google with "Excel blinking text". I agree, it's one of my favorites :)) the only (dis)advantage between one or another, I gues is this part... -?- that lets you to preserve the undo-levels (...) hth, hector. |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
How could I make the contents of a Cell "Flash" like a warning
hi, Ranjit !
is it possible to use the below code to my user form 'Label' and it should blink only for 1 minute and 5 seconds you could try with smething like this code (when the userform is showed/activated/initialized/...) note: while code is looping... code is looping (other code and actions step into stand-by mode)... Private Sub UserForm_Activate() Dim ShowTime As Single ShowTime = Timer + 10 Do While ShowTime Timer If (ShowTime - Timer) Mod 2 = 0 Then Label1.BackColor = QBColor(4) Label1.ForeColor = QBColor(14) Else Label1.BackColor = QBColor(14) Label1.ForeColor = QBColor(4) End If Me.Repaint Loop Label1.BackColor = &H8000000F Label1.ForeColor = &H80000012 End Sub hth, hector. __ OP __ 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 lets 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 its 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/... worksheets 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I make the contents of a cell appear to flash? | Excel Worksheet Functions | |||
how to increase size of "name box" and "contents of cell " displa. | New Users to Excel | |||
How do I make cell contents "blink" in Excel? | Excel Discussion (Misc queries) | |||
If changed array formula reduce ""\""\""\ - signs to #Missing, will it make ... | Excel Programming | |||
how can I make an excel cell "mark" or "unmark" when clicked on? | Excel Discussion (Misc queries) |