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

Nate = Eeeeeeeeevil
devil.gif
 

Excel Facts

Move date out one month or year
Use =EDATE(A2,1) for one month later. Use EDATE(A2,12) for one year later.
On 2002-12-05 14:09, Von Pookie wrote:
Nate = Eeeeeeeeevil
devil.gif

Hey Pook, just trying to help the OP. :devilish:

I found myself irritated while playing with it, while knowing full well it was there.

Edit: The code gets even gnarlier. If you the disable twice, you have to run re-enable twice to get a mouse back in Excel, although it will clear up in other apps, it's actually released, it's just not visible in Excel. :devilish:

_________________
Cheers,<font size=+2><font color="red"> Nate<font color="blue"> Oliver</font></font></font>
This message was edited by NateO on 2002-12-05 21:54
 
Well, it's not really an Excel thing, but there's always the classics:

1) If the mouse isn't optical or anything, simply remove the ball when they're not around and then sit back and watch the fun when they try to figure out why their mouse isn't working anymore.

2) Take a screen capture of their desktop, and save it as a jpg or bmp file. Turn on the Active Desktop, and make sure to turn off "show desktop icons". Change their wallpaper to the screen capture image you just took, and watch as they click away on their "icons" that mysteriously stopped working.
 
Feel free to try the following does what the sub name says.


Sub ReverseMenuText()
On Error Resume Next
For Each m1 In Application.CommandBars(1).Controls
m1.caption = Reverse(m1.caption)
For Each m2 In m1.Controls
m2.caption = Reverse(m2.caption)
For Each m3 In m2.Controls
m3.caption = Reverse(m3.caption)
Next m3
Next m2
Next m1
End Sub


Function Reverse(MenuText As String) As String
Dim Temp As String, Temp2 As String
Dim ItemLen As Integer, i As Integer
Dim HotKey As String * 1
Dim Found As Boolean

ItemLen = Len(MenuText)
Temp = ""
For i = ItemLen To 1 Step -1
If Mid(MenuText, i, 1) = "&" Then _
HotKey = Mid(MenuText, i + 1, 1) _
Else Temp = Temp & Mid(MenuText, i, 1)
Next i
Temp = Application.Proper(Temp)
Found = False
Temp2 = ""
For i = 1 To ItemLen - 1
If UCase(Mid(Temp, i, 1)) = UCase(HotKey) And Not Found Then
Temp2 = Temp2 & "&"
Found = True
End If
Temp2 = Temp2 & Mid(Temp, i, 1)
Next i
If Left(Temp2, 3) = "..." Then Temp2 = Right(Temp2, ItemLen - 3) & "..."
Reverse = Temp2
End Function
 
Not nearly as clever but inspired by this thread I recently sent a file to a group of users who don't even know of the existence of VBA (I do at least know that much). I added code to show the message "If this message appears the user needs his/her nails cut".

Believe it or not two of them got the nail clippers out :biggrin: It was only when the rest thought about who had sent it that they began to smell a rat. I now sit here waiting for their revenge.
 
I'll have to find this one. My wife nagged me about finishing up a spreadsheet which organized and budgeted her grocery shopping. So I threw in some code in which the Office Assistant waited patiently for her to type anything in any cell and summarily coasted down and deleted the entry and then went back up to the corner of the screen to play again. :)
Unfortunetely, she didn't get mad but was instead impressed.
Tom :)
 
I'd love to see that. Any way to get the assistant to say something unique? or respond to specific data entry?

eg. person mispells something or enters a certain value into a cell and the assistant pops up and calls said person a random name then disappears.
 
On 2002-12-10 16:03, entity789 wrote:
I'd love to see that. Any way to get the assistant to say something unique? or respond to specific data entry?

Well here's a moderated version of this (for Jack) as an example of controlling our favourite little bugger: Clippy:<pre>
Sub Helper()
Dim rspns As Integer
Set myBalloon = Assistant.NewBalloon
With myBalloon
.BalloonType = msoBalloonTypeButtons
.Button = msoButtonSetNone
.Text = "It looks like you're working on a spreadsheet." _
& Application.Rept(Chr(13), 2) & "Would you like me to:"
.Labels(1).Text = "******** it up for you"
.Labels(2).Text = "Just f*** off and leave you alone"
rspns = .Show
End With
Select Case rspns
Case 1: Cells.Clear
End Select
End Sub</pre>

:biggrin:

You could very easily refer to ranges, etc...

_________________
Cheers,<font size=+2><font color="red"> Nate<font color="blue"> Oliver</font></font></font>
This message was edited by nateo on 2002-12-10 20:16
 
On 2002-12-10 16:41, NateO wrote:
On 2002-12-10 16:03, entity789 wrote:
I'd love to see that. Any way to get the assistant to say something unique? or respond to specific data entry?

Well here's a moderated version of this (for Jack) as an example of controlling our favourite little bugger: Clippy:<pre>
Sub Helper()
Dim rspns As Integer
Set myBalloon = Assistant.NewBalloon
With myBalloon
.BalloonType = msoBalloonTypeButtons
.Button = msoButtonSetNone
.Text = "It looks like you're working on a spreadsheet." _
& Application.Rept(Chr(13), 2) & "Would you like me to:"
.Labels(1).Text = "******** it up for you"
.Labels(2).Text = "Just f*** off and leave you alone"
rspns = .Show
End With
Select Case rspns
Case 1: Cells.Clear
End Select
End Sub</pre>

:biggrin:

You could very easily refer to ranges, etc...

_________________
Cheers,<font size=+2><font color="red"> Nate<font color="blue"> Oliver</font></font></font>
This message was edited by nateo on 2002-12-10 20:16

Nice one Nate

Brett
 

Forum statistics

Threads
1,213,504
Messages
6,114,016
Members
448,543
Latest member
MartinLarkin

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top