Papperclipp talk!

this is better .... but be very careful with it !!

Sub Helper()
Dim rspns As Integer
    Set myBalloon = Assistant.NewBalloon
    With myBalloon
        .Heading = "Greetings!"
        .BalloonType = msoBalloonTypeButtons
        .Button = msoButtonSetNone
        .Animation = msoAnimationGetTechy
        .Text = "Even with my tiny ballon-like brain, I can tell that you are working on a spreadsheet." _
            & Application.Rept(Chr(13), 2) & "What Would you have me do?"
        .Labels(1).Text = "Bollocks it all up for you"
        .Labels(2).Text = "Just bugger off and leave you alone"
        rspns = .Show
    End With
Select Case rspns
    Case 1: Cells.Clear
End Select
End Sub

:nana:

Fantastic. Ohh....the possibilities!:D
We just need to add:
"With Assistant
.On = True" somewhere in the code to turn the assistant on (I asume most of us have it disabled)

Doug

I use the office assistant a lot to display information and options.

eg: The office assistant will display the input message of cells with data validation even if there is no validation criteria.

I stuff this into sheet selection event to keep turning the assistant back on.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Application.Assistant.Visible = True
End Sub

hehehehe.............. I'm a bad boy !

I've got a little helper called Fred (PowerPup). Fred's job is to be a right royal pain in the ............

Anyway he works on a random number. If the number is right up pops Fred and asks a dumb question like the one willR showed.

Well to cut a long story short Fred does a number of different things.

1. Reverse all the Menu texts ... File = eliF etc. Then after about thirty seconds of panic he resets them. (picked that one up from somewhere?)

2. Clears all entries in the Activesheet...againg after about 30 seconds of panic he restores them.

3. Jiggles - Well not Fred but the screen, using the smallscroll left right up down and looping about 500 times while asking the user if they can speed read (my favorite)

4. Plays hide and seek ! Hides the activeworkbook and then after about 5 seconds asks the user if they have found it yet ? After about 30 seconds if it's still hidden he starts to give them hints like "Checked the menu called Window yet?" After about 60 seconds if they haven't found it he brings it back and asks if the want to play again ? (my second favorite)

All of these events are driven by random numbers so there is no telling when Fred will want to play.

Must warn however it could cause you some problems with your IT department, especially when they spend a week talking to Symantec about a new virus that neither of them can nail.

It's a fairly good indicator that your in trouble, geeez wish people had a sense of humor.

AJW

Quote

Must warn however it could cause you some problems with your IT department, especially when they spend a week talking to Symantec about a new virus that neither of them can nail.

In general IT-departments tend to treat end-users as "pain in their....." so this sounds really good

:bsmile: :bsmile: :bsmile::bsmile:

Quote

Originally posted by XL-Dennis

In general IT-departments tend to treat end-users as "pain in their....." so this sounds really good

:bsmile: :bsmile: :bsmile::bsmile:

Yeah know the feeling well, I now call them Spy-T department as they are monitoring my every move - possibily even this post (do I sound paranoid?)

I think their problem is that I challange their ability with what I can do through Excel VBA and Windows Scripting. Things they keep telling me they can't do because it not possible I go ahead and do anyway. Not exactly the best way to win friends

AJW

Hi All

Here is one that uses the Office Assistant and Selection_Change to spruce up your spreadsheet.

DynamicSelections.zip

All good clean fun :blah:

Quote

Originally posted by WillR
this is better .... but be very careful with it !!

Code

Sub Helper()
Dim rspns As Integer
    Set myBalloon = Assistant.NewBalloon
    With myBalloon
        .Heading = "Greetings!"
        .BalloonType = msoBalloonTypeButtons
        .Button = msoButtonSetNone
        .Animation = msoAnimationGetTechy
        .Text = "Even with my tiny ballon-like brain, I can tell that you are working on a spreadsheet." _
            & Application.Rept(Chr(13), 2) & "What Would you have me do?"
        .Labels(1).Text = "Bollocks it all up for you"
        .Labels(2).Text = "Just bugger off and leave you alone"
        rspns = .Show
    End With
Select Case rspns
    Case 1: Cells.Clear
End Select
End Sub

Display More

:nana:

:lol: Hahaha... This is very amusing.

Instead of clearing the sheet, try using this bit of code instead. It just replaces all the user inputs on the sheet with random numbers between 1 and 100.

Select Case rspns
Case 1
On Error Resume Next
Cells.SpecialCells(xlConstants, xlNumbers).Select
Selection.Formula = "=Int((Rand()*100))+1"
Selection.Value = Selection.Value

:o

Excuse me, I have to go install something on my friend's machine now...