Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
Calendario 2013 excel

Calendario 2013 en Excel

| 0 comments

Se realizará un Calendario para el 2013 en el Excel, donde se empieza con el supuesto que las fechas ya se encuentran en otra Hoja del documento.

Se crearán comandos para las siguientes funciones:

Creación de un calendario nuevo: donde se usa el calendario que se encuentra en la Hoja 3 de este documento.

Calendario 2013 en Excel, calendario excel

Para la realización se usará el siguiente lenguaje de programación:

Sub nuevo_calendario()

Sheets(“Hoja3″).Select
Range(“B6:X38″).Select
Selection.Copy
Sheets(“Hoja1″).Select
Range(“B6″).Select
ActiveSheet.Paste
End Sub

- Calendario Azul o Verde: Donde las cabeceras de los calendarios (meses) serán de color azul o verde dependiendo de lo que se quiera.

Calendario 2013 en Excel, calendario excel

Calendario 2013 en Excel, calendario excel

La programación a emplear será la siguiente:

Sub calendario_azul()
Range(“b6:r6,b15:r15,b24:r24,b32:r32″).Select
Selection.Font.Bold = True
Selection.Font.Color = RGB(51, 51, 190)
End Sub

Sub calendario_verde()
Range(“b6:r6,b15:r15,b24:r24,b32:r32″).Select
Selection.Font.Bold = True
Selection.Font.Color = RGB(0, 204, 102)
End Sub

- Señalar Domingos: Donde, como en un calendario común, se mostrarán los días domingos de color rojo.

Calendario 2013 en Excel, calendario excel

Esto se realiza con la siguiente programación:

Sub domingos()
Range(“B9:b12,j9:j12,r9:r13,b18:b21,j18:j21,r18,r22,b27:b30,j27:j30,r26:r30,b35:b38,j35:j38,r34:r38″).Select
Selection.Font.Color = RGB(255, 51, 0)

End Sub

-Señalar Feriados: Donde se mostrarán los días como 1 de Enero, semana santa, etc. de color rojo en el calendario.

Calendario 2013 en Excel, calendario excel

Se adjunta la programación para esta opción:

Sub feriados()

Range(“d8,v12,w12,m17,c30,o30,d35,o34,u37″).Select
Selection.Font.Bold = True
Selection.Font.Color = RGB(255, 0, 0)

End Sub

- Borrar Calendario: Para el caso que se quiera dejar las celdas en blanco.

Sub borado_final()
Rows(“4:38″).Select
Selection.ClearContents
End Sub

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5