Calendario Excel

Calendario en Excel con VBA
01/12/2012 by Fernando Santos | 0 comments
Un calendario es una cuenta sistematizada del transcurso del tiempo, utilizado para la organización cronológica de lasactividades humanas.
El funcionamiento de este calendario es sencillo, pregunta a través de un INPUTBOX la fecha desde donde queremos que comience el calendario, y tras todo el proceso de cálculo, trasladaa la Hoja de Excel, a partir de la celda B4, la cabecera de mes y día de la semana, y los días del mes correspondientes.
Pasos a seguir para crear un calendario en Excel con VBA.
En la hoja decálculo de Excel, se insertan los comandos de los controlex activex, como se muestran en la siguiente imagen.

En el botón de “GENERAR CALENDARIO”, se programa el siguiente código, que nos permitirágenerar un calendario anual.
Private Sub CommandButton1_Click()
Dim i As Integer
Dim fecha As Date
Dim aumento As Integer
Dim s As Integer
Dim contador
Range(“B4″).SelectApplication.ScreenUpdating = False
s = 1
fecha1 = CDate(InputBox(“INGRESE FECHA, CON EL FORMATO dd/mm/aaaa, Ejemplo: 01/01/2013 “))
contador = 0
For aumento = 0 To 11
contador = contador + 1
fecha2 =DateSerial(Year(fecha1), Month(fecha1) + aumento, Day(fecha1))
fecha = DateSerial(Year(fecha2), Month(fecha2), Day(fecha2))
año = Year(fecha)
mes = Month(fecha)
inicio = Weekday(DateSerial(año, mes, 1), vbSunday)fin = Day(DateSerial(año, mes + 1, 1) – 1)
j = 1
p = inicio
For x = 1 To fin
ActiveCell.Offset(j – 1, p – 1) = x
ActiveCell.Offset(-2, 0).Value = DateSerial(año, mes, 1)
ActiveCell.Offset(-2,0).NumberFormat = “mmmm-yyyy”
ActiveCell.Offset(-2, 0).Interior.ColorIndex = Int(Rnd * 55) + 1
ActiveCell.Offset(-1, 0).Value = “Do”
ActiveCell.Offset(-1, 1).Value = “Lu”
ActiveCell.Offset(-1,2).Value = “Ma”
ActiveCell.Offset(-1, 3).Value = “Mi”
ActiveCell.Offset(-1, 4).Value = “Ju”
ActiveCell.Offset(-1, 5).Value = “Vi”
ActiveCell.Offset(-1, 6).Value = “Sá”
If p = 7 Then
p = 0
j = j +...