¡Descarga tutorial de macros de Excel y más Apuntes en PDF de Informática solo en Docsity!
MACROS EN MS EXCELL
¿Que es una macro ?.
Una macro son un conjunto de instrucciones que sirven para automatizar procesos. Refiriéndonos a excel, supongamos que realizamos frecuentemente la acción de seleccionar un rango para aplicarle negrita, cambio de fuente y centrado. En lugar de hacer estas acciones manualmente, se puede elaborar una macro e invocarla para que ejecute los tres procesos automáticamente.
Objetos, propiedades y métodos.
A la hora de trabajar con macros en excel, deben tenerse claros ciertos conceptos de lo que se llama programación orientada a objetos (OOP). No nos extenderemos demasiado sobre la OOP, pero si definiremos a continuación los conceptos de Objeto , Propiedades y Métodos.
Objeto.
Cuando en el mundo real nos referimos a objeto significa que hablamos de algo más o menos abstracto que puede ser cualquier cosa. Si decidimos concretar un poco más podemos referirnos a objetos coche, objetos silla, objetos casa, etc. En OOP, la generalización (o definición) de un objeto se llama Clase , así la clase coche seria como la representante de todos los coches del mundo, mientras que un objeto coche seria un coche en concreto. De momento, no definiremos ni estudiaremos las clases sino que nos concentraremos en los objetos, tenga en cuenta pero que cualquier objeto está definido por una clase.
Cuando decimos que la clase coche representa a todos los coches del mundo significa que define como es un coche, cualquier coche. Dicho de otra forma y para aproximarnos a la definición informática, la clase coche define algo que tiene cuatro ruedas, un motor, un chasis,... entonces, cualquier objeto real de cuatro ruedas, un motor, un chasis,... es un objeto de la clase coche.
Propiedades.
Cualquier objeto tiene características o propiedades como por ejemplo el color, la forma, peso, medidas, etc. Estas propiedades se definen en la clase y luego se particularizan en cada objeto. Así, en la clase coche se podrían definir las propiedades Color, Ancho y Largo , luego al definir un objeto concreto como coche ya se particularizarían estas propiedades a, por ejemplo, Color = Rojo, Ancho = 2 metros y Largo = 3,5 metros.
Métodos.
La mayoría de objetos tienen comportamientos o realizan acciones, por ejemplo, una acción evidente de un objeto coche es el de moverse o lo que es lo mismo, trasladarse de un punto inicial a un punto final. Cualquier proceso que implica una acción o pauta de comportamiento por parte de un objeto se define en su clase para que luego pueda manifestarse en cualquiera de sus objetos. Así, en la clase coche se definirían en el método mover todos los procesos necesarios para llevarlo a cabo (los procesos para desplazar de un punto inicial a un punto final), luego cada objeto de la clase coche simplemente tendría que invocar este método para trasladarse de un punto inicial a un punto final, cualesquiera que fueran esos puntos.
Repasemos a continuación todos estos conceptos pero ahora desde el punto de vista de algunos de los objetos que nos encontraremos en Excel como WorkSheet (Objeto hoja de cálculo) o Range (Objeto casilla o rango de casillas).
Un objeto Range está definido por una clase donde se definen sus propiedades, recordemos que una propiedad es una característica, modificable o no, de un objeto. Entre las propiedades de un objeto Range están Value , que contiene el valor de la casilla , Column y Row que contienen respectivamente la fila y la columna de la casilla, Font que contiene la fuente de los caracteres que muestra la casilla, etc.
Range , como objeto, también tiene métodos, recordemos que los métodos sirven llevar a cabo una acción sobre un objeto. Por ejemplo el método Activate , hace activa una celda determinada, Clear , borra el contenido de una celda o rango de celdas, Copy , copia el contenido de la celda o rango de celdas en el portapapeles,...
Conjuntos.
Una conjunto es una colección de objetos del mismo tipo, para los que conozcan algún lenguaje de programación es un array de objetos. Por ejemplo, dentro de un libro de trabajo puede existir más de una hoja ( WorkSheet ), todas las hojas de un libro de trabajo forman un conjunto, el conjunto WorkSheets. Cada elemento individual de un conjunto se referencia por un índice, de esta forma, la primera, segunda y tercera hoja de un libro de trabajo, se referenciarán por WorkSheets(1), WorkSheets(2) y WorkSheets(3).
Objetos de Objetos.
Es muy habitual que una propiedad de un objeto sea otro objeto. Siguiendo con el coche, una de las propiedades del coche es el motor, y el motor es un objeto con propiedades como cubicaje, caballos, número de válvulas, etc. y métodos, como aumentar_revoluciones, coger_combustible, mover_pistones, etc.
En Excel, el objeto WorkSheets tiene la propiedad Range que es un objeto, Range tiene la propiedad Font que es también un objeto y Font tiene la propiedad Bold (negrita). Tenga esto muy presente ya que utilizaremos frecuentemente Propiedades de un objeto que serán también Objetos. Dicho de otra forma, hay propiedades que devuelven objetos, por ejemplo, la propiedad Range de un objeto WorkSheet devuelve un objeto de tipo Range.
Programación Orientada a Objetos o Programación Basada en Objetos.
Hay una sutil diferencia entre las definiciones del título. Programación orientada a Objetos, significa que el programador trabaja con objetos fabricados por él mismo, es decir, el programador es quien implementa las clases para luego crear objetos a partir de ellas. Lo que haremos nosotros, por el momento, será utilizar objetos ya definidos por la aplicación Excel (WorkSheets, Range,...) sin implementar ni nguno de nuevo, por lo que en nuestro caso es más correcto hablar de programación basada en objetos. Observe que esta es una de las grandes ventajas de la OOP, utilizar objetos definidos por alguien sin tener que conocer nada sobre su implementación, sólo debemos conocer sus propiedades y métodos y utilizarlos de forma correcta.
Bueno, después de esta extensa pero necesaria introducción pasemos ya a hacer alguna cosa en Excel. No es necesario que se aprenda lo anterior al pié de la letra y tampoco es necesario que lo comprenda al cien por cien, sólo téngalo presente para las definiciones que vienen a continuación y verá como va asimilando los conceptos de Objeto, propiedades, métodos, etc.
Insertar un procedimiento.
Ya hemos dicho que un procedimiento es un bloque de instrucciones de código que sirven para llevar a cabo alguna tarea específica. Un procedimiento empieza siempre con la instrucción
Sub Nombre_Procedimiento
Y termina con la instrucción
End Sub.
A continuación crearemos un procedimiento para poner el texto "Hola" en la casilla A1.
Ejemplo 1
Sub Primero
Range ("A1"). Value = "Hola"
End Sub
Observe el código.
Range ("A1"). Value ="Hola"
En esta línea estamos indicando que trabajamos con un objeto Range. Para indicarle que nos referimos a la casilla A1, encerramos entre paréntesis esta referencia (más adelante verá otra forma de referirnos a las casillas). De este objeto, indicamos que queremos establecer un nuevo valor para la propiedad Value , observe que para separar el objeto de su propiedad utilizamos la notación punto.
Recuerde que el conjunto Range es un objeto que pende del objeto WorkSheets , así por ejemplo el siguiente código haría lo mismo que el anterior.
WorkSheets (1). Range ("A1"). Value = "Hola"
Bueno, de hecho no hace lo mismo, en la primera opción, el texto "Hola" se pone dentro de la casilla A de la hoja activa, mientras que en el segundo es en la casilla A1 de primera hoja ( del conjunto de hojas). La segunda notación es más larga, pero también más recomendable ya que se especifican todos los objetos. En muchas ocasiones se pueden omitir algunos objetos precedentes, no le aconsejamos hacerlo, sus programas perderán claridad y concisión.
Si desea hacer referencia a la hoja activa puede utilizar ActiveSheet , así, el primer ejemplo lo dejaremos de la manera siguiente.
Sub Primero
ActiveSheet.Range("A1").Value = "Hola"
End Sub
Si desea poner "Hola" (o cualquier valor) en la casilla activa, puede utilizar la propiedad (objeto) Activecell de WorkSheets. Así para poner "Hola" en la casilla activa de la hoja activa seria,
Sub Primero
ActiveSheet.ActiveCell.Value = "Hola"
End Sub
Para terminar con este primer ejemplo. WorkSheets están dentro del Objeto WorkBooks (libros de trabajo) y WorkBooks están dentro de Application. Application es el objeto superior, es el que representa la aplicación Excel. Así, el primer ejemplo, siguiendo toda la jerarquía de objetos quedaría de la forma siguiente.
Sub Primero
Application.WorkBooks(1).WorkSheets(1).Range("A1").Value = "Hola"
End Sub
Insistiendo con la nomenclatura, Application casi nunca es necesario especificarlo, piense que todos los objetos penden de este, WorkBooks será necesario implementarlo si en las macros se trabaja con diferentes libros de trabajo (diferentes archivos), a partir de WorkSheets , es aconsejable incluirlo en el código, sobre todo si se quiere trabajar con diferentes hojas, verá, sin embargo, que en muchas ocasiones no se aplica.
Ejecutar un procedimiento o función.
Pruebe ejecutar el primer procedimiento de ejemplo.
- Sitúe el cursor dentro del procedimiento.
- Active opción de la barra de menús Ejecutar/ Ejecutar Sub Userform. También puede hacer clic
sobre el botón o pulsar la tecla F.
Para ejecutar el procedimiento desde la hoja de cálculo.
Debe estar en una hoja, no en el editor de Visual Basic
- Active opción de la barra de menús Herramientas/ Macro/ Macros. Se despliega una ventana que muestra una lista donde estás todas las macros incluidas en el libro de trabajo.
- Seleccione la macro de la lista y pulse sobre el botón Ejecutar.
Variables.
A continuación vamos a repetir el programa Ejemplo1, pero en lugar de poner "Hola" en la casilla A1 de la hoja activa, dejaremos que el usuario entre un texto desde teclado y a continuación guardaremos ese valor en esa casilla. Observe que el valor que entre del usuario debe guardarse en algún lugar para poder ponerlo después en la casilla A1; pues bien, ese valor se guardará en una variable. Una variable es simplemente un trozo de memoria que la función o procedimineto se reserva para guardar datos, la forma general de declarar una variable es
DIM variable AS tipo.
Siendo variable el nombre que se asigna a la misma y Tipo el tipo de datos que se guardarán (números, texto, fecha, boleanos,...). En nuestro ejemplo, declararemos la variable de tipo String (tipo texto), y lo haremos de la forma siguiente.
Dim Texto As String
Con esto estamos indicando que se reserve un trozo de memoria (el que sea) , que se llama Texto y que el tipo de datos que se guardarán ahí serán caracteres.
La Función InputBox****.
Esta función muestra una ventana para que el usuario pueda teclear datos. Cuando se pulsa sobre Aceptar , los datos entrados pasan a la variable a la que se ha igualado la función. Vea la línea siguiente.
Texto = InputBox ("Introduzca el texto", "Entrada de datos").
Si en la ventana que muestra InputBox pulsa sobre el botón Aceptar, los datos tecleados se guardarán el la variable Texto.
Sintaxis de InputBox.
InputBox ( Mensaje , Título , Valor por defecto , Posición horizontal , Posición Vertical , Archivo ayuda , Número de contexto para la ayuda ).
Mensaje : Es el mensaje que se muestra en la ventana. Si desea poner más de una línea ponga Chr(13) para cada nueva línea, vea el ejemplo siguiente.
Título : Es el título para la ventana InputBox. Es un parámetro opcional.
Valor por defecto : Es el valor que mostrará por defecto el cuadro donde el usuario entra el valor. Parámetro opcional.
Posición Horizontal : La posición X de la pantalla donde se mostrará el cuadro, concretamente es la posición para la parte izquierda. Si se omite el cuadro se presenta horizontalmente centrado a la pantalla.
Posición Vertical : La posición Y de la pantalla donde se mostrará el cuadro, concretamente es la posición para la parte superior. Si se omite el cuadro se presenta verticalmente centrado a la pantalla.
Archivo Ayuda: Es el archivo que contiene la ayuda para el cuadro. Parámetro opcional.
Número de contexto para la ayuda: Número asignado que corresponde al identificador del archivo de ayuda, sirve para localizar el texto que se debe mostrar. Si se especifica este parámetro, debe especificarse obligatoriamente el parámetro Archivo Ayuda.
Ejemplo 3
Sub Entrar _ Valor
Dim Texto As String
' Chr(13) sirve para que el mensaje se muestre en dos Líneas Texto = InputBox("Introducir un texto " & Chr(13) & "Para la casilla A1", "Entrada de datos") ActiveSheet.Range("A1").Value = Texto
End Sub
Este ejemplo también se puede hacer sin variables.
Sub Entrar_Valor
ActiveSheet.Range("A1").Value = InputBox ("Introducir un texto " & Chr(13) & "Para la casilla A1", "Entrada de datos") End Sub
Ejemplo 4
Repetiremos el ejemplo 3, pero en lugar de entrar los valores sobre la casilla A1, haremos que el usuario pueda elegir en que casilla quiere entrar los dat os, es decir, se le preguntará al usuario mediante un segundo Inputbox sobre que casilla quiere entrar el valor del primer Inputbox. Serán necesaria dos variables, una para guardar la casilla que escoja el usuario y otra para guardar el valor.
Option Explicit
Sub Entrar_Valor
Dim Casilla As String Dim Texto As String
Casilla = InputBox("En que casilla quiere entrar el valor", "Entrar Casilla") Texto = InputBox("Introducir un texto " & Chr(13) & "Para la casilla " & Casilla , "Entrada de datos")
ActiveSheet.Range(Casilla).Value = Texto
End Sub
Tipos de datos en Visual Basic para Excel. (Tabla copiada de la ayuda en línea de Visual Basic para Excel).
Tipo de datos Tamaño De almacenamiento
Intervalo
Byte 1 byte 0 a 255 Boolean 2 bytes True o False Integer 2 bytes -32.768 a 32. Long (entero largo) 4 bytes -2.147.483.648 a 2.147.483. Single (coma flotante/ precisión simple)
4 bytes -3,402823E38 a -1,401298E-45 para valores negativos; 1,401298E-45 a 3,402823E38 para valores positivos Double (coma flotante/ precisión doble)
8 bytes -1,79769313486232E308 a -4,94065645841247E- para valores negativos; 4,94065645841247E-324 a 1,79769313486232E308 para valores positivos Currency (entero a escala)
8 bytes -922.337.203.685.477,5808 a 922.337.203.685.477, Decimal 14 bytes +/-79.228.162.514.264.337.593.543.950.335 sin punto decimal; +/-7,9228162514264337593543950335 con 28 posiciones a la derecha del signo decimal; el número más pequeño distinto de cero es+/- 0, Date 8 bytes 1 de enero de 100 a 31 de diciembre de 9999 Object 4 bytes Cualquier referencia a tipo Object String (longitud variable)
10 bytes + longitud de la cadena
Desde 0 a 2.000 millones
String (longitud fija) Longitud de la cadena Desde 1 a 65.400 aproximadamente
Variant (con números) 16 bytes Cualquier valor numérico hasta el intervalo de un tipo Double
Variant (con caracteres)
22 bytes + longitud de cadena
El mismo intervalo que para un tipo String de longitud variable
Definido por el usuario (utilizando Type)
Número requerido por los elementos
El intervalo de cada elemento es el mismo que el intervalo de su tipo de datos.
Conversión de Tipos de datos.
Copie el siguiente Ejemplo. Simplemente se piden dos números, se suman y se guardan el la casilla A1 de la hoja activa.
Ejemplo 5
Option Explicit
Sub Sumar()
Dim Numero1 As Integer Dim Numero2 As Integer
Numero1 = InputBox("Entrar el primer valor", "Entrada de datos") Numero2 = InputBox("Entrar el primer valor", "Entrada de datos") ActiveSheet.Range("A1").Value = Numero1 + Numero
End Sub
Ejecute el procedimiento y ponga respectivamente los valores 25 y 25. Observe que todo ha ido correctamente y en la casilla A1 de la hoja activa aparece un 50.
Ahora, vuelva a ejecutar el programa y cuando se le pide el primer valor teclee "Hola". Observe que el programa se detiene indicando un error en el tipo de datos. Efectivamente, observe que la función InputBox devuelve siempre datos tipo String , en el primer ejemplo no ha habido ningún problema, al entrar caracteres numéricos^1 , estos pueden asignarse a variables tipo Integer porque Visual Basic hace automáticamente la conversión, pero al entrar texto e intentarlo asignar a una variable Integer Visual Basic muestra un error indicando que la variable no es adecuada para los datos que se desean guardar.
Para solucionar estos problemas se deben utilizar funciones de conversión de tipo. Estas funciones, como su nombre indica, convierten datos de un tipo a otro, de String a Integer , de Integer a String , de Date a String ,... Así el procedimiento anterior quedaría.
Option Explicit
Sub Sumar ()
Dim Numero1 As Integer Dim Numero2 As Integer
Numero1 = Val(InputBox("Entrar el primer valor", "Entrada de datos")) Numero2 = Val(InputBox("Entrar el primer valor", "Entrada de datos")) ActiveSheet.Range("A1").Value = Numero1 + Numero
End Sub
La función Val (Dato String), convierte una cadena de caracteres a valor numérico. Si la cadena a convertir contiene algún carácter no numérico devuelve 0. Así, si al pedir un valor se teclea "Hola", la función Val, devolverá un cero.
(^1) Tenga en cuenta que para los ordenadores no es lo mismo el número 1 que el carácter "1". En los
lenguajes de programación actuales la conversión de carácter "1" a número 1 se hace automáticamente en muchos casos, esto es bueno y es malo. Es bueno porque nos ahorra tener que hacer las conversiones y es malo porque es más difícil controlar ciertos casos. Siga con los ejemplos y entenderá de lo que estamos hablando. Sólo para su información, el ordenador guarda el número 1 de la siguiente manera 00000001, mientras que el carácter "1" se guarda como 00110000 (el número 48 del código ASCII).
Variables de Objetos.
Una variable objeto sir ve para hacer referencia a un objeto, esto significa que podremos acceder a las propiedades de un objeto e invocar a sus métodos a través de la variable en lugar de hacerlo directamente a través del objeto. Posiblemente no se utilice demasiado esta clase de variables (esta claro que esto dependerá de las preferencias del programador), pero hay casos en los que no hay más remedio que utilizarlas , por ejemplo en estructuras For Each ... Next como veremos, o cuando sea necesario construir funciones que devuelvan rangos, referencias a hojas, etc.
Para declarar una variable objeto se utiliza también la palabra Dim de la forma siguiente,
Dim Var_Objeto As Objeto
Por Ejemplo
Dim R As Range Dim Hoja As WorkSheet
Para asignar un objeto a una variable debe u tilizar la instrucción Set.
Set Variable_Objeto = Objeto
Por Ejemplo
Set R= ActiveSheet.Range("A1:B10") Set Hoja = ActiveSheet Set Hoja = WorkSheets(1)
Veamos a continuación un ejemplo de cómo utilizar este tipo de variables,
Ejemplo 6.
Algo muy simple, llenar el rango de A1 a B10 con la palabra "Hola" y después poner negrita, observe como se asigna una variable objeto al objeto y luego como se trabaja con esa variable de la misma forma que trabajaría directamente sobre el objeto.
Sub obj()
Dim R As Range
Set R = ActiveSheet.Range("A10:B15") R.Value = "Hola" R.Font.Bold = True
End Sub
El valor Nothing.
Algunas veces puede que sea necesario desasignar una variable del objeto al cual hace referencia, en este caso debe igu alar la variable al valor Nothing de la forma siguiente.
Set Variable_Objeto = Nothing
Habitualmente se utiliza Nothing en una estructura condicional para comprobar si la variable objeto está asignada. Observe que si se utiliza una variable objeto a la cual todavía no se le ha hecho ninguna asignación el programa dará error y detendrá su ejecución. Es buena práctica hacer este tipo de comprobaciones antes de trabajar con variables objeto. Veremos un ejemplo de esto en el tema siguiente.
Estructuras condicionales.
Ahora que ya ha experimentado con unos cuantos objetos y propiedades, nos detendremos a estudiar las estructuras condicionales. Las estructuras condicionales son instrucciones de programación que permiten controlar la ejecución de un fragmento de código en función de si se cumple o no una condición. Estudiaremos en primer lugar la instrucción if Condición then .. End if ( S i Condición Entonces ... Fin Si )
La estructura condicional que se construye con la instrucción S i Condición Entonces ... Fin Si tiene la forma siguiente.
. S i Condición Entonces Senténcia Senténcia . . SenténciaN Fin Si . . Cuando el programa llega a la instrucción S i Condición Entonces , se evalúa la condición, si esta se cumple (es cierta), se ejecutan todas las sentencias que están encerradas en el bloque, si no se cumple la condición, se saltan estas sentencias. Esta estructura en Visual Basic tiene la sintaxis siguiente,
If Condición Then Senténcia Senténcia . . SenténciaN End If
Ejemplo 6.
Entrar una cantidad que representa el precio de algo por el teclado con la instrucción InputBox y guardarlo en la celda A1 de la hoja activa. Si el valor entrado desde el teclado (y guardado en A1) es superior a 1000, pedir descuento con otro InputBox y guardarlo en la casilla A2 de la hoja activa. Calcular en A3, el precio de A1 menos el descuento de A2.
Sub Condicional()
ActiveSheet.Range("A1").Value = 0 ' Poner las casillas donde se guardan los valores 0. ActiveSheet.Range("A2").Value = 0 ActiveSheet.Range("A3").Value = 0
ActiveSheet.Range("A1").Value = Val(InputBox("Entrar el precio", "Entrar"))
' Si el valor de la casilla A1 es mayor que 1000, entonces, pedir descuento If ActiveSheet.Range("A1").Value > 1000 Then ActiveSheet.Range("A2").Value = Val(InputBox("Entrar Descuento", "Entrar")) End If
ActiveSheet.Range("A3").Value = ActiveSheet.Range("A1").Value - _ ActiveSheet.Range("A2").Value
End Sub
Esta estructura se utiliza cuando se requiere una respuesta alternativa a una condición. Su estructura es la siguiente.
S i Condición Entonces Senténcia Senténcia . . SenténciaN Sino Senténcia Senténcia . . SenténciaN Fin Si
Observe que, si se cumple la condición, se ejecuta el bloque de sentencias delimitado por S i Condición Entonces y Si no se cumple la condición se ejecuta el bloque delimitado por Sino y Fin Si. En Visual Basic la instrucción S i Condición Entonces ... Sino ... Fin Si se expresa con las instrucciones siguientes.
If Condición Then Senténcia Senténcia . . SenténciaN Else Senténcia Senténcia . . SenténciaN End If
Ejemplo 9.
Entrar una cantidad que representa el precio de algo por el teclado con la instrucción InputBox y guardarlo en la celda A1 de la hoja activa. Si el valor entrado desde el teclado (y guardado en A1) es superior a 1000, se aplica un descuento del 10% sino se aplica un descuento del 5%, el descuento se guarda en la casilla A2 de la hoja activa. Colocar en A3, el total descuento y en A4 el total menos el descuento.
Sub Condicional_Else()
Dim Precio As Single Dim Descuento As Single
Precio = 0
Precio = Val(InputBox("Entrar el precio", "Entrar"))
' Si el valor de la variable precio es mayor que 1000, entonces, aplicar descuento del 10% If Precio > 1000 Then Descuento = Precio * (10 / 100) ActiveSheet.Range("A2").Value = 0,
Else ' Sino ‡ Aplicar descuento del 5% Descuento = Precio * (5 / 100) ActiveSheet.Range("A2").Value = 0, End If
ActiveSheet.Range("A1").Value = Precio ActiveSheet.Range("A3").Value = Descuento ActiveSheet.Range("A4").Value = Precio - Descuento
End Sub
Ejemplo 10.
Restar los valores de las casilla A1 y A2. Guardar el resultado en A3. Si el resultado es positivo o 0, poner la fuente de A3 en azul, sino ponerla en rojo.
Sub Condicional_Else2()
ActiveSheet.Range("A3").Value = AvtiveSheet.Range("A1").Value - _ ActiveSheet.Range("A2").Value
If ActiveSheet("A3").Value < 0 Then ActiveSheet.Range("A3").Font.Color = RGB(255,0,0) Else ActiveSheet.Range("A3").Font.Color = RGB(0,0,255) End If
End Sub
No tiene que sorprenderle, dentro de una estructura if puede ir otra, y dentro de esta otra, y otra... Vea el ejemplo siguiente.
Ejemplo 11.
Comparar los valores de las casilla A1 y A2 de la hoja activa. Si son iguales, escribir en A3 "Los valores de A1 y A2 son iguales" , si el valor de A1 es mayor que A2, escribir "A1 mayor que A2" , sino, escribir "A2 mayor que A1".
' Si total mayor que 10.000 y el producto es Patatas, aplicar descuento. If Total > 10000 And Producto = "Patatas" Then Descuento = Val(InputBox("Entrar Descuento", "Entrar")) Total_Descuento = Total * (Descuento / 100) Total = Total - Total_Descuento ActiveSheet.Range("A5").Value = Total_Descuento ActiveSheet.Range("A6").Value = Total End If
End Sub
Observe que para que se ejecute el bloque de instrucciones entre If.. End If deben cumplirse las dos condiciones que se evalúan, si falla cualquiera de las dos (o las dos a la vez), no se ejecuta dicho bloque.
Operador Lógico Or (O).
Utilizaremos este operador cuando sea preciso que para ejecutar un bloque de instrucciones se cumpla alguna de una serie de condiciones. Observe que sólo es necesario que se cumpla alguna de las condiciones que se evalúan. Vea el ejemplo siguiente.
Ejemplo 13.
Entrar el Nombre, la cantidad y e l precio de un producto desde el teclado y guardarlos respectivamente en A1, A2 y A3. Calcular el total y guardarlo en A4. Si el total es superior a 10.000 o el nombre del producto el "Patatas", pedir un descuento, calcularlo el total descuento y guardarlo en A5, luego restar el descuento del total y guardarlo en A6.
Sub Ejemplo_13()
Dim Producto As String Dim Cantidad As Integer Dim Precio As Single Dim Total As Single Dim Descuento As Single Dim Total_Descuento As Single
Precio = 0
Producto = InputBox("Entrar Nombre del Producto","Entrar") Precio = Val(InputBox("Entrar el precio", "Entrar")) Precio = Val(InputBox("Entrar la cantidad", "Entrar"))
Total = Precio * Cantidad
ActiveSheet.Range("A1").Value = Producto ActiveSheet.Range("A2").Value = Precio ActiveSheet.Range("A3").Value = Cantidad ActiveSheet.Range("A4").Value = Total
' Si total mayor que 10.000 o el producto es Patatas, aplicar descuento. If Total > 10000 Or Producto = "Patatas" Then Descuento = Val(InputBox("Entrar Descuento", "Ent rar")) Total_Descuento = Total * (Descuento / 100) Total = Total - Total_Descuento ActiveSheet.Range("A5").Value = Total_Descuento ActiveSheet.Range("A6").Value = Total End If
End Sub
Observe que para que se ejecute el bloque de instrucciones entre If.. End If sólo es necesario que se cumpla alguna de las dos condiciones que se evalúan (o las dos a la vez). Sólo cuando no se cumple ninguna de las dos no se ejecutan las instrucciones del bloque.
Operador Lógico Not (no).
Este operador se utiliza para ver si NO se cumple una condición. El siguiente ejemplo hace lo mismo que el ejemplo 7 pero utilizando el operador Not.
Ejemplo 14.
Entrar una cantidad que representa el precio de algo por el teclado con la instrucción InputBox y guardarlo en la celda A1 de la hoja activa. Si el valor entrado desde el teclado (y guardado en A1) es superior a 1000, pedir descuento con otro InputBox y guardarlo en la casilla A2 de la hoja activa. Calcular en A3, el precio de A1 menos el descuento de A2.
Sub Ejemplo_14()
Dim Precio As Integer Dim Descuento As Integer
Precio = 0 Descuento = 0
Precio = Val(InputBox("Entrar el precio", "Entrar"))
' Si el valor de la variable precio NO es menor igual 1000, entonces, pedir descuento If Not (Precio <= 1000) Then Descuento = Val(InputBox("Entrar Descuento", "Entrar")) End If
ActiveSheet.Range("A1").Value = Precio ActiveSheet.Range("A2").Value = Descuento ActiveSheet.Range("A3").Value = Precio - Descuento
End Sub
Vea las tablas siguientes para ver los resultados de evaluar dos condiciones con el operador And y con el operador Or.
And. Or. Condición1 Condición2 Resultado Condición1 Condición2 Resultado Falsa Falsa Falso Falsa Falsa Falso Falsa Cierta Falso Falsa Cierta Cierto Cierta Falsa Falso Cierta Falsa Cierto Cierta Cierta Cierto Cierta Cierta Cierto
Observe que con el operador AND deben de cumplirse todas las condiciones (dos o veinticinco) para que el resultado sea cierto. Con el operador OR sólo es necesario que se cumpla una (de las dos o de las veinticinco) para que el resultado sea cierto.
