martes, 28 de mayo de 2013

Macro para modificar el ZOOM de una hoja de cálculo Excel 2007 - 2010.


Modificar el ZOOM de una hoja de cálculo en Excel 2007 y 2010.

Para aumentar o disminuir el Zoom de una hoja de cálculo en Excel 2007 y 2010 debemos utilizar los siguientes códigos:


ActiveWindow.Zoom = 10 ...El zoom de la hoja es del 10%
ActiveWindow.Zoom = 50 ...El zoom de la hoja es del 50%
ActiveWindow.Zoom = 100 ...El zoom de la hoja es del 100%
ActiveWindow.Zoom = 200 ...El zoom de la hoja es del 200%



En nuestro Curso de Macros podrás aprender a crear potentes aplicaciones que te ayudarán a ahorrar gran cantidad de tiempo al crear reportes, informes, consolidar datos, etc.


Publicaciones relacionadas: 

Macro para mostrar y ocultar las líneas de cuadrícula en Excel.


Ocultar las líneas de cuadrícula con Macro.

Para ocultar o mostrar las líneas de cudrícula con macros utilizamos los siguientes códigos:

ActiveWindow.DisplayGridlines = False - Ocultar líneas de cuadrícula

ActiveWindow.DisplayGridlines = True - Mostrar líneas de cuadrícula

La siguiente imagen muestra la hoja de Excel con las líneas de cuadrícula ocultas.


Macros para dar formato a textos y a celdas en Excel.


Macros que te servirán para dar formato a textos y a celdas en Excel.


Dar formato a textos o a celdas por medio de Macros es algo indispensable para cualquiera que se quiere iniciar en este maravilloso mundo de Macros en Excel. Los siguientes códigos te ayudarán a crear procedimientos para dar formato a tus textos.

Estos códigos trabajan con la celda activa.

ActiveCell.Font.Bold = True ...Convierte en Negritas la fuente (texto) de la celda activa.
ActiveCell.Fonto.Bold = False ...Desactiva las Negritas de la celda activa.


Si quieres especificar la celda que tiene que cambiar a Negritas entonces debes poner Range, Ejemplo:

Range("A1").Font.Bold = True ...'Convierte en negritas la fuente de la celda A1.


Para convertir a negritas un rango de celdas escribimos:

Range("A1:A10").Font.Bold = True ...'Convierte en negritas la fuente del rango de celdas A1:A10.


También puedes seleccionar la celda A1 y después cambiar el formato a Cursiva de la celda seleccionada:

Range("A1").Select ...'Selecciona la celda A1
Selection.Font.Italic = True ...'Convierte a Cursiva la celda seleccionada



Para subrayar el texto de la celda A1 utilizamos:

Range("A1").Font.Underline = xlUnderlineStyleSingle 


Si queremos doble subrayado:

Range("A1").Font.Underline = xlUnderlineStyleDouble


Podemos también cambiar el nombre y tamaño de la fuente de la celda A1:

Range("A1").Font.Size = 16
Range("A1").Font.Name = "Arial"




O el color de la fuente de A1:

Range("A1").Font.ColorIndex = 5 ...'Convierte a color azul la fuente de la celda A1. 
Range("A1").Font.Color = RGB( 255, 0 , 0 ) ...'Convierte a color rojo la fuente de la celda A1.




Si quieres conocer los números de color que aplican a ColorIndex sigue este link  Macro obtener los 56 colores de ColorIndex Excel VBA.


Se utiliza Interior para cambiar el color de una celda en lugar de Font:

Range("A1").Interior.ColorIndex = 5 ...'Convierte a color azul la celda A1. 
Range("A1").Interior.Color = RGB( 255, 0 , 0 ) ...'Convierte a color rojo la celda A1.




Para combinar celdas utilizamos MergeCells:

Range("A1:B1").MergeCells = True ...'Combina las celdas A1:B1.


Para descombinarlas utilizamos:

Range("A1:B1").MergeCells = False


Si deseamos ajustar el texto ponemos WrapText:

Range("A1:B1").WrapText = True ...'False si queremos deshabilitar el ajuste de texto.


Con estos sencillos códigos ya podemos crear una macro que cambie los formatos de las diferentes celdas o rangos a nuestro gusto y de manera automática.


En nuestro
 Curso de Macros podrás aprender a crear potentes aplicaciones que te ayudarán a ahorrar gran cantidad de tiempo al crear reportes, informes, consolidar datos, etc.


Contáctanos: atencioncap@ecapmexico.net
Teléfono en Guadalajara: (52) 33 1404-6565 

Macro para mostrar y ocultar títulos de filas y columnas en Excel 2007 - 2010.


Mostrar y ocultar títulos.
Si queremos ocultar los títulos de filas y columnas con macros debemos utilizar los siguientes códigos:

ActiveWindow.DisplayHeadings = False ...'Oculta títulos de filas y columnas
ActiveWindow.DisplayHeadings = True ...'Muestra títulos de filas y columnas

Para ocultar los títulos de filas y columnas al abrir un libro de Excel debemos de escribir el siguiente código en ThisWorkbook que se encuentra en el Explorador de Proyectos.


Sub
 Workbook_Open()

ActiveWindow.DisplayHeadings = 
False 

End Sub


Función DESREF para modificar un rango de suma según cierto criterio.


La función DESREF de Excel. OFFSET en inglés.

DESREF.

Sintaxis = DESREF(Ref, Filas, Columnas, Alto, Ancho)

Descripción.

La función DESREF sirve para cambiar la referencia de una celda o un rango según los argumentos asignados. Es de gran utilidad cuando queremos que un rango que estamos calculando cambie su altura o su longitud.


Tiene 5 argumentos.

Ref: Es la celda de referencia donde comienza nuestro rango.

Filas: Es el número de filas que se va a desplazar hacia arriba (-1, -2, -3, ...) o  hacia abajo (1, 2, 3, ...) la celda de referencia.

Columnas: Es el número de columnas que se va a desplazar hacia la izquierda (-1, -2, -3, ...) o  hacia la derecha (1, 2, 3, ...) la celda de referencia.

Alto: Es el número de celdas de alto de nuestro rango.

Ancho: Es el número de columnas de ancho de nuestro rango,


En la siguiente imagen utilizamos la función SUMA anidada con DESREF para hacer una sumatoria de las ventas entre Enero y Junio, dependiendo el número de meses que deseamos sumar (celda A1), DESREF hará la modificación del rango para la sumatoria.

Podemos ver que la función está sumando las ventas de Enero y Febrero, ya que la celda A1 indica que debemos sumar los primeros dos meses.





En la función DESREF asignamos como primer argumento la celda B2 que es nuestra celda de referencia.

=SUMAR(DESREF(B2, 0, 0, 1, A1)

Como NO deseamos mover dicha referencia ni filas ni columnas, dejamos los siguientes dos argumentos en 0.

=SUMAR(DESREF(B2, 00, 1, A1)

El 4to argumento indica la altura de nuestro rango. Una fila de alto.

=SUMAR(DESREF(B2, 0, 0, 1, A1)

La celda A1 indica las columnas de ancho de nuestro rango, en este caso son 2.

=SUMAR(DESREF(B2, 0, 0, 1, A1)


Si queremos sumar hasta Abril entonces capturamos un 4 en la celda A1, ejemplo:



Trabajar con este tipo de funciones sirve para crear reportes dinámicos donde queremos obtener extraer información que nos permita poder analizar datos de una forma automática.

En lugar de escribir el número en la celda A1, podemos configurar un Cuadro combinado y seleccionar el mes de la lista y que nos devuelva el número del mes que necesitamos.

La siguiente imagen muestra el resultado utilizando la lista del Cuadro combinado. Al seleccionar Abril devuelve un 4 en la celda A1.



Si quieres saber cómo configurar el Cuadro combinado en Excel 2010 sigue este link Cuadro combinado, control de Formulario para mostrar una lista desplegable. Excel 2010.
Esta y muchas otras funciones las podrás aprender en nuestro curso de Excel Avanzado para Contabilidad, Administración y Finanzas.


Contáctanos: atencionecap@ecapmexico.net



Macro para ocultar o mostrar las barras de desplazamiento horizontal y vertical en en Excel 2007 y 2010.


Ocultar o mostrar las barras de desplazamiento horizontal y vertical en Excel 2007 y 2010.
Si queremos diseñar una hoja de cálculo donde no deben estar visibles las barras de desplazamiento horizontal y vertical debemos usar los siguientes códigos:


ActiveWindow.DisplayVerticalScrollBar = 
True ...Muestra la barra de desplazamiento vertical

ActiveWindow.DisplayVerticalScrollBar = False ...Oculta la la barra de desplazamiento vertical
ActiveWindow.DisplayHorizontalScrollBar = True ...Muestra la barra de desplazamiento horizontal
ActiveWindow.DisplayHorizontalScrollBar = False ...Oculta la barra de desplazamiento horizontal

Esta imagen muestra la hoja de cálculo con las barras de desplazamiento horizontal y vertical ocultas.





En nuestro
 Curso de Macros podrás aprender a crear potentes aplicaciones que te ayudarán a ahorrar gran cantidad de tiempo al crear reportes, informes, consolidar datos, etc.

Publicaciones relacionadas: Macro para mostrar y ocultar las etiquetas de las hojas de cálculo Excel 2007 - 2010.

Contáctanos: atencioncap@ecapmexico.net


Cómo mostrar más documentos recientes en Excel 2007 y 2010.

Aumentar el número de documentos recientes en Excel 2007 y 2010.

Para aumentar el número de documentos recientes que se muestran en Excel 2007 primero debemos entrar al Botón de Office > Opciones de Excel (en Excel 2010 entramos a Archivo > Opciones) > Avanzadas > en el apartado "Mostrar" aumentamos el número de documentos  recientes, en este ejemplo aumentamos a 15.




Si entramos al botón de Office en 2007 o al menú Archivo en Excel 2010, se muestran los 15 archivos más recientes.




En nuestro
 Curso de Excel Avanzado podrás aprender muchas herramientas que te ayudarán a mejorar notablemente tu trabajo diario.


Contáctanos: 
atencioncap@ecapmexico.net