Sub Why_I_Am_Full()
Dim info&, x&
info = MsgBox("Having just eaten the starter, are you now full?", vbYesNoCancel)
If info = vbCancel Then
MsgBox "What's wrong? Not full any more?"
Exit Sub
ElseIf info = vbNo Then
MsgBox "If you're not full, why are you trying to find out why you are full?"
Exit Sub
Else
x = Int((9 * Rnd) + 1)
Select Case x
Case Is = 1: MsgBox "Your eyes are bigger than your stomach"
Case Is = 2: MsgBox "You already had a meal one hour ago"
Case Is = 3: MsgBox "You've been scoffing too much junk food"
Case Is = 4: MsgBox "You've got a small appetite"
Case Is = 6: MsgBox "The restaurant gave you a main course portion by mistake"
Case Is = 7: MsgBox "The starter was supposed to be for six persons"
Case Is = 8: MsgBox "The diet pills are doing their job"
Case Is = 9: MsgBox "Don't eat starters that use only potatoes"
End Select
End If
End Sub
Book3 | ||||||
---|---|---|---|---|---|---|
A | B | C | D | |||
1 | ||||||
2 | SoddingDimensionsFor: | Nothavinganaccidentwhilstracingfriendtohospital | ||||
3 | ||||||
4 | Urgency | 9 | ||||
5 | Complexity | 4 | ||||
6 | Importance | 7 | ||||
7 | Skill | 5 | ||||
8 | Frequency | 1 | ||||
9 | ||||||
10 | AggravationConstant | 0.7 | ||||
11 | ||||||
12 | ((U+C+I)x(10-S))/20xAx1/(1-sin(F/10)). | |||||
13 | ||||||
14 | Soddinglevel | 0.349416958 | ||||
Sheet1 |
On the Sod's Law issue, the formula from British Gas is: ((U+C+I)...
NateO said:Nice type-declarations Sonny, a veteran move:
http://mindprod.com/unmaintricks.html
Here's the overview of why this is important:
http://mindprod.com/unmain.html