Macros en excel

Macro para determinar números primos.


 Dim primo As Boolean
    Dim n As Long
    Dim d As Long
    n = Val(InputBox("Introduce un número natural", "Entrada de Datos"))
    d = 2
    primo = True
    Do While primo And d < n
        If n Mod d = 0 Then
            primo = False
        End If
        d = d + 1
    Loop
    If primo Then
        MsgBox (n & " es primo")
    Else
        MsgBox (n & " no es primo")
    End If

Macro mensaje cuando abre y cierra excel.
 Dim hora As Double
    Dim saludo As String
    hora = (Now - Int(Now)) * 24
    Select Case hora
        Case 6 To 14
            saludo = "Buenos días"
        Case 14 To 21
            saludo = "Buenas tardes"
        Case Else
            saludo = "Buenas noches"
        End Select
    MsgBox saludo & " Amo"

Macro que pregunta si se desea salir de la aplicación

Sub SalirAplic()
    If MsgBox("¿Quiere salir de la aplicación", vbQuestion + vbYesNo, "Ultima pregunta") = vbYes Then
        Application.Quit
    End If
End Sub


Chequen esta pagina y juegen un rato con los macros.


http://excelavanzado.com/xls/piedras.xls