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

[Michael M]

Yep, Tina is correct.
If you do a google for this there are a few sites that will tell you the other keystrokes for certain video drivers.

 

[ClimoC]

I don't think I've seen anyone mention Application.Speech yet?

I have a workbook-app which shouldn't be saved, and has a Before_Save capture to cancel, but because the On-Open event tells you in a msgbox "Don't save this workbook please, just save your outputs from it" - so as a part of the Before_Save gets cancelled, I use Application.Speech to tell them off.

What I want to work on next is some API function to change the volume on the PC so that it embarrasses them. So up the volume, and then something like

Application.Speech.Speak "Stop Violating me, I'm only a child!"

Then see if they do that same action EVER AGAIN... >

 

[ClimoC]

just thinking about it, you could combine this with a Worksheet_Change trap so that it reads out EVERYTHING they ever click or enter into a cell. That'd drive you bonkers.

 

[Gerald Higgins]

Apologies if this has been mentioned before, I haven't read the whole thread

A friend recently told me about the "Sheet right-to-left" function which I wasn't previously aware of.
It's an icon for the toolbars, or alternatively

ActiveSheet.DisplayRightToLeft = True

Does this have any practical application, or is it just there to mess with people's heads ?

 

[litrelord]

It's an icon for the toolbars, or alternatively

ActiveSheet.DisplayRightToLeft = True

Does this have any practical application, or is it just there to mess with people's heads ?

Just makes it easier if you're working in Hebrew, Arabic or another of the right to left languages. Also good for messing with people's head though

Perhaps you could combine right to left with a routine that wraps any number that's input in the BAHTTEXT function.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sFormulaExtract As String

'blanks seem to count as numeric so check the cell isn't blank
If IsNumeric(Target.Value) And Not Target.Value = "" Then

    'grab the formula
    Let sFormulaExtract = Target.Formula

    'remove the = so we double have 2 of them
    sFormulaExtract = Replace(sFormulaExtract, "=", "")

    'place the formula back but with the bahttext formula
    'wrapped around it
    Target.FormulaR1C1 = "=BAHTTEXT(" & sFormulaExtract & ")"

    'change to left because you're evil and don't
    'think bahttext is confusing enough
    If Not ActiveSheet.DisplayRightToLeft Then _
    ActiveSheet.DisplayRightToLeft = True

End If

End Sub

And this should undo it but no promises so please save first etc.

Sub EnoughNow()
Dim sWorkingFormula As String
Dim cell

'make sure you've not still got the selection change
'code working or it'll all change straight back again!

For Each cell In Selection

    'check whether bahttext has been added
    If Left(cell.Formula, 5) = "=BAHT" Then
    
            Let sWorkingFormula = cell.Formula
            
            'remove last bracket
            Let sWorkingFormula = Left(sWorkingFormula, Len(sWorkingFormula) - 1)
            
            'remove bahttext formula
            Let sWorkingFormula = Replace(sWorkingFormula, "=BAHTTEXT(", "=")
            
            'put formula back how it was because you're actually
            'a nice person deep down - just a bit misunderstood
            cell.Formula = sWorkingFormula
    
    End If

Next

'change the screen back
If ActiveSheet.DisplayRightToLeft Then ActiveSheet.DisplayRightToLeft = False

End Sub

Have fun

Nick

 

[Gerald Higgins]

Just makes it easier if you're working in Hebrew, Arabic or another of the right to left languages.

I must admit I'm not familiar with Hebrew, Arabic, or any of the other R2LLs.

BUT, I would imagine that the R2L function does not actually do what you're suggesting, because it doesn't reverse cell contents.
It just flips the columns, and some other screen elements, like tabs, scroll bars etc, to R2L.
Contents of individual cells remains readable L2R, at least in English anyway.
I can understand why switching cell contents to R2L is useful, for things like checking whether a string is a palindrome and so on.
But this ?

 

[litrelord]

I must admit I'm not familiar with Hebrew, Arabic, or any of the other R2LLs.

BUT, I would imagine that the R2L function does not actually do what you're suggesting, because it doesn't reverse cell contents.

I'm afraid i know very little about these languages too but I wondered whether if you're language was set to one of the R2Ls (on the pc that is, though having a 'back of the head' switch could be very useful too) this would still be the case?

 

[schielrn]

Doing research on google all I keep finding is:

Microsoft Office provides right-to-left (right-to-left: Refers to keyboard settings, document views, user interface objects, and the direction in which text is displayed. Arabic and Hebrew are right-to-left languages.) functionality and features designed to support languages that work in a right-to-left or a combined right-to-left, left-to-right environment for text entering, editing, and display.

 

[MrKowz]

Fun with Application.Speech.Speak"

Public Sub lol()
Dim x As Long
Application.Speech.Speak "This is the song that never ends!"
Application.Speech.Speak "Yes it goes on and on my friend!"
Application.Speech.Speak "Some people starting singing it, not knowing what it was!"
Application.Speech.Speak "And we'll continue singing it forever just because!"
Application.Speech.Speak "This is the song that never ends!"
Do
    x = Application.RandBetween(1, 4)
    Select Case x
        Case 1
            Application.Speech.Speak "This is the song that never ends!"
        Case 2
            Application.Speech.Speak "Yes it goes on and on my friend!"
        Case 3
            Application.Speech.Speak "Some people starting singing it, not knowing what it was!"
        Case 4
            Application.Speech.Speak "And we'll continue singing it forever just because!"
        Case Else
    End Select
Loop
End Sub

 

[SuperFerret]

Fun with Application.Speech.Speak"

Public Sub lol()
Dim x As Long
Application.Speech.Speak "This is the song that never ends!"
Application.Speech.Speak "Yes it goes on and on my friend!"
Application.Speech.Speak "Some people starting singing it, not knowing what it was!"
Application.Speech.Speak "And we'll continue singing it forever just because!"
Application.Speech.Speak "This is the song that never ends!"
Do
    x = Application.RandBetween(1, 4)
    Select Case x
        Case 1
            Application.Speech.Speak "This is the song that never ends!"
        Case 2
            Application.Speech.Speak "Yes it goes on and on my friend!"
        Case 3
            Application.Speech.Speak "Some people starting singing it, not knowing what it was!"
        Case 4
            Application.Speech.Speak "And we'll continue singing it forever just because!"
        Case Else
    End Select
Loop
End Sub

ARGH!! You just had to put it didn't you... that's going to be in my head ALL day now!