Trabajo de Macros
Trabajo de Macros
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()
End Sub
Excel
Visual Basic
Option Explicit
Sub sumar()
Dim Numero1 As Integer
Dim Numero2 As Integer
End Sub
Option Explicit
Sub multiplicar()
Dim Numero1 As Integer
Dim Numero2 As Integer
Dim Numero3 As Integer
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
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
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
Visual Basic
Excel
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
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