Announcement

Collapse
No announcement yet.

Flashing Text In A Cell

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Flashing Text In A Cell

    Hello,

    This might sound daft, but im just wondering if it is possible to Flash text 2 different colours in a cell.

    Cell A1 will say - - - Well done
    and I want it to flash blue and red, but not use VBA to do it.

    Can it be done or am I wishful thinking? This would be on Office 97.

    Thanks

  • #2
    Re: Flashing Text In A Cell

    I very much doubt you can do it without VBA.

    Comment


    • #3
      Re: Flashing Text In A Cell

      Only way I can think of would be to use conditional formatting based upon the second of the time. Normally use the mod 2 to alternate the color. Only issues then is with calculation.
      Rich

      www.imits.co.uk - for all your training and development needs!

      Comment


      • #4
        Re: Flashing Text In A Cell

        Originally posted by Badger101
        Only way I can think of would be to use conditional formatting based upon the second of the time. Normally use the mod 2 to alternate the color. Only issues then is with calculation.
        Thanks, I dont suppose you could give an exaple could you? Im not sure exactly what you mean.

        Comment


        • #5
          Re: Flashing Text In A Cell

          VBA solution only.
          Blinking text

          But I strongly advise against it.

          Cheers
          Andy

          Comment


          • #6
            Re: Flashing Text In A Cell

            Prompted by Badger's suggestion, this is the closest I could get but it's hardly flashing and only seems to update if you refresh or select the cell. Perhaps it can be improved upon
            CF formula is:
            =MOD(SECOND(NOW()),2)=0
            and change the text colour.

            Comment


            • #7
              Re: Flashing Text In A Cell

              You can do it with VBA.
              Code:
              Option Explicit
              
              Public RunWhen As Double
              
              Sub StartBlink()
                  If Range("k8").Interior.ColorIndex = 3 Then
                      Range("k8").Interior.ColorIndex = 6
                  Else
                      Range("k8").Interior.ColorIndex = 3
                  End If
                  RunWhen = Now + TimeSerial(0, 0, 1)
                  Application.OnTime RunWhen, "StartBlink", , True
              End Sub
              
              Sub StopBlink()
                  Range("k8").Interior.ColorIndex = xlAutomatic
                  Application.OnTime RunWhen, "StartBlink", , False
              End Sub
              Hope that Helps

              Roy

              New users should read the Forum Rules before posting

              For free Excel tools & articles visit my web site

              If I have helped you and you feel like putting your hand in your pocket please make a donation to Children in Need

              RoyUK's Web Site

              royUK's Database Form

              Where to paste code from the Forum

              About me.

              Comment

              Working...
              X