Good Excel Practical Jokes, Pranks, Mean Tricks, etc.

[GaryR]

BUMP! GREAT STUFF! HAHAHAHA!

 

[erik.van.geit]

BUMP! GREAT STUFF! HAHAHAHA!

You've not seen the last of us!
Aaaaaaaaarrrrrrghhhhhhhh!!!

 

[Lewiy]

Time to throw another into the mix then I guess

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns(Target.Row).ColumnWidth < 20 Then
    Columns(Target.Row).ColumnWidth = 20 * (1 + (Rnd() / 2))
    Else
        Columns(Target.Row).ColumnWidth = 10 * (Rnd() / 2)
End If
End Sub

 

[MDaly]

Is there a way to invoke XP hotKeys? I'd love to make a button rotate the acreen with cntrl-Alt-down. When I use Sendkeys it does nothing.

 

[spcalan]

Well here is my confession.

I once worked for a company for 10 years.
I have a A+ spreadsheets that compared orders with all the raw materials needed for production.

It was only 800 rows in Excel.
I wrote a nasty little code that everytime it was opened, a row was deleted ( very subtle ).

After I left I got a call to come back and fix it, for a flat fee of $500.
Which I did ( hehe ).

 

[spcalan]

Re: IT MAY OR MAY NOT WORK

It worked on some computers in the office but it did not work on all. Try this, hit Ctrl+Alt+the Down Arrow. It will turn the screen upsided down, to reverse it hit Ctrl+Alt+the up arrow

This is the best ( and safe )

 

[Jonmo1]

Re: IT MAY OR MAY NOT WORK

How about in an open event code...

put in code to save the file first of coarse

ActiveSheet.Cells.Merge

 

[Oorang]

Is there a way to invoke XP hotKeys? I'd love to make a button rotate the acreen with cntrl-Alt-down. When I use Sendkeys it does nothing.

You can do it with an API call (ChangeDisplaySettingsEx). The function documentation is here: http://msdn.microsoft.com/en-us/library/ms533235(VS.85).aspx

And the how-to is here: http://msdn.microsoft.com/en-us/library/aa927391.aspx

 

[MorganO]

Well here is my confession.

I once worked for a company for 10 years.
I have a A+ spreadsheets that compared orders with all the raw materials needed for production.

It was only 800 rows in Excel.
I wrote a nasty little code that everytime it was opened, a row was deleted ( very subtle ).

After I left I got a call to come back and fix it, for a flat fee of $500.
Which I did ( hehe ).

I for one do not find this 'Joke' at all funny. Purposefully deleting information and then charging to fix it? That's criminal.

A Practical Joke, Prank, etc, is meant to be annoying, yet harmless. Something that makes the recipient of the joke laugh along with the perpetrator after the joke is over.

Your 'joke' does not meet this intent.

 

[Oorang]

Yah have to agree with MorganO. There is a fine line between "joke" and "extortion".