Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

Guia 3 de Macros

Descargar como doc, pdf o txt
Descargar como doc, pdf o txt
Está en la página 1de 5

GUIA # 3 DE EXCEL

Programando directamente en código

DESARROLLO DE UN EJEMPLO:

1. CREAR LA SIGUIENTE PLANILLA:

2. Activar la barra de herramientas de Visual Basic

3. Para ir al código de programación:

Haga un clic en el botón EDITOR


DE VISUAL bASIC

Elija la opción VER del menú y luego la opción CODIGO (aparecerá una ventana en blanco, con el
cursor activado)

4. Para crear un procedimiento (Macro) deberá digitar primero:

Sub nombre del procedimiento( ) (no debe incluir espacios ni caracteres en


el
nombre, salvo el carácter "_" )

Luego presione la tecla ENTER y notará que se crea al final el comando End Sub

Entre estas dos líneas se crea el código de la macro.

Para el ejemplo, el nombre de la macro será Calculo_Notas

Profesor: Héc tor E. Montenegro Monsalves


Instrucciones para macros

PARA SELECCIONAR UNA CELDA O RANGO DE CELDAS

Range ("celda o rango de celdas").Select

En nuestro ejemplo:

1) Digite Range("I3").Select (ubicará el cursor en la celda I3)

2) Para ver el resultado, vuelva a excel haciendo un clic en el botón VER MICROSOFT EXCEL

3) Asocie el método abreviado CTRL - a a la macro (herramientas - macro - macros -


botón Opciones)

4) Ubique el cursor en cualquier celda que no sea la I3, y ejecute la macro

PARA INGRESAR DATOS O FORMULAS A UNA CELDA

Selection.Formula="dato o fórmula"

En nuestro ejemplo:

1) Digite en la siguiente línea del código

Selection.Formula = "NOTA FINAL"

2) Vuelva a excel y ejecute la macro

PARA UBICARSE EN UNA CELDA CON RESPECTO A OTRA

Selection.Offset(nº de fila,nº de columna).Select

Profesor: Héc tor E. Montenegro Monsalves


Nº de fila : si es positivo bajará tantas celdas como indique el número

Si es negativo, subirá tantas celdas como indique el número

Nº de columna : Si es positivo avanzará tantas columnas como indique el número

Si es negativo retrocederá tantas columans como indique el número

En nuestro ejemplo, agregue la siguiente línea al código:

Selection.Offset(1, 0).Select (bajará una celda y se ubicará en la I4)

(el cero indica no moverse de la columna)

PARA INGRESAR UNA FORMULA

Selection.Formula="=formula"

Considere que la referencia a celdas se hará de acuerdo a la celda en que se esté ubicado en ese
Momento.

REFERENCIA A CELDAS

R[nº]C[nº]

R Indica fila (si el número es positivo hace referencia a una celda ubicada hacia abajo)

C indica columna (si el número es positivo hace referencia a una celda ubicada hacia la derecha)

Si desea hacer referencia a celdas en la misma fila o misma columna:

RC[Nº] : Fija la fila

R[nº]C : Fija la columna

En nuestro ejemplo, Agregue la siguiente línea al código:

Selection.Formula = "=RC[-6]*0.3+RC[-4]*0.45+RC[-2]*0.25"

Vuelva a excel y ejecute la macro

Profesor: Héc tor E. Montenegro Monsalves


PARA COPIAR UNA CELDA A UN RANGO

Range("coordenada de origen").Copy Range("coordenadas de destino")

En nuestro ejemplo, agregue la siguiente línea al código:

Range("I4").Copy Range("I5:I8")

Vuelva a excel y ejecute la macro

PARA DAR FORMATO NUMERICO A UN RANGO DE CELDAS

Selection.NumberFormat="formato deseado"

En nuestro ejemplo, agregue la siguiente línea al código:

Range("I4:I8").Select
Selection.NumberFormat = "0.0"

Vuelva a excel y ejecute la macro

PARA ALINEAR UN RANGO DE CELDAS

Range("I4:I8").Select
With Selection
.HorizontalAlignment = xlCenter
End With

PARA APLICAR COLOR DE FONDO A UN RANGO DE CELDAS

Range("I4:I8").Select
With Selection.Interior
.ColorIndex = 7
End With

PARA APLICAR COLOR A LA FUENTE

Range("I4:I8").Select
Selection.Font.ColorIndex = 3

Profesor: Héc tor E. Montenegro Monsalves


(Los colores son : 1(negro), 2(blanco), 3(rojo), 4(verde), 5(azul), 6(amarillo), 7(lila))

Profesor: Héc tor E. Montenegro Monsalves

También podría gustarte