Apunte de Excel Con VBA

Excel con VBA
Excel con Visual Basic Para Aplicaciones (VBA)
Excel con VBA
Parte 1:
Caractersticas Generales
Excel con VBA
INTRODUCCIN Esencialmente la programacin de Excel se reduce a la manipulacin de objetos (mediante la escritura de instrucciones en un lenguaje que Excel puede entender), mediante el lenguaje VBA. VBA est pensado como un lenguaje de secuencia de comandos de aplicacin de Microsoft comn y ahora est incluido en las aplicaciones de Office 2000 (e incluso en aplicaciones de otros fabricantes). Por consiguiente, al dominar VBA usando Excel se podr entrar directamente en la escritura de macros para otros productos de Microsoft. Mejor an, se pueden generar soluciones completas que usan opciones a travs de varias aplicaciones.
3
Excel con VBA
INTRODUCCIN
El secreto de usar VBA con otras aplicaciones reside en entender

el modelos de objetos para cada aplicacin. VBA simplemente manipula objetos, y cada producto (Excel, Word, Access, PowerPoint y dems) posee un modelo de objeto nico propio. Por ejemplo Excel expone varios objetos de anlisis de datos muy potentes como las hojas de clculo, grficos, tablas dinmicas, escenarios y numerosas funciones matemticas, financieras y temas generales. Con VBA se puede trabajar con estos objetos y disear procedimientos automatizados.
4
Excel con VBA
EL NCLEO DE VBA Las acciones de VBA se realizan mediante la ejecucin del cdigo VBA.El cdigo VBA se escribe (o se graba) y se guarda en un mdulo VBA. Los mdulos se guardan en un libro de trabajo de Excel pero se editan o visualizan en el editor de Visual Basic. Un mdulo VBA se compone de procedimientos. Un procedimiento es bsicamente un cdigo de ordenador que realiza alguna accin sobre los objetos o con ellos. Sub Prueba() Sum= 1+1 MSGBox La respuesta es & Sum End Sub
5
Excel con VBA
EL NCLEO DE VBA Un mdulo VBA puede tener tambin procedimientos Function. Un procedimiento Function devuelve un solo valor. Se puede llamar una funcin desde otro procedimiento VBA o usar una frmula de hoja de clculo. Function AadirDos(arg1, arg2) AadirDos= arg1 + arg2 End Function VBA manipula los objetos contenidos en su aplicacin anfitriona (en este caso Excel).
Excel con VBA
EL NCLEO DE VBA Excel proporciona ms de 100 clases de objetos para manipular. Ejemplos de objetos son un libro de trabajo, una hoja de clculo, un rango de una hoja de clculo, un grfico y un rectngulo dibujado. Existen muchos ms objetos a nuestra disposicin y se pueden manipular mediante el uso de cdigo VBA. Las clases de objetos estn ordenados jerrquicamente. Los objetos pueden actuar como contenedores de otros objetos. Por ejemplo, Excel es un objeto llamado Applcation y contiene otros objetos como WorkBook y CommandBar. El objeto WoorkBook puede contener otros objetos como WorkSheet y Chart. Un objeto WoorkSheet puede contener objetos como Range, PivotTable y dems. Nos referimos al orden de estos objetos como modelo de objeto de Excel.
7
Excel con VBA
EL NCLEO DE VBA Objetos similares forman una coleccin. Por ejemplo, la coleccin WorkSheets est compuesta por todas las hojas de clculo de un libro concreto. La coleccin CommandBars est compuesta por todos los objetos CommandBar. Las colecciones son objetos en s mismas. Cuando nos referimos a un objeto contenido o miembro, estamos especificando su posicin en la jerarqua del objeto, usando un punto como seprador entre el contenedor y el miembro. Application.WorkBooks(Libro1.xls) Esto se refiere al libro de trabajo Libro1.xls en la coleccin WorkBooks.
8
Excel con VBA
EL NCLEO DE VBA Nos podemos referir a la Hoja1 del Libro1 como Application.WorkBooks(Libro1.xls).WorkSheets(Hoja1) Si se quiere omitir una referencia especfica a un objeto, Excel usa los objetos activos.Si el libro1 es el libro de trabajo activo, la referencia anterior se puede simplificar a WorkSheets(Hoja1).Range(A1) Si se sabe que la Hoja1 es la hoja activa, se puede incluso simplificar ms Range(A1)
9
Excel con VBA
EL NCLEO DE VBA Los objetos tienen propiedades. Se puede pensar en una propiedad como en una configuracin para un objeto. Por ejemplo, un objeto Range tiene propiedades como Value y Name. Un objeto Chart tiene propiedades como HasTitle y Type. Se puede usar VBA para determinar las propiedades del objeto y tambin para cambiarlas. Nos podemos referir a propiedades para combinar el objeto con su propiedad, separados por punto. Por ejemplo nos podemos referir al valor de la celda A1 de la Hoja1 como WorkSheets(Hoja1).Range(A1).Value
10
Excel con VBA
EL NCLEO DE VBA Se pueden asignar valores a variables de VBA.Para asignar un valor en la celda A1 de la Hoja1 a una variables llamada Inters, use la siguiente instruccin VBA: Inters = WorkSheets(Hoja1).Range(A1).Value Los objetos disponen de mtodos.Un mtodo es una accin que se realiza con el objeto. Por ejemplo, uno de los mtodos para el objeto Range es ClearContents. Este mtodo borra el contenido del mtodo. Se pueden especificar mtodos mediante la combinacin del objeto con el mtodo, separados por punto. Range (A1).ClearContents VBA tambin incluye todas las estructuras de lenguajes de programacin modernos, como matrices, bucles y de ms.
11
Excel con VBA
EL EDITOR DE VISUAL BASIC
Para activar el editor de Visual Basic puede usar alguna delas siguientes tcnicas: Presionar ALT+F11 Seleccionar HERRAMIENTAS MACRO EDITOR DE VISUAL BASIC Hace clic sobre el botn Editor de Visual Basic, sitiado en la barra de herramientas de Visual Basic
12
Excel con VBA
VENTANAS DEL EDITOR DE VISUAL BASIC
13
Excel con VBA
VENTANAS DEL EDITOR DE VISUAL BASIC El Editor de Visual Basic est compuesto de varias ventanas partes :
Barra de mens Barras de herramientas Ventana Explorador de proyectos. Presenta un diagrama de rbol que contiene cada libro de trabajo que est actualmente abierto en Excel. Cada libro de trabajo es un proyecto. Si esta ventana no esta abierta hay que presionar Control+R. Para esconder la ventana, hay que hacer clic en el botn Cerrar de su narra de ttulo. Ventana cdigo. Una ventana de cdigo, o ventana de mdulo, contiene un cdigo VBA. Cada elemento de un proyecto tiene asociada una ventana de cdigo. Para visualizar una ventana de cdigo para un objeto, hay que hacer doble clic sobre el objeto en la ventana del Explorador de proyectos. Ventana inmediato. Esta ventana es til para ejecutar instrucciones de VBA directamente, probar las instrucciones y limpiar el cdigo. Para abrir esta ventana presione Control+G, para ocultarla basta hacer clic sobre el botn Cerrar de su barra de ttulo.
14
Excel con VBA
AADIR UN NUEVO MDULO DE VBA Para aadir un nuevo mdulo de VBA a n proyecto, hay que seleccionar el nombre del proyecto en la ventana Explorador de proyectos y seleccionar INSERTAR MODULO. Cuando se graba una macro, Excel inserta automticamente un mdulo VBA para contener el cdigo grabado. QUITAR UN MDULO VBA Hay que seleccionar el nombre del mdulo en la ventana del Explorador de proyectos y elegir ARCHIVO QUITAR.
15
Excel con VBA
GUARDAR UN CDIGO VBA En general una ventana de cdigo puede soportar cuatro tipos de cdigo: Procedimientos Sub. Conjuntos de instrucciones que ejecutan alguna accin. Procedimientos Function. Es un conjunto de instrucciones que devuelven un solo valor. Procedimientos Property. Son procedimientos especiales que se usan en mdulos de clase. Declaraciones. Es informacin acerca de una variable que se le proporciona aVBA. Un solo mdulo de VBA puede guardar cualquier cantidad de procedimientos Sub, procedimientos Function y declaraciones.
16
Excel con VBA
INTRODUCIR UN CDIGO VBA Sub Hola() Msg = Su nombre es &Application.UserName & ? Ans = MsgBox(Msg, vbYesNo) If Ans = VbNo Then MsgBox No se preocupe Else MsgBox Debo ser clarividente! End If End Sub
17
Excel con VBA
INTRODUCIR UN CDIGO VBA
18
Excel con VBA
EJECUTAR UN CDIGO VBA Para ejecutar el procedimiento Hola es necesario asegurarse que el cursor est situado en cualquier parte del texto introducido. Despus se puede optar por uno de los siguientes mtodos: Presionar F5 Seleccionar Ejecutar, Ejecutar Sub/UserForm Hacer clic sobre el botn Ejecutar, Ejecutar Sub/UserForm
19
Excel con VBA
USAR EL GRABADOR DE MACROS El siguiente ejemplo muestra la forma de grabar una macro que simplemente cambia la configuracin de pgina de orientacin vertical a horizontal. 1) Activar una hoja de clculo del libro activo 2) Seleccionar el comando HERRAMIENTAS MACRO GRABAR NUEVA MACRO 3) Hacer cli en Aceptar para aceptar las opciones predeterminadas 4) Seleccionar el comando ARCHIVO CONFIGURAR PGINA 5) Seleccione la opcin Horizontal y haga clic en Aceptar 6) Haga clic en el botn detener grabacin
20
10
Excel con VBA
Sub Macro1() (Ejemplo parte ' Macro1 Macro ' Macro grabada el 15/11/00 por PRI00 ' With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0)
1)
.RightMargin = Application.InchesToPoints(0) .TopMargin = Application.InchesToPoints(0)

21
Excel con VBA
.BottomMargin = Application.InchesToPoints(0) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = -4 .CenterHorizontally = False .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 100 End With End Sub
(Ejemplo parte 2)
22
11
Excel con VBA
A menudo el cdigo producido cuando se graba una macro es excesivo. La macro anterior se puede simplificar a : Sub Macro1() ' Macro1 Macro ' Macro grabada el 15/11/00 por PRI00 With ActiveSheet.PageSetup .Orientation = xlLandscape End With End Sub
23
Excel con VBA
PERSONALIZAR EL ENTORNO DEL EDITOR DE VB La ficha Editor

Si est configurada la opcin sugerencias de datos automticas, el editor de VB presenta el valor de la variable sobre la que esta situada el cursor cuando se est depurando un cdigo. Seleccionar la opcin de sangra automtica determina si el editor de VB realiza automticamente una sangra en cada lnea de cdigo nueva igual que la de la lnea anterior. Tambin puede colocar sangras con la tecla tab, o desde la barra de herramientas edicin. Cuando se encuentra activa la opcin modificar texto mediante arrastrar y colocar permite copiar y mover texto mediante dicha tcnica. La opcin vista completa predeterminada del mdulo configura el estado predeterminado de los mdulos nuevos (no afecta a los existentes). Si se selecciona, los procedimientos de la ventana cdigo aparecern como una sola ventana con barras de desplazamiento. Si se desactiva esta opcin slo se podr ver un solo procedimiento a la vez. Cuando se selecciona la opcin separador de procedimientos, presenta unas lneas 24 separadoras al inicio y al final del procedimiento de una ventana de cdigo.
12
Excel con VBA
PERSONALIZAR EL ENTORNO DEL EDITOR DE VB La ficha Formato del editor
La opcin colores del cdigo permite establecer el color del texto (de primer plano o de fondo), as como el color del indicador desplegado para varios elementos de cdigo VBA. La opcin fuente permite seleccionar la fuente que se va usar en los mdulos de 25 VBA
Excel con VBA
PERSONALIZAR EL ENTORNO DEL EDITOR DE VB La ficha Formato del editor

La configuracin del tamao especifica el tamao de fuente de los mdulos de VBA. El tamao predeterminado es 10. La opcin barra indicadora al margen controla el despliegue de la barra indicadora del margen vertical de los mdulos. Es til cuando se est depurando el cdigo.
La ficha General
En general las opciones predeterminadas suelen ser muy tiles.
26
13
Excel con VBA
PERSONALIZAR EL ENTORNO DEL EDITOR DE VB La ficha Acoplar
Las configuraciones de esta ficha determinan el comportamiento de las diversas ventanas en el Editor de VB. Cuando una ventana est acoplada, se fija en un lugar a lo largo de los bordes de la ventana del VBE. Esto facilita la identificacin y localizacin de una ventana en particular. Generalmente las configuraciones 27 predeterminadas funcionan bien.
Excel con VBA
PERSONALIZAR EL ENTORNO DEL EDITOR DE VB El Examinador de Objetos

El Examinador de objetos es una herramienta muy prctica que presenta cada propiedad y mtodo para todos los objetos disponibles. Cuando se activa el VBE, se puede llamar al Examinador de objetos presionando F2, o seleccionando la opcin Ver Examinador de Objetos.
28
14
Excel con VBA
Parte 2:
Variables, Constantes, Expresiones y Tipos de Datos
29
Excel con VBA
VARIABLES Y TIPOS DE DATOS

El propsito principal de VBA es manipular datos. Algunos residen en objetos tales como rangos de hojas de clculo. Otros se guardan en las variables que se crean. Una variable es una localizacin de almacenamiento con nombre, dentro de la memoria del ordenador. VBA tiene algunas reglas relacionadas con los nombres de las variables: Se pueden usar caracteres alfabticos, nmeros y algn carcter de puntuacin, pero el primero de los caracteres debe ser alfabtico VBA no distingue entre maysculas y minsculas No se pueden usar espacios ni puntos No se pueden incrustar en el nombre de una variable los siguientes smbolos: #, $, %,! Los nombres de las variables pueden tener hasta 254 caracteres
30
15
Excel con VBA
TIPOS DE DATOS INTEGRADOS EN VBA

Tipo de dato
Byte Boolean Integer Long
Bytes usados
Rango de valores
1 0 a 255 2 Verdadero o Falso 2 -32.768 hasta 32.767 -2.147.483.648 hasta 4 2.147.483.647 -3.402823E38 a -1.401298E-4545 (para valores negativos) y 1.4012298E-45 a 3.42823E38 4 (para valores positivos) 8 8 Del 1 Enero, 0100 hasta 31 de 8 diciembre, 9999 4
Single Double Currency Date Object String (de longitud variable) String (de longitud fija)
31
Excel con VBA
MBITO DE LAS VARIABLES

El mbito de una variable determina el mdulo y el procedimiento en el que se puede usar una variable.
mbito Cmo se declara una variable en este mbito
Incluye instrucciones Dim, Static o Private dentro del procedimiento. Incluye una instruccin Dim antes del Al nivel de mdulo primer procedimiento de un mdulo. Incluye una instruccin Public antes del Todos los mdulos primer procedimiento de un mdulo. Un procedimiento
Variables locales
Una variable local es una variable declarada dentro de un procedimiento. Estas variables se pueden usar slo en el procedimiento en que se declararon. Cuando el procedimiento finliza, la variable deja de existir y Excel libera su memoria.
32
16
Excel con VBA
Variables locales
La manera ms comn de declarar una variable local es situarla dentro de una instruccin DIM. Sub MiSub() DIM x As Integer DIM First As Long DIM InerestRate As Single DIM TodaysDate As Date DIM UserName As String * 20 Aqu se sita el cdigo del procedimiento End Sub Esto tambin es vlido: DIM x As Integer, y As Integer, z As Integer Esto no es vlido: DIM x, y, z As Integer
33
Excel con VBA
Variables a nivel de mdulo

Algunas veces se desear que una variable est disponible para todos los procedimientos de un mdulo. Para ello, se declara la variable antes del primer procedimiento del mdulo (fuera de cualquier procedimiento o funcin). DIM fecha As Date Sub Dias() Aqu va el cdigo End Sub Sub Meses() Aqu va el cdigo End Sub
Variables Public
Para que una variable est disponible para todos los procedimientos de un proyecto de Vba, se declara la variable a nivel de mdulo con el uso de la palabra public. Public IntersAnual as Long
34
17
Excel con VBA
Variables Static
Las variables estticas son un caso especial. Se declaran a nivel de procedimiento y retienen su valor despus de que el procedimiento finaliza. Sub Ejemplo() Static Counter As Integer Aqu va el cdigo End Sub
35
Excel con VBA
CONSTANTES Declarar Constantes

Las constantes se declaran usando Const. Const NumTrim As Integer = 4 Const Inters = 0.05, Periodo = 12 Const Nombre Mod as String = Macros Presupuestos Public Const NombreApp As String = Aplicacin Presupuestos Al igual que las variables, las constantes tambin poseen un mbito. Para que una constante est disponible slo dentro de in determinado procedimiento, hay que declararla despus de Sub o Function para convertirla en una constante local. Para que una constante est disponible para todos los procedimientos de un mdulo, se tiene que declarar antes del primer procedimiento de un mdulo. Para que una constante est disponible para todos los mdulos de un libro de trabajo, hay que usar la palabra Public, y declarar la constante antes del primer procedimiento de un mdulo.
36
18
Excel con VBA
CONSTANTES Declarar Constantes

Excel y VBA contienen muchas constantes predeterminadas, que se pueden usar sin necesidad de declararlas; de hecho no es necesario conocer el valor de estas constantes para usarlas. Sub CalcManual() Application.Calculation = xlManual End Sub
TRABAJAR CON CADENAS

Existen dos tipos de cadenas en VBA: Cadenas de longitud fija, que se declaran con un nmero especfico de caracteres. La mxima longitud es de 65.536 caracteres. Cadenas de lingitud variable, que tericamente pueden tener hasta 2.000 milones de caracteres. Dim MiCadena As String * 50 Dim SuCadena As String
37
Excel con VBA
TRABAJAR CON FECHAS

Dim Hoy As Date Dim HoraInicio As Date Const PrimerDa As Date = #1/1/2001# Const MedioDa As date = #12:00:00#
EXPRESIONES DE ASIGNACIN
Una expresin de asignacin es una instruccin de VBA que realiza evaluaciones matemticas y asigna el resultado a una variable o aun objeto. VBA usa el signo igual = como operador de asignacin. x=1 Se puede usar una secuencia de x=x+1 continuacin (espacio seguido de x = (y * 2) / (z * 2) un signo de subrayado) para facilitar la lectura de expresiones FileOpen = true muy largas. Range(Ao). Value = 1995
38
19
Excel con VBA
OPERADORES ARITMTICOS + Suma, - Resta, * Multiplicacin, / Divisin, \ Divisin entera, Mod Resto, ^ exponencial, & Concatenacin OPERADORES COMPARATIVOS = Igual, < Menor, > Mayor, <= Menor o igual, >= Mayor o igual, <> Distinto OPERADORES LGICOS Not (negacin lgica, And (conjuncin lgica), Or (disyuncin lgica), XoR (exclusin lgica), Eqv (equivalencia en dos expresiones), Imp (implicacin lgica)
39
Excel con VBA
MATRICES
Una matriz es un grupo de elementos del mismo tipo que tienen un nombre comn; para referirse aun elemento especfico de una matriz se usa el nombre de la matriz y un nmero de ndice. Se puede declarar una matriz con DIM o Public como cualquier variable.
MATRICES DE UNA DIMENSIN

DIM MiMatriz(1 To 100) As Integer DIM MiMatriz (100) MiMatriz(1) = 20
MATRICES MULTIDIMESIONALES
DIM MiMatriz(1 To 100, 1 to 10) As Integer MiMatriz(1,2) = 20
40
20
Excel con VBA
VARIABLES DE OBJETO
Una variable de objeto es una variable que representa un objeto entero, como puede ser un rango o una hoja de clculo. Las variables de objeto son importante por dos razones: Pueden simplificar el cdigo Pueden hacer que el cdigo se ejecute ms de prisa. Se declaran con DIM o Public. Por ejemplo, la expresin siguiente declara AreaEntradaDatos como un objeto Range. Para ver como simplifican el cdigo, veamos un ejemplo sin usar variables de objeto: Sub VarSinObj(); Worksheets(Hoja1).Range(A1).Value = 124 Worksheets(Hoja1).Range(A1).Font.Bold = True Worksheets(Hoja1).Range(A1).Font. Italic = True End Sub
41
Excel con VBA
Esta rutina introduce un valor en la celda A1 de la HOJA1, del libro de trabajo activo, y despus aplica Negrita y cursiva a su contenido. Para reducir el cdigo se puede condensar la rutina con una variable de objeto. Sub VarObj(); Dim MiCelda As Range Set Micelda = Worksheets(Hoja1).Range(A1) MiCelda.Value = 124 MiCelda.Font.Bold = True MiCelda.Font. Italic = True End Sub
TIPOS DE DATOS DEFINIDOS POR EL USUARIO

VBA permite crear tipos de datos personalizados definidos por el usuario (un concepto ms parecido a los registros de Pascal o las estructuras de C). Type InfoClientes Empresa As String * 25 Los tipos de datos personalizados se definen Ventas As Long fuera de los procedimientos, en la parte superior del mdulo End Type
42
21
Excel con VBA
TIPOS DE DATOS DEFINIDOS POR EL USUARIO

DIM Clientes(1 To 100) As InfoClientes Se puede hacer referencia a una componente particular, de la siguiente manera: Clientes(1).Empresa Diseo Grfico Clientes(1).Ventas= 187000 Para copiar la informacin de Clientes(1) en Clientes(2) se puede hacer lo siguiente: Clientes(2) = Clientes(1)
FUNCIONES INTEGRADAS
Las funciones integradas de VBA no son las misma que las de Excel. La funcin UCASE de VBA, que convierte una cadena a maysculas es equivalente a la funcin MAYUSC de Excel. Para obtener la lista de funciones de Sub MostrarRaiz() VBA, se teclea en el cdigo VBA MiValor = 25 seguido de un punto. El Editor de VB RaizCuadrada = Sqr(MiValor) despliega una lista con todas las MsgBox RaizCuadrada funciones. End Sub 43
Excel con VBA
FUNCIONES INTEGRADAS
El objeto WorsheetFunction, que est contenido en el objeto Application, contiene todas las funciones de hoja de clculo que se pueden llamar desde los procedimientos VBA. Veamos un ejemplo para convertir un nmero decimal en nmero romano. Sub MostrarRomano ValorDecimal = 1999 ValorRomano = Application.WorsheetFunction.Romano(ValorDecimal) MsgBox ValorRomano End Sub Es importante saber que no se puede usar una funcin de hoja de clculo que tenga una funcin de VBA equivalente. Por ejemplo no se puede usar la funcin de hoja de clculo RAIZ, porque VBA tiene la funcin SQR. La siguiente sentencia da error: Application.WorksheetFunction.RAIZ(144)
44
22
Excel con VBA
Parte 3:
Manipulacin objetos y colecciones
45
Excel con VBA
VBA ofrece dos importantes dos importantes estructuras que pueden simplificar el trabajo con objetos y colecciones: Estructuras With ...End With Estructuras For Each...next
ESTRUCTURAS WITH...END WITH

Permite realizar mltiples operaciones en un solo objeto. Sub CambiarFuente() With Selection.Font .Name = Times New Roman .FontStyle = Bold Italic .Size = 12 .Underline = xlSingle .ColorIndex = 5 End With End Sub
46
23
Excel con VBA
ESTRUCTURAS FOR EACH...NEXT

Recordemos que una coleccin es un grupo de objetos relacionado. Por ejemplo, la coleccin WorkBooks es una coleccin de todos los objetos WorkBook abiertos. No es necesario saber la cantidad de elementos que existen en una coleccin para usar la estructura For Each...Next.
Sub ContarHojas() Muestra el nombres de las Dim Item As Worksheet hojas del libro de trabajo For Each Item In ActiveWorkbook.Sheets activo MsgBox Item.Name Next Item End Sub Sub VentanasAbiertas() Suma = 0 Cuenta el nmero de ventanas For Each Item In Windows abiertas Suma = Suma + 1 Next Item MsgBox Total de ventanas abiertas, & Suma End Sub 47
Excel con VBA
ESTRUCTURAS FOR EACH...NEXT

Cierra todos los libros de trabajo, excepto el activo
Sub CerrarActivo() For Each Book In Workbooks If Book.Name <> ActiveWorkbook.Name Then Book.Close Next Book End Sub
Sub ConvertirMayus() For Each Cell In Selection Cell.Value = UCASE(Cell.Value) Next Cell End Sub
Convierte a maysculas un rango previamente seleccionado
48
24
Excel con VBA
ESTRUCTURAS IF...THEN
Se usa para ejecutar una o ms instrucciones de forma condicional. La sintaxis general es: If condicin Then inst_verdaderas [Else inst_falsas] Sub Positivos() a = InputBox("Ingrese un nmero") If a > 0 Then MsgBox "Nmero Positivo" End If End Sub Ingresa un nmero, y si es mayor que cero muestra el mensaje Nmero Positivo
Sub Positivos_Negativos() a = InputBox("Ingrese un nmero") If a > 0 Then MsgBox "Nmero Positivo" Else _ MsgBox "Nmero negativo" End Sub
Ingresa un nmero, y si es mayor que cero muestra el mensaje Nmero Positivo, y si no Nmero Negativo
49
Excel con VBA
ESTRUCTURAS IF...THEN
Ingresa un nmero, y si es Sub Positivos_Negativos_Cero() mayor que cero muestra el a = InputBox("Ingrese un nmero") mensaje Nmero Positivo, si es menor que cero If a > 0 Then muestra el mensaje MsgBox "Nmero Positivo" Nmero Negativo, y si es ElseIf a < 0 Then cero muestra el mensaje MsgBox "Nmero negativo " Cero ElseIf a = 0 Then MsgBox " Cero " End If End Sub La funcin IIF de VBA es parecida a la funcin IF (SI) de Excel IIF(expresin, parte verdadera, parte falsa)
Sub Descuento() MsgBox IIf(Range("A1") = 0, "Cero", "Distinto de Cero") End Sub
50
25
Excel con VBA
ESTRUCTURAS SELECT CASE

La estructura Select Case es til para elegir entre tres o ms opciones Sub Positivos_Negativos_Cero() a = InputBox("Ingrese un nmero") Select Case a Case Is > 0 Msg = "Nmero Positivo" Case Is < 0 Msg = "Nmero negativo" Case Else Msg = "Cero" End Select MsgBox Msg End Sub
51
Excel con VBA

Sub Descuento1() Cantidad = InputBox("Introducir cantidad: ") Select Case Cantidad Case "": Exit Sub Case 0 To 24: Descuento = 0.1 Case 25 To 49: Descuento = 0.15 Case 50 To 74: Descuento = 0.2 Case Is >= 75: Descuento = 0.25 End Select MsgBox "Descuento: " & Descuento End Sub
52
26
Excel con VBA

Tambin se pueden anidar estructuras Select Case El siguiente procedimiento, verifica el estado de la ventana de Excel (maximizada, minimizada o normal) y despus presenta un mensaje describiendo dicho estado. Si el estado de la ventana de Excel es norma, el procedimiento verifica el estado de la ventana activa y despus presenta otro mensaje.
Sub AppWindow() Select Case Application.WindowState Case xlMaximized: MsgBox "App Maximizada" Case xlMinimized: MsgBox "App Minimizada" Case xlNormal: MsgBox "App Normal" Select Case ActiveWindow.WindowState Case xlMaximized: MsgBox "Libro Maximizado" Case xlMinimized: MsgBox "Libro Minimizado" Case xlNormal: MsgBox "Libro Normal" End Select End Select End Sub
53
Excel con VBA
BUCLES FOR...NEXT
Esta sentencia de iteracin se ejecuta un nmero determinado de veces Su sintaxis es: For contador = empezar To finalizar [Step valorincremento] [Instrucciones] [Exit For] [instrucciones] Next [contador] Sub SumaNmeros Sum = 0 For Count = 0 To 10 Sum = Sum + Count Next Count MsgBox Sum End Sub Suma los diez primeros nmeros naturales
54
27
Excel con VBA
BUCLES FOR...NEXT
Sub SumaNmerosPares Suma los nmeros pares Sum = 0 entre 0 y 10 For Count = 0 To 10 Step 2 Sum = Sum + Count Next Count MsgBox Sum End Sub Sub BuclesAnidados Dim MiMatriz(1 To 3, 1 To 3) Asigna el valor 2 a todos las casillas de una For i = 1 To 3 matriz de 3 x 3 For j = 1 to 3 MiMatriz(i,j) = 2 Next j Next i End Sub
55
Excel con VBA
BUCLES DO...WHILE
Do While se ejecuta mientras se verifica una condicin especificada. Do While puede tener cualquiera de estas dos sintaxis. Do [While condicion] [instrucciones] [Exit Do] [instrucciones] Loop Do [instrucciones] [Exit Do] [instrucciones] Loop [While condicion]
Sub DoWhileDemo() Do While IsEmpty(ActiveCell) ActiveCell.Value = 0 ActiveCell.Offset(1, 0).Select Loop End Sub
Mientras la celda activa este vaca se desplaza hacia abajo asignndole a cada celda el valor 0
56
28
Excel con VBA
BUCLES DO...UNTIL
El bucle se ejecuta hasta que la condicin llegue a ser verdadera. Do Until puede tener cualquiera de estas dos sintaxis. Do Until condicion] [instrucciones] [Exit Do] [instrucciones] Loop Do [instrucciones] [Exit Do] [instrucciones] Loop [Until condicion]
Sub DoUntilDemo() Do ActiveCell.Value = 0 ActiveCell.Offset(1, 0).Select Loop Until Not IsEmpty(ActiveCell) End Sub
57
Excel con VBA
Parte 4:
Procedimientos SUB con VBA
58
29
Excel con VBA
PROCEDIMIENTOS SUB DE VBA

EJEMPLO: Mover una hoja y grabarlo con el grabador de macros Sub MoverHoja() Sheets("Hoja3").Select Sheets("Hoja3").Move Before:=Sheets(1) End Sub Move es un mtodo que desplaza una hoja a otro lugar de un libro. Puede moverse hacia atrs (Before) o hacia delante (After). Cmo contar las hojas? Sub ContarHojas() For Each hoja In Worksheets Tambin se puede probar en la ventana de Inmediato: contar = contar + 1 ?ActiveWorkBook.Sheets.Count Next MsgBox "Cantidad de hojas " & contar End Sub
59
Excel con VBA

Cmo saber el nombre de una hoja? Probar en la ventana de Inmediato: ?ActiveWorkBook.Sheets(1).Name, aparecer el nombre de la primera hoja HOJA1. Configuracin general 1) Crear un libro de trabajo vaco con cinco hojas de clculo, llamadas Hoja1 ... Hoja5. 2) mover las hojas al azar para que no tengan un orden particular. 3) Guardar el libro de trabajo como Test.xls. 4) Activar el editor de VB y seleccionar el proyecto Personal.xls del Explorador de proyectos. Si Personal no aparece, grabar una macro (cualquiera) y como destino para la macro seleccionar libro de macros personal. 5) Insertar un nuevo mdulo de VBA (Insertar Mdulo). 6) Crear un procedimiento vaco llamado SortSheets.
60
30
Excel con VBA

7) Activar Excel. Usar el comando Herramientas, Macro, Macros (botn Opciones) para asignar una tecla de mtodo abreviado a la macro. La combinacin ControlMays-S puede ser una buena eleccin. Escribir el cdigo Sub SortSheets() Dim SheetNames() SheetCount = ActiveWorkbook.Sheets.Count ReDim SheetNames(1 To SheetCount) For i = 1 To SheetCount SheetNames(i) = ActiveWorkbook.Sheets(i).Name MsgBox SheetNames(i) Next i End Sub
61
Excel con VBA

Para probar el cdigo se activa el libro Test.xls, y se prueba la combinacin Control-Mays-S. Luego debera borrase la instruccin MsgBox.
Escribir el procedimiento de clasificacin

Sub BubbleSort(List) Dim First As Integer, Last As Integer Dim i As Integer, j As Integer, Temp As String First = LBound(List) Last = UBound(List) For i = First To Last - 1 For j = i + 1 To Last If List(i) > List(j) Then Temp = List(j) List(j) = List(i) List(i) = Temp End If Next j Next i End Sub
62
31
Excel con VBA

Sub SortSheets() Dim SheetNames() As String Dim i As Integer Dim SheetCount As Integer SheetCount = ActiveWorkbook.Sheets.Count ReDim SheetNames(1 To SheetCount) For i = 1 To SheetCount SheetNames(i) = ActiveWorkbook.Sheets(i).Name Next i Call BubbleSort(SheetNames) For i = 1 To SheetCount ActiveWorkbook.Sheets(SheetNames(i)).Move ActiveWorkbook.Sheets(i) Next i End Sub
63
Excel con VBA
Parte 5:
Procedimientos FUNCTION con VBA
64
32
Excel con VBA
PROCEDIMIENTOS FUNCTION DE VBA

Los procedimientos Function devuelven un solo valor (al igual que las funciones de hoja de clculo de Excel y las funciones incorporadas en VBA). Los procedimientos Function se pueden usar en dos situaciones: Como parte de una expresin en un procedimiento VBA En frmulas que se crean en una hoja de clculo Lo que no pueden realizar las funciones de hoja de clculo personalizadas Al disear funciones personalizadas, es importante entender una distincin clave entre funciones a las que se puede llamar desde un procedimiento VBA y funciones que se usan en frmulas de hoja de clculo. Los procedimientos de funcin usados en frmulas de hoja de clculo deben ser pasivos. Por ejemplo, un cdigo dentro de un procedimiento de funcin no puede manipular un rango. Es necesario recordar que una funcin devuelve un valor, no ejecuta acciones con objetos.
65
Excel con VBA

DECLARAR UNA FUNCIN [Private | Public ] [Static] Function nombre [(lista_argumentos)] [As tipo] [instrucciones] [Exit Sub] [instrucciones] [nombre = expresin] End Function Private. Opcional. Indica que el procedimiento Functiones accesible slo para otros procedimientos del mismo mdulo. Public. Opcional. Indica que el procedimiento es accesible para todos los procedimientos, de todos los proyectos activos de VBA. Static. Opcional. Indica que las variables del procedimiento Function se conservan entre llamadas. Sub. Requerido. Palabra clave que indica el principio de un procedimiento que devuelve un valor u otro dato.
66
33
Excel con VBA

DECLARAR UNA FUNCIN nombre. Requerido. Cualquier nombre de procedimiento Function vlido (Igual que las variables, pero no se pueden poner nombres de celdas, i.e., J34). Cuando finaliza la funcin, el resultado de un solo valor se asigna a su propio nombre. lista_argumentos. Opcional. Representa una lista de variables, encerradas entre parntesis, que reciben argumentos pasados al procedimiento. Para separar los argumentos se usa una coma. tipo. Opcional. Es el tipo de dato devuelto por la funcin. instrucciones. Opcional. Cualquier nmero de instrucciones de VBA vlidas. Exit Function. Opcional. Una instruccin que fuerza una salida inmediata del procedimiento Function antes de su conclusin formal. End Function. Requerido. Indica el final del procedimiento function.
67
Excel con VBA
EJECUTAR PROCEDIMIENTOS FUNCTION

Desde un procedimiento Function SumaMatriz(matriz() As Integer)
Dim i As Integer, suma As Integer suma = 0 For i = LBound(matriz) To UBound(matriz) suma = suma + matriz(i) Next SumaMatriz = suma End Function Sub LlamarSumaMatriz() Dim mat(5) As Integer Dim SumaTotal As Integer mat(1) = 4: mat(2) = 5: mat(3) = 8: mat(4) = 1: mat(5) = 2 SumaTotal = SumaMatriz(mat) MsgBox "La suma de la matriz es: " & SumaTotal End Sub
68
34
Excel con VBA

En una frmula de hoja de clculo usar funciones personalizadas en frmulas de hoja de clculo es como usar funciones integradas, excepto porque es necesario asegurarse de que Excel puede localizar el procedimiento Function. Si dicho procedimiento est localizado en el mismo libro de trabajo, no es necesario hacer nada especial. Si est localizado en un libro de trabajo diferente, se puede decir a Excel que lo encuentre. Para ello existen dos maneras: Preceder el nombre de la funcin con una referencia al archivo = MisFunciones.xls!ContarNombres(A1:A1000) Establecer una referencia al libro de trabajo. Para ello se emplea el comando del Editor de VBA, Herramientas, Referencias. Si la funcin est definida en un libro de trabajo referenciado, no ser necesario usar el nombre de la hoja de clculo.
69
Excel con VBA

Los procedimientos Function no aparecen en el cuadro de dilogo de las macros. Adems no se puede ejecutar directamente desde el Editor de VBA. Para ejecutar una funcin es necesario definir un procedimiento Sub que la llame. Si la funcin esta diseada para ser usada en frmulas de hojas de clculo, se puede introducir una simple frmula para probarla. ARGUMENTOS DE FUNCIN Los argumentos pueden ser variable (incluyendo matrices), constantes, literales o expresiones Algunas funciones no tienen argumentos Algunas funciones tienen un nmero fijo de argumentos (desde 1 a 60) Algunas funciones tienen una combinacin de argumentos opcionales y requeridos
70
35
Excel con VBA
EJEMPLOS DE PROCEDIMIENTOS FUNCTION

Una funcin sin argumentos La siguiente funcin devuelve la propiedad UserName del objeto Application. Function Usuario() Usuario = Application.UserName End Function Cuando se introduce la siguiente frmula, la celda devuelve el nombre del usuario actual: =Usuario() Para usar esta funcin en otro procedimiento, se debe asignar a una variable, usarla en una expresin o emplearla como argumento para otra funcin. Sub MostrarUsuario() MsgBox El usuario es: & Usuario() End Sub
71
Excel con VBA

Una funcin con un argumento
El siguiente ejemplo permite calcular las comisiones que debe cobrar cada vendedor de acuerdo a sus ventas mensuales.
VENTAS MENSUALES % DE COMISIN 0-9.999 8,00% 10.000-19999 10,50% 20.000-39.999 12,00% 40.000+ 14,00% Una forma de calcular las comisiones es mediante el uso e la fucnin SI: =si(Y(A1>00,A1<=9999,99),A1*0,08, si(Y(A1>=10000,A1>=19999,99),A1*0,105, si(Y(A1>=20000,A1<=39999,99),A1*0,12, si(A1>=40000,A1*0,14,0)))) Este es un mal planteamiento por varias razones. Primera, la frmula es demasiado compleja y muy difcil de entender. Segunda, los valores son cdigos cerrados dentro de la frmula haciendo la modificacin de la frmula muy difcil.
72
36
Excel con VBA

Una funcin con un argumento Un planteamiento mejor es crear una funcin personalizada como la siguiente: Function Comision(Ventas) Const porcentaje1 = 0.08 Const porcentaje2 = 0.105 Const porcentaje3 = 0.12 Const porcentaje4 = 0.14 Select Case Ventas Case 0 To 9999.9: Comision = Ventas * porcentaje1 Case 10000 To 19999.9: Comision = Ventas * porcentaje2 Case 20000 To 39999.9: Comision = Ventas * porcentaje3 Case Is >= 40000: Comision = Ventas * porcentaje4 End Select End Function
73
Excel con VBA

Una funcin con un argumento Sub CalcComm() sales = InputBox("Introducir Ventas: ") MsgBox "La comisin es: " & Comision(sales) End Sub
74
37
Excel con VBA

Una funcin con dos argumentos La comisin total pagada se incrementa en un 1 por ciento por cada ao que el vendedor ha estado en la compaa. Function Comision2(Ventas, Aos) Const porcentaje1 = 0.08 Const porcentaje2 = 0.105 Const porcentaje3 = 0.12 Const porcentaje4 = 0.14 Select Case Ventas Case 0 To 9999.9: Comision2 = Ventas * porcentaje1 Case 1000 To 19999.9: Comision2 = Ventas * porcentaje2 Case 20000 To 39999.9: Comision2 = Ventas * porcentaje3 Case Is >= 40000: Comision2 = Ventas * porcentaje4 End Select Comision2 = Comision2 + (Comision2 * Aos / 100) End Function
75
Excel con VBA

Una funcin con un argumento de matriz La siguiente funcin acepta una matriz como argumento y devuelve la suma de sus elementos
Function SumaMatriz(List) SumaMatriz = 0 For i = LBound(List) To UBound(List) SumaMatriz = SumaMatriz + List(i) Next i End Function Sub HacerList() Dim Num(1 To 100) As Integer For i = 1 To 100 Num(i) = i Next i MsgBox SumaMatriz(Num) End Sub
76
38
Excel con VBA

Una funcin con argumentos opcionales Function Calculo(A As Integer, B As Integer, Optional operacin As String) If IsMissing(operacin) Then operacin = "suma" Select Case operacin Case Is = "suma": Calculo = A + B Case Is = "resta": Calculo = A - B Case Is = "multiplicacion": Calculo = A * B Case Is = "division": Calculo = A / B End Select End Function Sub probar() valor = Calculo(2, 4) Sub probar() MsgBox valor End Sub valor = Calculo(2, 4, "resta") MsgBox valor End Sub
77
Excel con VBA

Especificar la categora de Funcin Es siguiente cdigo se ejecuta siempre que el libro de trabajo est abierto. Este procedimiento asigna la funcin Comision a la categora financieras. Private Sub Workbook_Open() Application.MacroOptions Macro:="Comision", Category:=3 End Sub
NMERO DE CATEGORA NOMBRE DE CATEGORIA Todas Financieras Fecha y hora Matemticas y trigonomtricas Estadsticas Bsqueda y referencia Base de datos Texto Lgicas Informacin Comandos Personalizado Control de macros DDE/Externas Definidas por el usuario Ingeniera 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
78
39
Excel con VBA
Parte 6:
Formularios
79
Excel con VBA
UserForms
Un cuadro de dilogo personalizado se genera en un UserForm y se puede acceder a l con ayuda del Editor de VB. A continuacin se expone la secuencia tpica de fases a realizar para la creacin de un UserForm: 1) Insertar un UserForm en el libro de trabajo 2) Escribir un procedimiento que despliegue el UserForm Este procedimiento est localizado en un mdulo de VBA (no en el mdulo de cdigo para el UserForm) 3) Aadir controles al UserForm 4) Ajustar algunas propiedades a los controles aadidos 5) Escribir procedimientos de controlador de evento para los controles. Estos procedimientos que estn situados en la ventana de cdigo para el UserForm, se ejecutan cuando ocurren varios eventos (como hacer clic con el ratn).
80
40
Excel con VBA
UserForms
INSERTAR UN NUEVO UserForm Activar el Editor de VB y seleccionar el Libro de trabajo correspondiente y elegir el comando Insertar, UserForm. Un libro de trabajo puede tener cualquier nmero de UserForms, y cada uno de ellos contiene un solo UserForms. Los UserForms tienen nombres como UserForm1, UserForm2, y as sucesivamente. Se puede cambiar el nombre del UserForm para que su identificacin sea ms fcil. Para ello se selecciona el UserForm y se usa la ventana propiedades, desde donde se puede cambiar la propiedad Name (presionar F4 si la ventana de propiedades no est desplegada).
81
Excel con VBA
UserForms
Ventana Propiedades
82
41
Excel con VBA
UserForms
DESPLEGAR UN UserForm Se usa el mtodo Show del objeto UserForm. El siguiente procedimiento, que se encuentra dentro de un mdulo de VBA normal, despliega UserForm1: Private Sub AbrirFormulario() Userform1.Show End Sub Cuando se despliega el UserForm, permanece visible en la pantalla hasta que se oculta. El procedimiento puede tanto cargar el UserForm (con una instruccin Unload) como ocultarlo (con el mtodo Hide del objeto UserForm) AADIR CONTROLES A UN UserForm Se usa el Cuadro de herramientas (el Editor de VB no tiene comandos de men para aadir controles). Este cuadro se puede desplegar con Ver, Cuadro de Herramientas.
83
Excel con VBA
UserForms
AADIR CONTROLES A UN UserForm Se usa el Cuadro de herramientas (el Editor de VB no tiene comandos de men para aadir controles). Este cuadro se puede desplegar con Ver, Cuadro de Herramientas.
84
42
Excel con VBA
UserForms
AADIR CONTROLES A UN UserForm Se hace clic sobre el botn del Cuadro de Herramientas que corresponde al control que se quiere aadir, y despus se hace clic dentro del cuadro de dilogo. Cuando se aade un control nuevo, se le asigna un nombre que combina el tipo de control con la secuencia numrica para ese tipo de control. Por ejemplo si se aade el primer botn de comando se le asignar el nombre ComandButton1, y al segundo que se aada CommandButton2. Siempre conviene cambiarle el nombre a los controles para que sean ms representativos. Los nombres de lo controles se cambian desde la ventana de Propiedades. CONTROLES DISPONIBLES PARA EL USUARIO Casilla de verificacin (CheckBox). Es til para ofrecer al usuario una opcin binaria: s o no, verdadero o falso, activar o desactivar, y dems. Cuando se selecciona una Casilla de verificacin posee un valor Verdadero; en caso contrario es Falso.
85
Excel con VBA
UserForms
CONTROLES DISPONIBLES PARA EL USUARIO Cuadro combinado (ComboBox). Es similar al cuadro de lista. Sin embargo, un Cuadro Combinado es un cuadro de lista desplegable que presenta un solo elemento por vez. Otra diferencia con respecto al cuadro de lista es que el usuario puede introducir un valor que no aparece en la lista dada de elementos. Botn de comando (CommandButton). Todo cuadro de dilogo que se genere probablemente tenga, al menos, un Botn de comando. Normalmente se tendr un Botn de comando etiquetado como Aceptar y otro etiquetado como Cancelar. Botn Macro (Frame). Se usa para agrupar otros controles. Se puede hacer bien por motivos estticos o por agrupar lgicamente un conjunto de controles. Un Marco es particularmente til cuando el cuadro de dilogo contiene ms de un grupo de controles de Botn de opcin.
86
43
Excel con VBA
UserForms
CONTROLES DISPONIBLES PARA EL USUARIO Imagen (Image).Se usa para desplegar una imagen grfica, que pude provenir de un archivo o se pude pegar desde el Portapapeles. La imagen grfica se guarda en el libro de trabajo. De esta forma, se puede distribuir el libro a cualquier persona y no es necesario incluir una copia del archivo grfico. Etiqueta (Label). Simplemente presenta texto en el cuadro de dilogo. Cuadro de lista (Listbox). Presenta una lista de elementos donde el usuario puede seleccionar uno (o mltiples elementos). Estos controles son muy flexibles. Por ejemplo, se puede especificar un rango de hoja de clculo que contenga elementos de un Cuadro de lista, y este rango puede constar de mltiples columnas Pgina mltiple (Multipage). Permite crear cuadros de dilogo con fichas, como el que aparece cuando se selecciona el comando herramientas, opciones. De forma predeterminada una pgina mltiple consta de dos pginas. Para aadir pginas, se hace clic con el botn derecho del ratn sobre una ficha y se selecciona Nueva pgina desde el men contextual.
87
Excel con VBA
UserForms
CONTROLES DISPONIBLES PARA EL USUARIO Botn de opcin (OptionButtons). Son muy tiles cuando el usuario necesita seleccionar entre un pequeo nmero de elementos. Estos botones se usan siempre en grupos de al menos dos elementos. Cuando se selecciona uno de los botones, los otros botones del grupo no estn seleccionados. Si el cuadro de dilogo contiene ms de un grupo de Botones de opcin, cada grupo de stos debe tener el mismo valor de la propiedad group name. De lo contrario, todos los Botones de opcin formarn parte del mismo grupo. De forma alternativa, se pueden agrupar los Botones de opcin en un control Marco, que agrupa automticamente los Botones de opcin contenidos dentro del marco. RefEdit. Se usa cuando es necesario permitir que el usuario seleccione un rango de una hoja de clculo. Barra de desplazamiento (ScrollBar). Es similar a un control Botn de nmero. La diferencia estriba en que el usuario puede desplazarse con el botn Barra de desplazamiento para cambiar el valor del contrl en incrementos ms amplios. Dicho control es ms til para seleccionar un valor que se extiende a travs de un rango muy amplio de posibles valores. 88
44
Excel con VBA
ISUAL BASIC PARA APLICACIONES

UserForms
CONTROLES DISPONIBLES PARA EL USUARIO Botn de nmero (SpinButton). Permite al usuario seleccionar un valor haciendo clic sobre una de las dos flechas que contiene. Este control se usa a menudo en conjuncin con el control Cuadro de texto o el control Etiqueta, que presentan el valor actual de un Control de nmero. Barra de tabulaciones (TabStrip). Es similar a un control Pgina mltiple, pero no es tan fcil de usar. Botn de alternar (ToggleButton). Posee dos estados: activado y desactivado. Al hacer clic sobre el mencionado botn, se alternan estos dos estados y el botn cambia de apariencia. Su valor puede ser o bien Verdadero (presionado) p bien Falso (no presionado).
89
Excel con VBA
UserForms
AJUSTAR LOS CONTROLES DEL CUADRO DE DILOGO
Despus de situar un control en un cuadro de dilogo, se puede mover y modificar su tamao usando las tcnicas del ratn estndar. Un UserForm puede contener lneas de divisin horizontales y verticales que ayudan a alinear los controles que se aaden. Cuando se aade o se mueve un control, se ajusta a la cuadrcula. Si no se quieren ver estas lneas se pueden desactivar seleccionando Herramientas Opciones en el Editor de VB. En el cuadro de dilogo Opciones se selecciona la ficha general y se establecen las opciones deseadas en la seccin Opciones de la cuadricula. El men Formato de la ventana del Editor de VB proporciona varios comandos para ayudar a precisar la alineacin y el espacio de los controles en un cuadro de dilogo. Antes de usar estos comandos hay que seleccionar los controles con los que se quiere trabajar.
90
45
Excel con VBA
UserForms
AJUSTAR LOS CONTROLES DEL CUADRO DE DILOGO
91
Excel con VBA
UserForms
AJUSTAR LAS PROPIEDADES DEL CONTROL Se pueden cambiar las propiedades del control en el tiempo de diseo con la ventana de Propiedades, mientras se est configurando el cuadro de dilogo, o durante el tiempo de ejecucin, cuando el cuadro de dilogo se presenta al usuario. Se pueden usar instrucciones VBA para cambiar las propiedades del control en el tiempo de ejecucin. USAR LA VENTANA DE PROPIEDADES La ventana propiedades tiene dos fichas: La ficha alfabtica presenta las propiedades del objeto seleccionado en orden alfabtico La ficha Por categoras las presenta agrupadas en categoras lgicas Si se seleccionan dos o ms controles a la vez, la ventana Propiedades despliega slo las propiedades comunes a los controles seleccionados.
92
46
Excel con VBA
UserForms
USAR LA VENTANA DE PROPIEDADES
93
Excel con VBA
UserForms
USAR LA VENTANA DE PROPIEDADES La mejor manera de aprender sobre diversas propiedades de un control es usar la Ayuda en lnea. Simplemente se hace clic sobre una propiedad de la ventana de Propiedades y se presiona F1. Por ejemplo, la propiedad Alignment de un Botn de Opcin.
94
47
Excel con VBA
UserForms
CAMBIAR EL ORDEN DE TABULACION El orden de tabulacin determina la secuencia en la que los controles se activan cuando el usuario presiona Tab o Mays-tab.Para establecer el orden de tabulacin de los controles se selecciona Ver Orden de tabulacin en el Editor de VB
De forma alternativa, se puede establecer una posicin de control individual en el orden de tabulacin, usando la ventana Propiedades. El primer control en el orden de tabulacin tiene una Propiedad TabIndex de 0. Cambiar esta propiedad puede afectar a otros controles. Si se quiere eliminar un control del orden de tabulacin, se establece su propiedad TabStop como False.
95
Excel con VBA
UserForms
ESTABLECER TECLAS DE ACCESO DIRECTO Se puede asignar una tecla de aceleracin o tecla de acceso directo a la mayora de los controles de un cuadro de dilogo. Esto permite al usuario acceder al control presionando Alt-tecla de acceso directo. Para ello se usa la propiedad Accelerator de la ventana propiedades. PROBAR UN UserForm Existen tres maneras de probar un UserForm sin tener que llamarlo desde un procedimiento de VBA. Elegir el comando Ejecutar, Ejecutar Sub/UserForm Presionar F5 Hacer clic sobre el botn Ejecutar Sub/UserForm en la barra de herramientas Estndar
96
48
Excel con VBA
UserForms
DESPLEGAR UN UserForm Sub MostrarDilogo() UserForm1().show End Sub CERRAR UN UserForm Unload UserForm1 PROCEDIMINETOS DE CONTROLADOR DE EVENTO Cuando el usuario interacta con el cuadro de dilogo, mediante la seleccin de un elemento de un cuadro de lista, haciendo clic sobre un botn de comando y dems, se produce un evento a ocurrir. Por ejemplo, hacer clic sobre el Botn de comando promueve el evento Click para dicho botn. La aplicacin necesita procedimientos que se ejecuten cuando estos eventos ocurran. Estos procedimiento se llaman controlador de evento.
97
Este procedimiento debe estar en un mdulo de VBA, no en el mdulo del cdigo del UserForm.
Excel con VBA
UserForms
PROCEDIMINETOS DE CONTROLADOR DE EVENTO Los procedimientos de controlador de evento deben estar localizados en la ventana de cdigo del UserForm. Sin embargo, el procedimiento de controlador de evento puede llamar a cualquier procedimiento que est localizado en un mdulo VBA estndar. CREAR UN UserForm: Un ejemplo El ejemplo usa un UserForm para obtener dos tipo de informacin: el nombre y el sexo de una persona. Usa el control Cuadro de texto (TextBox) para obtener el nombre. Usa tres botones de opcin (OptionsButtons) para obtener el sexo (masculino, femenino o desconocido). La informacin se recoge en el cuadro de dilogo y luego se enva a la siguiente fila en blanco de la hoja de clculo.
98
49
Excel con VBA
UserForms
CREACIN DEL CUADRO DE DILOGO 1) Abra un libro de trabajo nuevo 2) Presionar Alt-F11 para activar el Editor de VB 3) En la ventana Proyecto, seleccionar el proyecto del libro de trabajo y elegir insertar, UserForm para aadir un formulario vaco. 4) Si la ventana propiedades no est visible, presionar F4. 5) Cambiar la propiedad Caption del UserForm (usando la ventana propiedades) a Obtener nombre y sexo. 6) Aadir un control Etiqueta (Label) y ajustar sus propiedades: Accelerator N, caption Nombre, TabIndex 0 7) Aadir un control Cuadro de texto (TextBox) y ajustar sus propiedades: Name NombreTexto, TabIndex 1 8) Aadir un control Marco (frame) y ajustar sus propiedades: Caption Sexo, TabIndex 2
99
Excel con VBA
UserForms
CREACIN DEL CUADRO DE DILOGO
9) Aadir un control Botn de opcin (OptionButtons) dentro del Marco y ajustar sus propiedades: Accelerator M, Caption Masculino, Name OpcinMasculino, TabIndex 0 10) Aadir otro control Botn de opcin (OptionButtons) dentro del Marco y ajustar sus propiedades: Accelerator F, Caption Femenino, Name OpcinFemenino, TabIndex 1
100
50
Excel con VBA
UserForms
CREACIN DEL CUADRO DE DILOGO 11) Aadir otro control Botn de opcin (OptionButtons) dentro del Marco y ajustar sus propiedades: Accelerator D, Caption Desconocido, Name Opcindesconocido, TabIndex 2, Value True 12) Aadir un control Botn de Comando (CommandButton) dentro del Marco y ajustar sus propiedades como sigue: Caption Aceptar, Default True, Name BotnAceptar, TabIndex 3 13) Aadir otro control Botn de Comando (CommandButton) dentro del Marco y ajustar sus propiedades como sigue: Caption Cancelar, Cancel True, Name BotnCancelar, TabIndex 4
101
Excel con VBA
UserForms
CREACIN DEL CUADRO DE DILOGO
ESCRIBIR UN CDIGO PARA DESPLEGAR EL CUADRO DE DILOGO Ahora se debe aadir un Botn de Comando a la hoja de clculo (Cuadro de controles). Este botn ejecuta un procedimiento que despliega el UserForm. 1) Activar Excel 2) Activar la barra Cuadro de Controles 3) Aadir un Botn de comando
102
51
Excel con VBA
UserForms
ESCRIBIR UN CDIGO PARA DESPLEGAR EL CUADRO DE DILOGO 4) Hacer doble clic sobre el botn, esto activa el Editor de VB (especficamente, el mdulo de cdigo para la hoja de calculo se despliega, con un procedimiento controlador de evento vaco para el Botn de Comando (CommandButton)de la hoja de Clculo) 5) Aadir la instruccin UserForm1.Show al procedimiento Private Sub CommandButton1-Click() UserForm1.Show End Sub
103
Excel con VBA
UserForms
PROBAR EL UserForm Al salir del modo de diseo (desactivarlo de la barra Cuadro de Controles) y hacer clic sobre el botn, se despliega el cuadro de dilogo:
Como an no hemos creado ningn controlador de evento, slo podemos cerrar el cuadro de dilogo. 104
52
Excel con VBA
UserForms
AADIR PROCEDIMIENTOS DE CONTROLADOR DE EVENTO En esta seccin se explica cmo escribir procedimientos que controlan los eventos que ocurren cuando el cuadro de dilogo se ha desplegado. 1) Activar el Editor de VB 2) Hacer doble clic sobre el botn Cancelar. El Editor de VB activa la ventana de Cdigo del UserForm y proporciona un procedimiento vaco llamado BotnCancelar_Click 3) Modificar el procedimiento como sigue: Private Sub Botncancelar_Click() Unload UserForm End Sub 4) Presionar Mays-F7 para volver a desplegar el UserForm1 5) Hacer doble click sobre el botn Aceptar e introducir el siguiente procedimiento (ste es el controlador de evento para el evento Click del Botn Aceptar)
105
Excel con VBA
UserForms
AADIR PROCEDIMIENTOS DE CONTROLADOR DE EVENTO Private Sub BotnAceptar_Click() Sheets(Hoja1).Activate NextRow = Application.WorkSheetFunction.CountA(Range(A:A)) + 1 Cells(NextRow, 1) = NombreTexto.text If OpcinMasculino Then Cells(NextRow, 2) = Masculino If OpcinFemenino Then Cells(NextRow, 2) = Femenino If OpcinDesconocido Then Cells(NextRow, 2) = Desconocido NombreTexto = OpcinDesconocido = true NombreTexto.SetFocus End Sub
106
53
Excel con VBA
UserForms
AADIR PROCEDIMIENTOS DE CONTROLADOR DE EVENTO
107
Excel con VBA
UserForms
VALIDAR LOS DATOS
Este ejemplo no asegura que el usuario realmente introduce el nombre en el Cuadro de texto. El siguiente cdigo se inserta en el procedimiento BotnAceptar_Click() antes de que el texto se transfiera a la hoja de clculo. Asegurar que se ha introducido un nombre If NombreTexto.Text = Then MsgBox Se debe introducir un nombre Exit Sub End If Con esto se asegura que el usuario ingresa un texto. Si este est vaco aparece un mensaje y la rutina termina.
108
54
Excel con VBA
Parte 7:
Controles
109
Excel con VBA
PROPIEDADES COMUNES A TODOS LOS CONTROLES Categora apariencia

Backcolor y Forecolor: Color del fondo del control y color del texto. Caption: Informa el texto que aparece en el control. Picture: Indica el nombre de un fichero grfico que se mostrar como fondo del control.
Categora comportamiento
Enabled: Propiedad del tipo True/False que especifica si el control est activo o no en tiempo de ejecucin; un control no activo es visible pero el usuario no puede interactuar con l, y se visualiza con un color distinto. Visible: Otra propiedad True/False, que indica si el control est visible u oculto en tiempo de ejecucin. TabIndex: El orden por el cual nos movemos con la tecla TAB, entre los controles, se establece con esta propiedad. Es un valor numrico, 0, 1 ... TabStop: Es del tipo True/False y establece si un control puede ser accesible con la teca TAB.
110
55
Excel con VBA
PROPIEDADES COMUNES A TODOS LOS CONTROLES Categora fuente

Font: Permite elegir el tipo, estilo, tamao, etc... de letra del texto mostrado por el control.
Categora posicin
Left y Top: La primera contiene la coordenada columna y la segunda la coordenada lnea de pantalla donde se sita el control. Width y Height: Cuando un control es redimensionable, esto es, que sus dimensiones son variables, tendr estas dos propiedades que nos informan del ancho y la altura del control. EJEMPLO 1) Inserte un formulario en l proyecto 2) Inserte un botn de comando 3) Haga doble click sobre el botn para acceder a la ventana de cdigo 4) En el procedimiento de evento click aada las siguientes lneas de cdigo:
111
Excel con VBA
PROPIEDADES COMUNES A TODOS LOS CONTROLES

EJEMPLO Private Sub CommandButton_Click() CommandButton1_Height = UserForm1.Height / 2 CommandButton1_Width = UserForm1.Width / 2 CommandButton1_Left = UserForm1.Width / 4 CommandButton1_Top = UserForm1.Height / 4 CommandButton1_Caption = redimensionado End Sub 5) Ejecute el procedimiento presionando la tecla F5 y observe como cambia el ttulo del control CommandButton y su tamao y posicin al hacer clic sobre l.
112
56
Excel con VBA
EVENTOS COMUNES A TODOS LOS CONTROLES

Para nombrar un evento correspondiente a un control, la nomenclatura es siempre la misma: nombre_del_control.nombre_del_evento CommandButton.Click Click: Se activa al hacer clic sobre el control, pero tambin al pulsar la barra de espacios o la tecla Enter si se trata de un botn CommandButton MouseMove: Se activa al mover el puntero del ratn por encima del control. EJEMPLO 1) Acceda a la ventana de cdigo del control command Button del ejemplo anterior. 2) Observe que en la parte superior de la ventana de cdigo hay dos listas desplegables. La de la izquierda muestra el nombre del control CommandButton1 y es una lista de los controles del UserForm. La de la derecha muestra el nombre del evento Click y es una lista de todos los eventos del control que tenemos seleccionado. En la ventana de eleccin de eventos, desplegndola, elija el evento MouseMove.
113
Excel con VBA
114
57
Excel con VBA

3) Escriba el cdigo necesario para que el evento quede como sigue: Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CommandButton1.Caption = "Ahora pasas por encima" End Sub 4) Despliegue ahora la lista de controles y elija el objeto UserForm. En la lista de eventos del UserForm elija de nuevo MouseMove y escriba el cdigo siguiente: Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CommandButton1.Caption = "Desactivado" End Sub 5) En un mdulo de VBA escriba el siguiente cdigo: Sub mostrar() UserForm1.Show End Sub
115
Excel con VBA

6) Ejecute el procedimiento Mostrar. Mueva el puntero del ratn por encima del control sin hacer clic y observe como cambia el texto que muestra. Cuando el puntero abandona el rea del botn y se mueve por encima del UserForm se activa el evento MouseMove de ste y el ttulo del botn muestra el texto desactivado. MouseDown y MouseUp: El primer evento se activa al presionar uno de los botones del ratn y el segundo al liberarlo KyePress, KeyDown y KeyUp: Son eventos que relacionan un control que acepta entrada de texto por parte del usuario (por ejemplo TextBox) con el teclado del ordenador. Cuando el usuario presiona una tecla de tipo carcter se activa el evento KeyPress. Si presiona una tecla especial, como puede ser la tecla Inicio o Enter, se activa solo el evento KeyDown. Al soltar la tecla se activa KeyUp. Notemos que el evento KeyDown se activa para cualquier tecla, mientras KeyPress slo lo hace si la tecla es de tipo carcter. DblClick: Se activa al hacer doble clic sobre el control.
116
58
Excel con VBA
EJEMPLO DEL BOTN CHECKBOX

Diseemos un UserForm de entrada de datos de los clientes de un hotel. Ha de contener DNI, nombre da de llegada, habitacin doble (s/no), habitacin con bao completo (s/no), pensin completa (s/no), suplemento cama nio (s/no). El programa calcular el precio diario de la habitacin en base a una suma de conceptos. La habitacin tiene un recio de 5000 pts/da, y los precios de los suplementos son: Habitacin doble: 3000 pts/da, Con bao completo: 2000 pts/da, Pensin completa (por persona): 4500 pts/da, Cama suplementaria para nio: 1500 pts/da). Los pasos a seguir son: 1) Disee un formulario com. se muestra a continuacin:
117
Excel con VBA
2) Acceda a las propiedades Caption de los controles de forma que queden como en la pantalla anterior. 3) Ponga la propiedad Visible del TextBox que muestra el resultado del clculo a False. Haga lo mismo con el correspondiente control Label. 118
59
Excel con VBA

4) Acceda a la ventana del cdigo del botn Finalizar, evento Click, y escriba la instruccin End Private Sub CommandButton3_Click() End End Sub 5) Acceda a la ventana de cdigo del botn Nuevo y djelo como sigue:
Private Sub CommandButton2_Click() TextBox1 = "" TextBox2 = "" TextBox3 = "" HabDoble = false PensionCompleta = false CamaAdicional = false BaoCompleto = false TextBox4.Visible = False Label4.Visible = False
Cambie el nombre de los botones CheckBox, HabDoble, PensionCompleta, CamaAdicional, BaoCompleto

119
End Sub
Excel con VBA

6) Acceda a la ventana de cdigo del botn Calcular y djelo como sigue: Private Sub CommandButton1_Click() Dim Precio As Integer Precio = 5000 If HabDoble = trueThen Precio = Precio + 3000 If PensionCompleta = true Then Precio = Precio + 4500 If HabDoble = true Then Precio = Precio + 4500 End If If CamaAdicional = true Then Precio = Precio + 4500 End If End If
If CamaAdicional = true Then Precio = Precio + 1500 End If If BaoCompleto = true Then Precio = Precio + 2000 End If TextBox4 = Precio TextBox4.Visible = True Label4.Visible = True End Sub
120
60
Excel con VBA

6) En un mdulo de VBA escriba el siguiente cdigo: Sub Clientes() UserForm1.Show End Sub 7) Luego ejectelo
121
Excel con VBA
EL CONTROL LISTBOX
A continuacin se presentan algunos puntos a tener en cuenta cuando se trabaja con controles de Cuadro de lista.
Los elementos de un Cuadro de Lista se pueden recuperar desde un rango de celdas (especificadas por la propiedad RowSource) o pueden ser aadido usando un cdigo de VBA (y usando el mtodo AddItem). Un Cuadro de lista se puede configurar para permitir una seleccin de una celda o una seleccin mltiple. Esto est determinado por la propiedad MultiSelect. No es posible desplegar un Cuadro de lista sin elementos seleccionados (la propiedad ListIndex es -1). Sin embargo, una vez se ha seleccionado un elemento, no es posible no seleccionar ningn elemento. Un Cuadro de lista puede contener columnas mltiples (controladas por la propiedad ColumnCount) e incluso un encabezado descriptivo (controlado por la propiedad ColumnHeads). Los elementos de un Cuadro de lista se pueden presentar como Casillas de verificacin si se permite una seleccin mltiple, o como Botones de opcin si se permite una seleccin de una sola celda. Esta operacin est controlada por la propiedad ListStyle.
122
61
Excel con VBA
EL CONTROL LISTBOX
Aadir elementos al control Cuadro de lista Antes de desplegar un Userform que use un control Cuadro de lista, probablemente se necesite rellenar el mismo con elementos. Esto se debe realizar en tiempo de diseo, usando elementos guardados en un rango de hoja de clculo, o en tiempo de ejecucin, usando VBA para aadir los elementos. Los ejemplos que veremos a continuacin suponen que: Se ha generado un cuadro de dilogo en un UserForm llamado UserForm1. Este cuadro de dilogo contiene un control de Cuadro de lista llamado ListBox1. El libro de trabajo contiene una hoja llamada Hoja1 y un rango A1:A12 que contiene los elementos a desplegar en el Cuadro de lista. Aadir elementos a un Cuadro de lista en tiempo de diseo Para aadir elementos en tiempo de diseo los elementos deben estar guardados en en un rango de hoja de clculo. Se usa la propiedad RowSource para especificar el rango que contiene dichos elementos (HOJA1!A1:A2)
123
Excel con VBA
EL CONTROL LISTBOX
Aadir elementos a un Cuadro de lista en tiempo de diseo
124
62
Excel con VBA
EL CONTROL LISTBOX
Aadir elementos a un Cuadro de lista en tiempo de ejecucin Para aadir elementos a un Cuadro de lista en tiempo de ejecucin existen dos formas: Configurar la propiedad RowSource para una direccin de rango usando un cdigo. Escribir un cdigo que usa el mtodo AddItem para aadir los elementos al Cuadro de lista. UserForm1.ListBox1.RowSource = Hoja1!A1:A12 Si los elementos no estn contenidos en un rango de hoja de clculo, se puede escribir un cdigo VBA para rellenar el cuadro de lista antes de que aparezca el cuadro de dilogo (con el mtodo AddItem).
125
Excel con VBA
EL CONTROL LISTBOX
Aadir elementos a un Cuadro de lista en tiempo de ejecucin
Sub ShowUserForm1() With UserForm1.ListBox1 .RowSource = .AddItem Enero .AddItem Febrero .AddItem Marzo .AddItem Abril .AddItem Mayo .AddItem Junio .AddItem Julio .AddItem Agosto .AddItem Septiembre End With UserForm1. Show End Sub
126
63
Excel con VBA
EL CONTROL LISTBOX
Aadir elementos a un Cuadro de lista en tiempo de ejecucin Tambin se pude usar el mtodo AddItem para recuperar elementos de un Cuadro de Lista a partir de un rango. For Row = 1 To 12 UserForm1.ListBox1.AddItem Sheets(Hoja1).Cells(Row,1) Next Row Si los datos estn contenidos en una matriz de una dimensin meses, que contiene 12 elementos, podemos escribir ListBox1.List = meses
127
Excel con VBA
EL CONTROL LISTBOX
Seleccin de las opciones en el ListBox La propiedad MultiSelect que en el momento de crear el control tiene el valor 0Single, que permite seleccionar slo una opcin, puede tomar los siguientes valores: 1-Simple: permite seleccionar ms de un elemento simplemente pulsando el botn del ratn sobre cada uno 2-Extended: permite adems seleccionar un rango de la lista combinando la tecla de maysculas con el botn del ratn. En este caso para seleccionar elementos aislados combinaremos la tecla Control con el ratn. Acceso a la opcin en el caso de seleccin simple Para determinar el elemento que se ha seleccionado, hay que acceder a la propiedad Value del Cuadro de lista. MsgBox ListBox1.Value Si se necesita saber la posicin del elemento seleccionado se puede acceder a la propiedad ListIndex del Cuadro de lista. MsgBox Se ha seleccionado el elemento & ListBox1.ListIndex 128
64
Excel con VBA
EL CONTROL LISTBOX
Acceso a las opciones en multiseleccin Cuando tengamos la multiseleccin activada (la propiedad MultiSelect es 1 2) podr haber ms de un elemento seleccionado, y las propiedades anteriores no sern adecuadas. Utilizaremos la propiedad Selected que es una matriz unidimensional de elementos tipo Boolean. El nmero de elementos es el mismo que el de la propiedad List. Si el tercer elemento est seleccionado, entonces el tercer elemento de Selected tendr el valor True, en caso contrario valdr False. Tambin nos puede ser til la propiedad ListCount, que devuelve el nmero total de elementos de la lista. Crear un cuadro de lista con contenido variable Este ejemplo demuestra cmo crear un Cuadro de lista cuyo contenido cambia, dependiendo de la seleccin del usuario de un grupo de botones de opcin. El cuadro de lista obtiene los elementos de un rango de hoja de clculo. El procedimiento que controla el evento Click de los controles de Botn de opcin simplemente establece la propiedad RowSource del Cuadro de lista en un rango diferente.
129
Excel con VBA
EL CONTROL LISTBOX
Crear un cuadro de lista con contenido variable Private Sub OpcionCoches_Click() ListBox1.RowSource = "Hoja1!Coches" End Sub Private Sub OpcionColores_Click() ListBox1.RowSource = "Hoja1!Colores" End Sub Private Sub OpcionMeses_Click() ListBox1.RowSource = "Hoja1!Meses" End Sub
130
65
Excel con VBA
EL CONTROL LISTBOX
Elaborar un Cuadro de lista desde otra lista
A continuacin se muestra el procedimiento que se ejecuta cuando el usuario hace clic sobre el botn Aadir
Private Sub Aadir_Click() If ListBox1.ListIndex = -1 Then Exit Sub ListBox2.AddItem ListBox1.Value End Sub
131
Excel con VBA
EL CONTROL LISTBOX
Elaborar un Cuadro de lista desde otra lista A continuacin se muestra el procedimiento que se ejecuta cuando el usuario hace clic sobre el botn Eliminar Private Sub Eliminar_Click() If ListBox2.ListIndex = -1 Then Exit Sub ListBox2.RemoveItem ListBox2.ListIndex End Sub
Mover elementos de un cuadro de lista
132
66
Excel con VBA
EL CONTROL LISTBOX
Private Sub MoverEncima_Click() With ListBox1 ItemNum = .ListIndex If ItemNum > 0 Then TempItem = .List(ItemNum - 1) .List(ItemNum - 1) = .List(ItemNum) .List(ItemNum) = TempItem .ListIndex = .ListIndex - 1 End If End With End Sub
133
Excel con VBA
EL CONTROL LISTBOX
Private Sub MoverDebajo_Click() With ListBox1 ItemNum = .ListIndex If ItemNum < .ListCount - 1 And ItemNum <> -1 Then 0 Then TempItem = .List(ItemNum +1) .List(ItemNum +1 1) = .List(ItemNum) .List(ItemNum) = TempItem .ListIndex = .ListIndex + 1 End If End With End Sub
134
67
Excel con VBA
EL CONTROL MULTIPAGE
El control Pgina Mltiple es muy til para cuadros de dilogo personalizados que deben presentar muchos controles. El mencionado control permite agrupar las opciones y colocar cada grupo en una ficha aparte. Hay que tener en cuenta lo siguiente cuando se use este control:
La ficha (o pgina) que se despliega al frente est determinada por la funcin Value el control.El valor 0 despliega la primera ficha, el 1 la segunda y as sucesivamente. De forma predeterminada, un control de Pgina Mltiple tiene dos pginas. Para aadir una nueva, se hace clic con el botn derecho del ratn sobre una ficha y se selecciona Nueva Pgina desde el men contextual. Cuando se est trabajando con un control de Pgina Mltiple, basta con hacer clic sobre una ficha para establecer las propiedades de esa pgina en concreto. La ventana Propiedades pesenta las propiedades que se pueden ajustar. Puede ser difcil seleccionar el control de Pgina mltiple, porque al hacer clic sobre el mismo, se selecciona toda la pgina. Para seleccionar el control propiamente dicho se puede usar la tecla Tab para realizar un recorrido en crculo por todos los controles. Tambin se puede seleccionar el control Pgina mltiple desde la lista desplegable de la ventana Propiedades.
135
Excel con VBA
EL CONTROL MULTIPAGE
Si el control pgina Mltiple consta de muchas fichas, se puede establecer su propiedad multiRow en True para desplegar las fichas en ms de una fila. Si se prefiere se pueden desplegar botones en lugar de fichas. Para ello se cambia la propiedad Style a 1. La propiedad TabOrientation determina la localizacin de las fichas en el control Pgina Mltiple
136
68
Excel con VBA
EL CONTROL RefEdit
A continuacin se presentan algunos temas a tener en cuenta cuando se use el control REfEdit: El control REfEdit devuelve una cadena de texto que representa una direccin de rango. Se puede convertir esta cadena en un objeto Range mediante el uso de una instruccin como la siguiente: Set UserRange = Range(RefEdit1.Text) Desplegar la seleccin de rango actual es una buena prctica para inicializar el control RefEdit. Esto se puede hacer con la ayuda del procedimiento UserForm_Initialize usando una instruccin como la siguiente. RefEdit1.Text = ActiveWindow.RangeSelection.Address No hay que dar por supuesto que el control RefEdit siempre va a devolver siempre la direccin de rango vlido, por lo tanto debemos verificar que sea realmente vlido.
137
Excel con VBA
EL CONTROL RefEdit
On Error Resume Next Set UserRange = Range(RefEdit1.Text) If Err <> 0 Then MsgBox El rango seleccionado no es vlido RefEdit1.SetFocus On error GoTo 0 Exit Sub End If Si el rango seleccionado correponde aun hoja diferente de la activa deber indicarlo de la siguiente forma: Hoja2!A1:A20
138
69
Excel con VBA
EL CONTROL RefEdit
EJEMPLO
139
Excel con VBA
EL CONTROL RefEdit
EJEMPLO
Sub Clculo() UserForm1.Show End Sub Private Sub CommandButton1_Click() RefEdit1.Text = "" TextBox1 = "" End Sub Private Sub CommandButton2_Click() End End Sub
140
70
Excel con VBA
EL CONTROL RefEdit
EJEMPLO
Private Sub Opcin_Producto_Click() Set UserRange = Range(RefEdit1.Text) prod = 1 For Each cell In UserRange prod = prod * cell.Value Next cell TextBox1 = prod End Sub Private Sub Opcin_Suma_Click() Set UserRange = Range(RefEdit1.Text) Sum = 0 For Each cell In UserRange Sum = Sum + cell.Value Next cell TextBox1 = Sum End Sub
141
Excel con VBA
Parte 8:
Rangos
142
71
Excel con VBA
TRABAJAR CON RANGOS

Copiar un rango (macro)
Sub Copiar_Rango() Range("A4:A8").Select Selection.Copy Range("C4").Select ActiveSheet.Paste End Sub Se puede simplificar de la siguiente manera: Sub Copiar_Rango() Range("A4:A8").Copy Range("C4") End Sub Ambas macros suponen que est activa una hoja de clculo y que la operacin tiene lugar en la hoja de clculo activa.
143
Excel con VBA
TRABAJAR CON RANGOS

Copiar un rango
Para copiar un rango a una hoja de clculo o libro diferente , simplemente se cualifica la referencia del rango para el destino. El siguiente ejemplo copia un rango desde la Hoja1 del libro Archivo1.xls, a la Hoja2 de libro Archivo2.xls. Sub Copiar_Rango() Set Rango1 =WorkBooks(Archivo1.xls).Sheets(Hoja1).Range(A1:A8) Set Rango2 =WorkBooks(Archivo2.xls).Sheets(Hoja2).Range(C4) Rango1.Copy Rango2 End Sub
Mover un rango
Sub Mover_Rango() Range(A1:A8).Cut Range(C4) End Sub
144
72
Excel con VBA
TRABAJAR CON RANGOS

Copiar un rango de tamao variable
En muchos casos, es necesario copiar un rango de celdas, pero no se conocen exactamente las dimensiones de la fila y de la columna. Por ejemplo, se puede tener libro de trabajo que realiza el seguimiento de ventas semanales. El nmero de filas cambia semanalmente a medida que se introducen nuevos datos. La siguiente macro demuestra cmo copiar un rango desde la Hoja! A la Hoja2 (comenzando por la celda A1). La macro usa la propiedad CurrentRegion que devuelve un objeto Range que corresponde al bloque de celdas alrededor de una celda concreta. Sub Copiar_Rango_Variable() Range(A1).CurrentRegion.Copy Sheets(Hoja2).Range(A1) End Sub
145
Excel con VBA
TRABAJAR CON RANGOS

Seleccionar rangos mltiples
Sub Seleccin_Mltiple() Range("A4:A8,C4:C9,B10:B13").Select End Sub
Ejemplo de seleccin de rangos

La siguiente instruccin selecciona un rango desde la celda activa hasta la ltima celda no vaca: Range(ActiveCell, Activecell.End(xlDown)).select Tres constantes simulan las combinaciones de teclas en las otras direcciones: xlUp, xlToLeft y xlToRight.
146
73
Excel con VBA
TRABAJAR CON RANGOS

Ejemplo de seleccin de rangos
Sub Seleccin_Regin_Actual() ActiveCell.CurrentRegion.Select End Sub El siguiente procedimiento crea un objeto Range y despus aplica el formato al rango. Sub Formato_Regin_Actual() Set WorkRange = ActiveCell.CurrentRegion.Select WorkRange.Font.Bold = True End Sub
147
Excel con VBA
TRABAJAR CON RANGOS

Solicitar el valor de la celda
El siguiente procedimiento demuestra cmo preguntar al usuario por un valor y despus insertarlo en la celda A1 de libro de trabajo activo: Sub OtenerValor1() Range(A1).Value = InputBox(Introducir el valor ) If IsNumeric(UserEntry) then End Sub If UserEntry >= 1 And UserEntry <= 12 Validar la entrada ValidEntry = True SunObtenerValor3() Else MinVal = 1 Msg = El valor anterior no era vlido MaxVal = 12 Msg = Msg & vbCrLf Msg = Introducir un valor entre 1 y 12 Msg = Msg & Introduzca un valor entre 1 y 12 End If ValidEntry = False If UserEntry = Then Exit Sub Do Loop Until ValidEntry UserEntry =InnputBox(Msg) ActiveSheet.Range(A1).Value = UserEntry 148 End Sub
74
Excel con VBA
TRABAJAR CON RANGOS

Introducir un valor en la siguiente celda vaca
El siguiente ejemplo solicita un nombre y un valor al usuario, y despus introduce el texto en la siguiente fila vaca. Sub ObtenerDatos() Do NextRow = Application.WorkShhetFunction.CountA(Range(A:A))+1 Entry1 = InputBox(Introducir el nombre) If Entry1 = Then Exit Sub Se ha usado la funcin CountA, Entry2 = InputBox(Introducir la cantidad) para contar el nmero de entradas If Entry2 = Then Exit Sub en la columna A y despus incrementar su valor en uno. Cells(NextRow, 1) = Entry1 Cells(NextRow, 2) = Entry2 Esto funciona solo sie el rango Loop comienza en A1, y no contiene celdas vacas. End Sub
149
Excel con VBA
TRABAJAR CON RANGOS

Contar celdas seleccionadas
La siguiente instruccin despliega un cuadro de mensaje que contiene el nmero de celdas de la seleccin actual. MsgBox Selection.Count Si la hoja activa contiene un rango llamado datos, la siguiente instruccin asigna al nmero de celdas en el rango datos, auna variable llamada ContarCeldas. ContarCeldas = Range(datos).Count Tambin se puede determinar la cantidad de columnas o de filas que estn contenidas en un rango.- La siguiente expresin calcula el nmero de columnas en el rango actual seleccionado. Selection.Columns.Count y para las filas : ContarFila = Range(datos).Rows.Count
150
75
Excel con VBA
TRABAJAR CON RANGOS

Iterar eficientemente por un rango seleccionado
Una tarea comn es crear una macro que evale cada celda de un rango y realice una operacin si la celda rene un determinado criterio. En este ejemplo el procedimiento Colorselectivo1 aplica un color de relleno rojo a todas las celdas de la seleccin que tienen un valor negativo.
Sub ColorSelectivo1() If TypeName(Selection) <> Range then Exit Sub Const = REDINDEX = 3 Application.ScreenUpdating = False For each cell In Selection If cell.value < 0 Then cell.Interior.ColorIndex = REDINDEX Else cell.Interior.ColorIndex = xlNone End If Next Cell End Sub
151
Excel con VBA
TRABAJAR CON RANGOS

Eliminar todas las fila vacas
El siguiente ejemplo elimina todas las filas vaca de un libro de trabajo activo. Controla slo las filas del rango usado, que est determinado por el empleo de la propiedad UsedRange del objeto WorkSheet. Sub EliminarFilasVacas() LastRow = ActiveSheet.usedRange.Rows.Count Application.ScreenUpdating = False For r = LastRow To 1 Step -1 If Application.WorksheetFunction.CountA(Rows(r)) = 0 Then _ Rows(r).Delete Next r End Sub
152
76
Excel con VBA
TRABAJAR CON RANGOS

Leer y escribir rangos
Muchas tareas de hoja de clculo implican la transferencia de valores desde una matriz a un rango, o desde un rango a una matriz. Sub LeeryEscribirRango() Dim MiMatriz() NumElements = 60000 ReDim MiMatriz(1 To NumElements) For i = 1 To NumElements MiMatriz(i) = i Next i For i To NumElements Cells(i,1) = i Next i End Sub
153
Excel con VBA
TRABAJAR CON RANGOS

FUNCIN InputBox
La sintaxis para la funcin InputBox de VBA es InputBox(prompt[, title[,default[,xpos[, ypos[,helpfile, context) prompt Requerido. Eltexto desplegadob en el cuadro de entrada title Opcional. El ttulo de la ventana del cuadro de entrada default Opcional. El valor predeterminado que se va a desplegar en el cuadro de dilogo xpos, ypos Opcional. Coordenadas de la pantalla de la esquina superior izquierda de la ventana helpfile, context Opcional. Archivo de ayuda y tema de ayuda La funcin InputBox solicita informacin al usuario. La funcin siempre devuelve una cadena,por lo que puede ser necesario convertir los resultados a un valor.
154
77
Excel con VBA
TRABAJAR CON RANGOS

FUNCIN InputBox
Sub GetName() Do Until UserName <> UserName = InputBox(Introduzca su nombre completo: , _ Identificacin) Loop FirtSpace = InStr(UserName, ) If FirstSpace <> 0 Then UserName = Left(UserName, FirstSpace) End If MsgBox Hola & UserName End Sub
155
Excel con VBA
TRABAJAR CON RANGOS

Funcin MsgBox
La sintaxis de la funcin MsgBox de VBA es: MsgBox (propmt[,buttons[,title[helpfile, context,) prompt. Requerido. El texto desplegado en el mensaje buttons. Opcional. Una expresin numrica que determina los botones y el icono que se va a desplegar en el mensaje title. Opiconal. El ttulo de la ventana del cuadro del mensaje helpfile, context Opcional.Archivo de ayuda y temad de ayuda Constantes usadas por buttons en la funcin MsgBox vbOKOnly: 0, despliega slo el botn Aceptar vbOKCancel: 1, despliega los botones Aceptar y cancelar vbAbortRetryIgnore: 2, despliega los botones Salir, reintentar e Ignorar vbYesNoCancel: 3, despliega los botones S, No y Cancelar vbYesNo: 4, despliega los botones S y No vbRetryCancel: 5, despleiga los botones Reintentar y Cancelar
156
78
Excel con VBA
Parte 9:
Grficos
157
Excel con VBA
TRABAJAR CON GRFICOS

En Excel, un grfico se puede situar en dos lugares dentro de un libro de trabajo: Como un objeto incrustado en un hoja de clculo (una hoja puede contener cualquier nmero de grficos incrustados). En una hoja de grfico aparte (una hoja de grfico contiene un solo grfico). MODELO DE OBJETOS GRFICOS (CHART) Jerarqua para un grfico incrustado Applicattion, WorkBook, WorkSheet, ChartObject, Chart, ChartTitle, Characters Por ejemplo, para establecer el ttulo del grfico en Ventas del Ao , se puede escribir la siguiente instruccin: WorkSheets(Hoja1).ChartObjects(1).Chart.ChartTitle. Characters.Text= Ventas del Ao
158
79
Excel con VBA
MODELO DE OBJETOS GRFICOS (CHART)

Jerarqua para una hoja de grfico Applicattion, WorkBook, Chart, ChartTitle, Characters Por ejemplo, para establecer el ttulo del grfico en Ventas del Ao , se puede escribir la siguiente instruccin: Sheets(Grfico1).ChartTitle. Characters.Text = Ventas del Ao En otras palabras, una hoja de grficoes un objeto de clase Chart y no contiene objeto de clase ChartObject.
159
Excel con VBA
GRABAR MACROS DE GRFICO

Quiz el mejor modo de familiarizarse con el modelo de objeto de clase Chart sea activar el Grabador de macro mientras se crean y manipulan grficos.
AO 2000 SEAT BMW AUDI FIAT RENAULT 1200

CANTIDAD 3500 3000 2500 2000 1500 1000 500 0
VENTAS DEL AO 2000

3200 2000 1200 1300 3100
2000 3200 1300 3100
SEAT
BMW
AUDI MARCAS
FIAT
RENAULT
160
80
Excel con VBA
Sub grafico() Range("A2:E6").Select Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A2:E6"), PlotBy:= _ xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1" With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = "VENTAS DEL AO 2000" .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "MARCAS" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "CANTIDAD" End With ActiveChart.HasLegend = False ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowValue, LegendKey:=False End Sub
161
Excel con VBA
Cuando se genera un grfico usando el mtodo Add de la coleccin Charts, el grfico es siempre una hoja de grfico. En el cdigo anterior, el mtodo Location mueve el grfico a una hoja de clculo. ACTIVAR UN GRFICO El cdigo VBA puede activar un grfico incrustado usando el mtodo Activate. ActiveSheet.ChartObjects(Grfico 1).Activate Si el grfico se encuentra en una hoja de grfico, se usa una instrucciin como esta: Sheets(Grfico1)Activate Una vez activado el grfico, se puede hacer referencia a l en el cdigo con ActiveChart. Por ejemplo, la siguiente instruccin despliega el nombre del grfico activo. S no existe un grfico activo, la instruccin genera un error. MsgBox ActiveChart.name
162
81
Excel con VBA
Para modificar un grfico en VBA, no es necesario activarlo. Veamos un ejemplo que cambia el tipo de grfico a Areas. Sub Modificar_Grafico ActiveSheet.ChartObjects(Grafico1).Chart.Type = xlArea End Sub Convertir un grfico incrustado en una hoja de grfico Sub ConvertChart1() Sheets(Hoja1).ChartObjects(1).Chart.Location xlLocationAsNewShee, Mi Grfico End Sub Convertir una hoja de grfico en un grfico incrustado Sub ConvertChart2() Charts(Mi grfico).Location xlLocationAsObject, Hoja1 End Sub
163
Excel con VBA
Determinar si un grfico est activado La siguiente funcin CharIsSelected devuelve Verdadero si est activa una hoja de grafico o si est activo un grfico incrustado, y devuelve Falso si no est activado ningn grfico: Private Function ChartIsSelected() As boolean Dim x As String ChartIsSelected = False On Error Resume Next x = ActiveChart.Name if Err = 0 Then CharIsSelected = True End Function Eliminar ObjetosGrficos (ChartObjects) de grficos (Charts) Para eliminar objetos de clase ChartObject de un libro de trabajo, se puede usar simplemente el mtodo Delete de la coleccin ChartObjects. ActiveSheet.ChartObjects.Delete
164
82
Excel con VBA
Para eliminar hojas de grfico de un libro de trabajo activo, se usa la siguiente instruccin: ActiveWorkBook.Charts.Delete Normalmente, si se eleminan hojas Excel presenta una advertencia. El usuario debe contestar a este aviso para que pueda continuar la macro. Para elimnar este aviso se usa la siguiente serie de instrucciones: Application.DisplayAlerts = False ActiveWork.Charts.Delete Application.DisplayAlerts = False
165
Excel con VBA
Aplicar formato al grfico El siguiente ejemplo aplica diferentes tipos de formato al grfico activo: Sub ChartMod1() with ActiveChart .Type = xlArea .ChartArea.Font.Name = Arial .ChartArea.FontStyle = Regular .PlotArea.Interior.ColorIndex = xlNone .Axes(xlValue).TickLabels.Font.Bold = True .Axes(xlCategory).TickLabels.Font.Bold = True .HasLegend = True .Legend.Position = xlBottom End with End Sub Debe estar activo un grfico o este procedimiento dar error.
166
83
Excel con VBA
Aplicar formato al grfico El siguiente ejemplo funciona en un grfico concreto: el contenido en un ChartObject llamado Grfico 1, ubicado en la Hoja1. Ntese que el grfico nunca se activa. Sub ChartMod2() with Sheets(Hoja1).ChartObjects(Grfico 1).Chart .Type = xlArea .ChartArea.Font.Name = Arial .ChartArea.FontStyle = Regular .PlotArea.Interior.ColorIndex = xlNone .Axes(xlValue).TickLabels.Font.Bold = True .Axes(xlCategory).TickLabels.Font.Bold = True .HasLegend = True .Legend.Position = xlBottom End with End Sub
167
Excel con VBA
Bucle por todos los grficos En algunos casos es necesario ejecutar una operacin en todos los grficos. El siguiente ejemplo cambia el tipo de grfico para cada grfico incrustado en una hoja activa. Sub Cambiar_Tipo_Grafico1() For each cht In ActiveSheet.ChartObjects cht.Chart.Type = xlArea Next cht End Sub El siguiente procedimiento realiza la misma operacin que el procedimiento anterior pero funciona en todas las hojas de grfico de un libro de trabajo activo: Sub Cambiar_Tipo_Grafico2() For each cht In ActiveWorkBook.Charts cht.Type = xlArea Next cht End Sub
168
84
Excel con VBA
Bucle por todos los grficos Sub Cambiar_Leyenda() For each cht In ActiveSheet.ChartObjects With cht.hart.Legend.Font .Name = Arial .FontStyle = Bold .Size = 12 End With Next cht End Sub Alinear y ajustar el tamao de los ObjetosGrficos (ChartObjects) Un objeto de clase ChartObject posee propiedades de posicin y tamao estndar, a las que se puede acceder con el cdigo VBA. El siguiente ejemplo ajusta el tamao de todos los objetos de la clase ChartObject en HOJA1, de forma que se ajusten a las dimensiones del ChartObject llamado Grfico 1. Tambin ordena los objetos de clase ChartObject de forma que aparezcan uno despus del otro a lo largo de la izquierda de la hoja de clculo:
169
Excel con VBA
Alinear y ajustar el tamao de los ObjetosGrficos (ChartObjects) Sub Tamao_Posicin_Grficos W = ActiveSheet.ChartObjects(Grfico 1).Width H = ActiveSheet.ChartObjects(Grfico 1).Height TopPos = 0 For each chtObj in ActiveSheet.ChartObjects with chtObj .Width = W .Height = H .Left = 0 .Top = TopPos End With TopPos = TopPos + H Next chtObj End Sub
170
85
Excel con VBA
Presentar un grfico en un UserForm Supongamos que tenemos un procedimiento grafico que genera un grfico incrustado en la hoja1.
Sub ShowChart() grafico UserForm1.Show End Sub Private Sub UserForm1_Initialize() Set CurrentChart = ActiveSheet.ChartObjects(1).Chart Fname = ThisWork.Path & "\temp.gif" CurrentChart.Export FileName:=Fname, FilterName:="GIF" Sheets("Hoja1").ChartObjects1(1).Delete Image1.Picture = LoadPicture(Fname) Application.ScreenUpdating = True Kill ThisWorkbook.Path & "\temp.gif" End Sub
171
Excel con VBA
CONTROL DE ERRORES DE EJECUCIN

Los errores de ejecucin de tipo externo suelen interrumpir de form sbita la ejecucin normal del programa. Dependiendo del tipo de error, o bien VBA o bien Windows mostrarn un mensaje de error que no siempre ser comprensible para el usuario.Veremos ejemplos de cmo hacer que nuestro programa controle estos errores sin terminar de forma anormal y generando nuestros propios mensajes de rror para el usuario. EJEMPLO
Sub grabar() On Error goTo Problemas Application.SaveWorkSpace On Error GoTo 0 Exit Sub Problemas: MsgBox operacin cancelada Resume Next EndSub
172
86
Excel con VBA

El mtodo SaveWorkspace del objeto Application muestra el cuadro de dilogo estndar Guardar Como La instruccin On error GoTo activa el control de los errores de ejecucin. Todos los errores ocurridos en la lneas uqe siguen a esta instruccin desviarn el flujo de ejecucin a un bloque de cdigo de tratamiento de errores. El control de errores se interrumpe con la instruccin On Error GoTo 0. El esquema a seguir es:
Sub nombre_del_procedimiento() On Error GoTo Etiqueta Inicio del control (Instrucciones con control de errores) On errorGoTo 0 Fin del control Exit Sub Fuerza el final del procedimiento Etiqueta: Inicio del bloque de tratamiento de errores (Acciones a seguir en caso de error) Resume Next Fin el bloque End Sub
173
Excel con VBA

Tambin podemos ignorar los errores producidos en un cierto bloque de cdigo; dicho en otras palabras, las acciones a realizar en caso de error no existen, pero no queremos que el programa se detenga de forma anormal. En este caso el esquema a seguir es: On error Resume next Inicio del control (Instrucciones con control de errores) On Error GoTo 0 Fin del control Cualquier error en las instrucciones que tienen el control de errores activado ser ignorado, y la ejecucin seguir por la siguiente instruccin. Obviamente este esquema es ms cmo pero ms peligroso.
174
87

Apunte de Excel Con VBA

Cargado por

Copyright:

Formatos disponibles

Apunte de Excel Con VBA

Cargado por

Información del documento

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

Apunte de Excel Con VBA

Cargado por

Copyright:

Formatos disponibles

Excel con VBA

Excel con Visual Basic Para Aplicaciones (VBA)

Excel con VBA

Excel con VBA

Excel con VBA

El secreto de usar VBA con otras aplicaciones reside en entender

Excel con VBA

Excel con VBA

Excel con VBA

Excel con VBA

Excel con VBA

Excel con VBA

Excel con VBA

Excel con VBA

EL EDITOR DE VISUAL BASIC

Excel con VBA

VENTANAS DEL EDITOR DE VISUAL BASIC

Excel con VBA

Excel con VBA

Excel con VBA

Excel con VBA

Excel con VBA

INTRODUCIR UN CDIGO VBA

Excel con VBA

Excel con VBA

Excel con VBA

.RightMargin = Application.InchesToPoints(0) .TopMargin = Application.InchesToPoints(0)

Excel con VBA

Excel con VBA

Excel con VBA

PERSONALIZAR EL ENTORNO DEL EDITOR DE VB La ficha Editor

Excel con VBA

PERSONALIZAR EL ENTORNO DEL EDITOR DE VB La ficha Formato del editor

Excel con VBA

PERSONALIZAR EL ENTORNO DEL EDITOR DE VB La ficha Formato del editor

Excel con VBA

PERSONALIZAR EL ENTORNO DEL EDITOR DE VB La ficha Acoplar

Excel con VBA

PERSONALIZAR EL ENTORNO DEL EDITOR DE VB El Examinador de Objetos

Excel con VBA

Excel con VBA

VARIABLES Y TIPOS DE DATOS

Excel con VBA

TIPOS DE DATOS INTEGRADOS EN VBA

Excel con VBA

MBITO DE LAS VARIABLES

Excel con VBA

Excel con VBA

Variables a nivel de mdulo

Excel con VBA

Excel con VBA

CONSTANTES Declarar Constantes

Excel con VBA

CONSTANTES Declarar Constantes

TRABAJAR CON CADENAS

Excel con VBA

TRABAJAR CON FECHAS

Excel con VBA

Excel con VBA

MATRICES DE UNA DIMENSIN