PDA

View Full Version : Looking for a few good Macros

IOlIlOlIlOlOI
01-11-2003, 06:10 PM
Does anyone have some useful Actuarial Excel macros? I have a few, e.g. fill triangle with formula, update last diagonal, etc. I was interested in knowing if anyone else has other that are helpful.

Thanks.

the mole
01-12-2003, 11:56 AM
I just wrote one to comply with a Calvinball rule Ultimate Anyone? invoked. It won't have much ongoing value.

MathGuy
01-13-2003, 09:32 AM
I use macros mainly for the geek-high:

Sub Macro3()
Cells.Select
Selection.ColumnWidth = 2
ActiveWindow.ScrollColumn = 1
Rows(&quot;1:256&quot;).Select
Selection.Interior.ColorIndex = 0
ActiveWindow.Zoom = True
ActiveWindow.DisplayGridlines = False
[a1].Select
z = 50
For i = 1 To 256
For j = 1 To 256
a = (i / 256) * 4 - 2
b = (j / 256) * 4 - 2
c = a
d = b
e = 0
For n = 0 To z
If (c ^ 2 + d ^ 2) &gt; 4 Then
e = e + 1
n = z + 1
Else
e = e + 1
c = c ^ 2 - d ^ 2 + a
d = 2 * c * d + b
End If
Next n
[a1].Offset(j - 1, i - 1).Interior.ColorIndex = e
Next j
Next i
End Sub

Obi-Wan Kenobi
01-13-2003, 10:04 AM
Fractals are soooooooooo 1980's :roll:

:P

MathGuy
01-13-2003, 10:22 AM
Perhaps, but every time I run that macro, it makes me feel happy.

Obi-Wan Kenobi
01-13-2003, 01:23 PM
Can't argue with that.

01-13-2003, 04:35 PM
Option Explicit

Public Sub Disappear()
Dim Z As Double

Z = Timer
'DEATH!!
Application.Visible = False

MsgBox "BYE-BYE!"

Do Until Timer > Z + 10
'NOTHING AT ALL!
Loop

'RESURRECTION!
Application.Visible = True

MsgBox "SCARED YA, HUH?"

End Sub
:D