miércoles, 23 de noviembre de 2011

Especificaciones del Trabajo a entregar para calificación Final

Investigar una funcionalidad o truco avanzado de excel que puda ser explicable en clase, este debe ser de algo no visto en clase durante el curso.
Se pueden de ayudar de herramientas como CamStudio que es un software libre que te permite grabar lo que sucede en la pantalla de tu computadora.

Críterios a Evaluar:

- Presentación personal.
- Dominio y conocimiento del tema.
- Uso de herramientas tecnológicas.
- Atención de la clase.
- Tiempo mínimo de 10 minutos.

lunes, 14 de noviembre de 2011

Macro Práctica edad

Function CalEdad(Fnacimiento As Date)
    Dim Fecha As Date
    CalEdad = Abs(DateDiff("yyyy", Fnacimiento, Date))
    Fecha = DateAdd("YYYY", CalEdad, Fnacimiento)
    If Fecha > Date Then CalEdad = CalEdad - 1
End Function

Práctica 3.9

De número a texto.

Miguel Fernando Juárez Moyrón
502.

Practica 3.3 Kassandra Cordova Mensaje Prueba Saludo

Mensaje

Practica 3.7 BB PIN KASSANDRA

BB PIN

Practica 3.6 Kassandra Cordova Left Right Mod

Left Right mod

Practica 3.2 Macro Automatica

Auto

Practica 3.5 Parte 2 Calculadora

Parte 2

Calculadora Parte 1 Practica 3.4

Parte 1

practica 3.6

https://docs.google.com/open?id=0B4b0D88H-MS7NzJiZjhjYmUtNzllNC00NTJjLTkzM2ItZjk0NDg1ZjliMDc1

practica 3.4

https://docs.google.com/open?id=0B4b0D88H-MS7Nzc0YjViNjEtZjBlOC00NjhmLWIzOGItOTQ5ZjE4YjFkZmNj

sábado, 12 de noviembre de 2011

Información para el Examen sobre Macros en Excel

Aquí les dejo este documento para que puedan estudiar para su examen, que tengan bonito fin de semana.

Macros en Excel

viernes, 11 de noviembre de 2011

Código Macro Fibonacci

Sub fibonacci()
Cells(1, 2) = Int(Rnd() * 10)
Cells(2, 2) = Int(Rnd() * 10)
i = 1
Do While i < 21
    Cells(i + 2, 2) = Hoja1.Cells(i, 2) + Cells(i + 1, 2)
    i = i + 1
    Cells(i + 1, 2).Select
Loop
End Sub