Trabajo de Macros

Descargar como docx, pdf o txt
Descargar como docx, pdf o txt
Está en la página 1de 13

TRABAJO DE MACROS

I. INSERTAR PROCEDIMIENTOS

Visual Basic

Sub Primera_Clase()
Range("A1") = "UNIVERSIDAD NACIONAL DE MOQUEGUA"
Range("A2") = "Clase_Computacion_Aplicada"
Range("A3") = "Edwin Elias Mejia Reyes"
Range("A4") = "CODIGO:2014103047"
Range("A5") = "CICLO: VIII"
End Sub

Excel
II. VARIABLES
Es una función procedimientos que permite guardar datos en general.
Función InputBox
Muestra una ventana para el ingreso de datos, luego pulsar Aceptar, los
datos pasan a la variable texto:
Texto = InputBox(“Introduzca texto”,”Entrada de Datos”)

Visual Basic

Sub entrar_valor()
Dim texto As String
'Chr(13) sirve para que el mensaje se muestre en dos lineas
texto = InputBox("introducir un texto" & Chr(13) & "para la casilla A1",
"entrada de datos")
ActiveSheet.Range("A1").Value = texto

End Sub

Sub entrar_valor1()

ActiveSheet.Range("A1").Value = InputBox("introducir texto" & Chr(13) &


"para la casilla A1", "entrada de datos")

End Sub
Excel

III. SENTENCIA OPTION EXPLICIT


Su función principal es definir y declarar Variables dentro del
procedimiento y qué tipos de datos se guardan. Si al ejecutar un
procedimiento y una variable no está declarada no se realiza el
programa y se produce un error.

Visual Basic
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 + Numero2

End Sub

Option Explicit

Sub multiplicar()
Dim Numero1 As Integer
Dim Numero2 As Integer
Dim Numero3 As Integer

Numero1 = InputBox("Entrar el primer valor", "Entrada de datos")


Numero2 = InputBox("Entrar el primer valor", "Entrada de datos")
Numero3 = InputBox("Entrar el primer valor", "Entrada de datos")
ActiveSheet.Range("A1").Value = Numero1 * Numero2 * Numero3

End Sub

Excel
IV. VARIABLES DE OBJETOS
Sirve para hacer referencia a un objeto, accediendo a sus propiedades e
invocar a métodos. Para declarar una variable se utiliza la palabra DIM
de la siguiente forma:
DIM Var_Objeto as Objeto

Para asignar un objeto a una variable utilizar Set


Set Var_Objeto = Objeto

Visual Basic

Sub obj()

Dim R As Range

Set R = ActiveSheet.Range("A10:B15")
R.Value = "HOLA"
R.Font.Bold = True

End Sub

Sub obj1()

Dim S As Range

Set S = ActiveSheet.Range("A1:B15")
S.Value = "EDWIN MEJIA"
S.Font.Bold = True
End Sub

Excel

V. ESTRUCTURAS CONDICIONANTES
Son instrucciones de programación que permiten controlar la ejecución
de una condición.

EJEMPLO
Entrar una cantidad que representa el precio de algo por el teclado con
la instrucción InputBox y guardarlo en la celda B6 de la hoja activa. Si el
valor ingresado desde el teclado (y guardado en B6) es superior a 1000,
pedir descuento con otro Inputbox y guardarlo en la celda B7 de la hoja
activa. Calcular B8, el precio de B6 menos el descuento de B7.

Visual Basic

Excel

VI. ESTRUCTURAS IF ELSE


Son instrucciones donde se requiere una alternativa a una condición.

EJEMPLO
Entrar una cantidad que representa el precio de un producto por el
teclado con la instrucción InputBox y guardarlo en la celda C4 de la hoja
activa. Si el valor ingresado desde el teclado (y guardado en C4) es
superior a 1000, se aplica un descuento del 10% si no se aplica un
descuento del 5%, el descuento se guarda en la celda C5 de la hoja
activa. Colocar en C5, el total descuento y en C6 el total menos el
descuento.

Visual Basic

Excel

VII. ESTRUCTURAS IF ANIMADAS


Son instrucciones donde se ingresa una estructura If, y dentro de esta
otra y otra
EJEMPLO
Comparar los valores de las casillas B3 y B4 de la hoja activa. Si son
iguales, escribir en B5“Losvaloresde B3 y B4soniguales”, si el valor de
B3 es mayor que B4, escribir “B3 es mayor que B4”, sino, escribir “B3 es
menor que B4”.

Visual Basic

Excel

VIII. OPERADORES LOGICOS AND (Y) – OR (O)

OPERADORES LOGICOS AND (Y)


Son instrucciones donde es preciso que se cumpla un conjunto de
instrucciones sí o sí.

EJEMPLO
Determinar el costo de un producto en función al precio y cantidad, con
el impuesto del 18% y su costo total final.
Por otro lado aplicar un descuento del 5% si el producto es LLANTAS
CAT si y solo si el costo es mayor a $100,000.00, precio en función del
precio y cantidad, aplicar el IGV del 18% del nuevo costo con descuento
y su valor final. Sólo se aplica el descuento si el producto es LLANTAS
CAT.

Visual Basic
Excel

OPERADORES LOGICOS OR (O)


Son instrucciones donde es preciso que se cumpla alguna alternativa de
un conjunto de instrucciones.

EJEMPLO
Determinar el costo de un producto en función al precio y cantidad, con
el impuesto del 18% y su costo total final.
Por otro lado aplicar un descuento del 2% si el producto es LLANTAS
CAT “O” si el costo es mayor a $100,000.00, precio en función del precio
y cantidad, aplicar el IGV del 18% del nuevo costo con descuento y su
valor final. Sólo se aplica el descuento si el producto es LLANTAS CAT o
el costo es mayor a $100,000.00.

Visual Basic
Excel

También podría gustarte