Results 1 to 5 of 5

Thread: Blink Cell

  1. #1
    New Lounger
    Join Date
    Sep 2013
    Posts
    17
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Blink Cell

    Hi,

    How to set the Cells to blink if a certain condition is met in that Cell. Like in my sheet1 in Column 'D' (only for Column D) if there is numeric value of 5 then that cell should blink and from D2 to the last cell where ever this condition is met it should blink.

    Thanks in advance.

  2. #2
    5 Star Lounger
    Join Date
    Jan 2004
    Location
    Praha
    Posts
    988
    Thanks
    56
    Thanked 105 Times in 90 Posts
    To change the colour once, use conditional formatting - but if you want continuous blinking (which many find annoying !) that's quite difficult . . . have a read of this: http://excel.tips.net/T002134_Flashing_Cells.html

  3. #3
    WS Lounge VIP
    Join Date
    Mar 2002
    Location
    Newcazzle, UK
    Posts
    2,826
    Thanks
    136
    Thanked 482 Times in 459 Posts
    Hi Goa

    Have another think!
    What about using conditional formatting to set the cell background to Red, with white bold text???

    If this is for yourself, flashing text might be OK, but if other Users will look at this you run the risk of sending them into a catatonic state if they have epilepsy. That's why we get warnings with films like "the following contains flashing images" and on TV "the following contains flash photography".

    Although Word had this capability (walking ants come to mind) you need vba to do this in Excel in conjunction with event trapping.
    All of which can affect performance.

    So, we ask you again, do you really want flashing cells?????

    zeddy

  4. #4
    New Lounger
    Join Date
    Sep 2013
    Posts
    17
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Quote Originally Posted by zeddy View Post
    Hi Goa

    So, we ask you again, do you really want flashing cells?????

    zeddy
    Hi Zeddy,

    I have this codes, i want to set column 'D' with conditional value of 5 if found till the end of column. Flash it.
    Have a look.
    Code:
    'Place this in a Standard Module
     
    Option Explicit 
    Public RunWhen As Double 
     
    Sub StartBlink() 
        If Range("A1").Interior.ColorIndex = 3 Then 
            Range("A1").Interior.ColorIndex = 6 
        Else 
            Range("A1").Interior.ColorIndex = 3 
        End If 
        RunWhen = Now + TimeSerial(0, 0, 1) 
        Application.OnTime RunWhen, "StartBlink", , True 
    End Sub 
     
    Sub StopBlink() 
        Range("A1").Interior.ColorIndex = xlAutomatic 
        Application.OnTime RunWhen, "StartBlink", , False 
    End Sub 
     
     
     
     
     'Then Place this code into the code module of the specific worksheet you want to work with
     
    Option Explicit 
    Public CellCheck As Boolean 
     
    Private Sub Worksheet_Change(ByVal Target As Excel.Range) 
         
         'Change the IF statement and cell range to what you need
        If Range("A1") = "1" And CellCheck = False Then 
            Call StartBlink 
            CellCheck = True 
        ElseIf Range("A1") <> "1" And CellCheck = True Then 
            Call StopBlink 
            CellCheck = False 
        End If 
         
    End Sub

  5. #5
    WS Lounge VIP
    Join Date
    Mar 2002
    Location
    Newcazzle, UK
    Posts
    2,826
    Thanks
    136
    Thanked 482 Times in 459 Posts
    Hi Goa

    See attached file for my example of 'multiple-cell' blinking.
    Macros need to be enabled.

    You can set the value to be 'blinked' in cell [A1]
    As you change the entry in cell [A1], the corresponding values anywhere in column [D] will blink.
    You can choose your blink rate via the dropdown in cell [A6]
    You can change the blink colour in the code.

    Entering Stop in cell [A1] (or any value not found in column [D] ) will cause the blinking to stop.
    The values in column [D] can be formulas.

    I'm sure our other helpers on the Forum can tweak this example a little more.
    (Over to you RG, Steve, Maud et al)

    zeddy
    Attached Files Attached Files

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •