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

[mole999]

Me, I thought we having fun, not being 'PC'

 

[spcalan]

I thought you'd made a typo... and I was thinking ... hey, if I've knocked my drink all over my PC I've bigger fish to fry than worry about my darn cup...

I always get weary when people here at work request me to send this to them.. because I know they are wanting to send it to other people so I always have to put my disclaimer on it.. lol.

 

[Oorang]

Can't remember if this one was posted or not, but it's an obnoxious little one liner:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Has a 50/50 chance of moving randomly. The rest of the math is to just to
    'make sure the cell moved to exists.
    Randomize: If Round(Rnd) Then Target.Offset(Fix(32767& * Rnd + 1&) * ((Target.Row > 32767&) * 2& + 1&), Fix(127& * Rnd + 1&) * ((Target.Column > 127&) * 2& + 1&)).Select
End Sub

 

[mole999]

combine that with hiding the row and column reference and maximizing to full screen with no tool or scroll bars and you have a winner. Maybe an add timer event that shuts it off after 7 mins, long enough to be annoying and wonder how to fix it

 

[Makrini]

Long enough so that your friendly Excel expert gets called over - only to find a perfectly normal operating spreadsheet...

Could always make sure you delay getting there long enough to never find anything wrong..

 

[mole999]

put it on sheet 2 or 3, so that it is used infreqently

 

[Jonnyu182]

In "ThisWorkbook" put this

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim Hzz As Integer
NeedForsSpeed = Int((5 * Rnd) + 1)
If NeedForsSpeed = 1 Then
Do
Hzz = Int((200 * Rnd) + 1)
Speed_Up_Calc Hz:=Hzz
Loop Until Hzz < 10
End If
End Sub

then drop this in a module

Declare Function Beep Lib "kernel32.dll" (ByVal dwFreq As Long, _
ByVal dwDuration As Long) As Long

Function Speed_Up_Calc(Hz As Integer)
retval = Beep(Hz, 100)   ' on NT, a 800 Hz tone for 1 seconds
End Function

hehehe.

 

[Oorang]

This might make a few folks scratch their head:

ActiveSheet.DisplayRightToLeft = not ActiveSheet.DisplayRightToLeft

 

[spcalan]

In "ThisWorkbook" put this

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim Hzz As Integer
NeedForsSpeed = Int((5 * Rnd) + 1)
If NeedForsSpeed = 1 Then
Do
Hzz = Int((200 * Rnd) + 1)
Speed_Up_Calc Hz:=Hzz
Loop Until Hzz < 10
End If
End Sub

then drop this in a module

Declare Function Beep Lib "kernel32.dll" (ByVal dwFreq As Long, _
ByVal dwDuration As Long) As Long
 
Function Speed_Up_Calc(Hz As Integer)
retval = Beep(Hz, 100)   ' on NT, a 800 Hz tone for 1 seconds
End Function

hehehe.

.. Not sure on what this does... nothing happened on my end..

 

[spcalan]

This might make a few folks scratch their head:

ActiveSheet.DisplayRightToLeft = not ActiveSheet.DisplayRightToLeft

This works great, but how would you change it to change all open worksheets ( not just the one I place it in? ).