Daily posts of Excel tips…and other stuff
Leave it to Andy Pope to do the seemingly impossible in Excel. Using a chart and a scrollbar, he made a scrolling sign like the one I was dreaming about in my first Pixilation post. Oh yeah, I should mention that there are no macros. Amazing.
Download Pixilation.zip
Click on the thumbnail below for a preview.
Certain comments are subject to moderation and may not appear immediately. You can use HTML tags in your comment. If you include a greater-than or less-than sign or anything else that could be interpreted as HTML, your comment won't look nice. You need to escape those characters. To post VBA code in your comment, use [VB] tags, like this: [VB]Code goes here[/VB].
Juan Pablo G:
Amazing. Speechless.
13 August 2004, 2:12 pmDave Engle:
So now the question is - how do you automate a scroll bar and make it loop so that the marquee runs on its own?
13 August 2004, 7:08 pmDave Engle:
So now the question is - how do you automate a scroll bar and make it loop so that the marquee runs on its own?
13 August 2004, 7:08 pmDick:
For i = Sheet2.ScrollBar1.Min To Sheet2.ScrollBar1.Max
13 August 2004, 8:08 pmSheet2.Range(Sheet2.ScrollBar1.LinkedCell).Value = i
DoEvents ‘let it redraw the chart
For j = 1 To 1000 ’slow it down
Next j
Next i
Jon Peltier:
Another amazing trick by Andy Pope.
- Jon
13 August 2004, 10:36 pmHarald Staff:
Fantastic, Andy.
14 August 2004, 4:47 amTony:
Wow, that is just fantastic.
14 August 2004, 11:50 amRoss:
Brill, amazing, fan-tas-tic! well done Andy - and no macros!!!! and it’s scaleable.
Still not quite what you where actually aiming for though?
I think the way Andys’ used a matrix for each letter, just like you have described before, is a very good implementation of an idea – but can this be exploited using just cells?
Well done Andy!
15 August 2004, 7:40 amAndy Pope:
Glad you all like it.
Ross, if you select the range C11:BD17 on the LCD sheet and apply conditional formatting using the following formula =C11>0 setting the pattern to black you will get the same effect but within cells.
15 August 2004, 10:29 amross:
Very good Andy!
15 August 2004, 1:20 pmAndrew:
Great idea Andy.
16 August 2004, 10:33 amTim:
Dick, I am new to excel, tried your code to make it scroll, when I ran the code I got “can’t find project or library” with the i after for highlighted, any ideas what I am doing wrong? Thanks
16 August 2004, 12:23 pmDennis Wallentin:
Andy,
I rarely bother to comments stuff but no policy without any exception
This one rocks - Excellent work Andy!
16 August 2004, 1:59 pmDick:
Tim: Go to Tools - References in the VBE and note any entries that are MISSING. Remove them if possible.
16 August 2004, 3:46 pmTim:
Dick, that did it thanks, the part
16 August 2004, 9:08 pmFor j = 1 To 1000 ’slow it down
Next j
does not look like it slows down, I change the numbers but did not see any change, is this what it is for?
hane:
cool, once I figured out message must be typed in ALL CAPS (sorry didn’t mean to be rude)
16 August 2004, 9:41 pmJuan Pablo G:
Hane,
You can add more letters or characters, just go to the first sheet, and there you’ll find the instructions.
16 August 2004, 9:53 pmDick:
Tim: It depends on how fast your computer is. For me that slowed it down just enough, but if you have a superfast computer you may need to scale that up by a factor of 10 or even more. Or remove it entirely if it’s too slow already.
hane: Andy added the lower case ‘a’, I assume for illustrative purposes. I add the lower case ‘b’ just to see how to do it. Now if we could pass the file around to everyone who reads this blog and everyone adds one letter, we’d be done in no time.
16 August 2004, 9:58 pmNitin:
Andy Pope you are The GOD of Excel
26 March 2006, 5:12 amAex Z:
Good job. I simplified formula a little bit, using functions MOD and INT and added cycle by Slice and random noise.
But how to upload file here?
Aex Z, alex.zolotDELETE.IT@gmail.com
8 August 2007, 1:04 pm