Hoja1 - 1
Option Explicit
ThisWorkbook - 1
Option Explicit
A - 1
Option Explicit
Sub MostrarMensaje()
'A) Realice un método sub que genere un mensaje con una
'función msgbox de visual basic for applications.
MsgBox "¡Hola Mundo! Este es un mensaje de prueba."
End Sub
B - 1
Option Explicit
Sub DeclararVariables()
'B) Realice un pequeño programa en el cual se declaren
'variables enteras y tipo string con la estructura Dim “nombre
'de la variable” as integer o estructura Dim “nombre de la
'variable” as string.
Dim numero As Integer
Dim nombre As String
numero = 10
nombre = "Katalina"
MsgBox "Número: " & numero & ", Nombre: " & nombre
End Sub
C - 1
Option Explicit
Sub IncrementarByte()
'c. Construya un programa que tenga una variable tipo byte,
'luego guarde en la variable un número menor a 200 para que
'luego el programa incremente el valor de la variable en una unidad.
Dim numero As Byte
numero = 150 ' Número menor a 200
numero = numero + 1
MsgBox "El nuevo valor es: " & numero
End Sub
D - 1
Option Explicit
Sub CapturarDato()
'd. Realice un programa que declare una variable tipo entera
'(integer) y capture un dato con la función inputbox de visual
'basic for applications para luego ser publicada con la función msgbox.
Dim numero As Integer
numero = InputBox("Introduce un número entero:")
MsgBox "El número capturado es: " & numero
End Sub
E - 1
Option Explicit
Sub CalculosAritmeticos()
'e. Busque o proponga una ecuación sencilla que requiera
'cálculos aritméticos que incluyan: suma, resta, multiplicación,
'división y potenciación y construya un programa que solicite
'al usuario los datos, usando la función inputbox de visual
'basic for applications y calcule el resultado mostrando en
'pantalla, por medio de la función msgbox.
Dim num1 As Double
Dim num2 As Double
Dim suma As Double
Dim resta As Double
Dim multiplicacion As Double
Dim division As Double
Dim potencia As Double
num1 = InputBox("Introduce el primer número:")
num2 = InputBox("Introduce el segundo número:")
suma = num1 + num2
resta = num1 - num2
multiplicacion = num1 * num2
division = num1 / num2
potencia = num1 ^ num2
MsgBox "Suma: " & suma & vbCrLf & _
"Resta: " & resta & vbCrLf & _
"Multiplicación: " & multiplicacion & vbCrLf & _
"División: " & division & vbCrLf & _
"Potencia: " & potencia
End Sub
F - 1
Option Explicit
Sub GenerarNumeroAleatorio()
'f. Realice un programa que genere números aleatorios usando
'la función Rnd de visual basic for applications
Dim numeroAleatorio As Integer
Randomize ' Inicializa el generador de números aleatorios
numeroAleatorio = Int((100 * Rnd) + 1) ' Genera un número entre 1 y 100
MsgBox "Número aleatorio generado: " & numeroAleatorio
End Sub
G - 1
Option Explicit
Sub RedondearNumero()
'g. Proponga una operación o una ecuación sencilla que dé
'como resultado un número con varios decimales para luego
'ser redondeados a un dígito con la función Round.
Dim numero As Double
Dim numeroRedondeado As Double
numero = 12.34567
numeroRedondeado = Round(numero, 1) ' Redondea a un dígito
MsgBox "Número original: " & numero & vbCrLf & _
"Número redondeado: " & numeroRedondeado
End Sub
H - 1
Option Explicit
Sub ConvertirDoubleAInteger()
'h. Construya un programa que declare una variable tipo double
'y otra tipo integer, en la variable double aloje un número que
'sea menor a 30.000 y luego use la función Int() para
'convertirlo en entero para luego almacenarlo en la variable entera
Dim numeroDouble As Double
Dim numeroInteger As Integer
numeroDouble = 29999.99
numeroInteger = Int(numeroDouble) ' Convierte a entero
MsgBox "Número Double: " & numeroDouble & vbCrLf & _
"Número Integer: " & numeroInteger
End Sub
I - 1
Option Explicit
Sub ExtraerResiduo()
'i. Construya un programa que usando el operador mod de
'visual basic extraiga el residuo de una división.
Dim dividendo As Integer
Dim divisor As Integer
Dim residuo As Integer
dividendo = 10
divisor = 3
residuo = dividendo Mod divisor ' Extrae el residuo
MsgBox "El residuo de " & dividendo & " dividido por " & divisor & " es: " & residuo
End Sub
J - 1
Option Explicit
Sub IdentificarParImpar()
'j. Respecto al ejercicio anterior, responda la siguiente pregunta
'¿Cómo se puede usar el operador mod para identificar si un
'número es par o impar?
Dim numero As Integer
numero = InputBox("Introduce un número:")
If numero Mod 2 = 0 Then
MsgBox numero & " es un número par."
Else
MsgBox numero & " es un número impar."
End If
End Sub
K - 1
Option Explicit
Sub CapturarDatoEnCelda()
'k. Construya un método sub que Capture un dato dentro de
'una celda de una de las hojas de Excel, se recomienda revisar
'el objeto range, ya que este permite hacer referencia a rangos
'de celdas en Excel, ejemplo range(“A2”).value.
Dim dato As String
dato = InputBox("Introduce un dato para la celda A1:")
Range("A1").Value = dato
End Sub
L - 1
Option Explicit
Sub SumarYColocarResultado()
'l. Construya un método sub que sume el valor de dos celdas y Consigne el resultado de la suma en otra
celda.
' Definir las celdas que se van a sumar
Dim celda1 As Range
Dim celda2 As Range
Dim celdaResultado As Range
' Asignar las celdas a las variables
Set celda1 = Range("A1") ' Cambia "A1" por la celda que desees
Set celda2 = Range("B1") ' Cambia "B1" por la celda que desees
Set celdaResultado = Range("C1") ' Cambia "C1" por la celda donde quieres mostrar el resultado
' Sumar los valores de las celdas y asignar el resultado
' Opcional: Mensaje para confirmar la operación
MsgBox "La suma de " & [Link] & " y " & [Link] & " es " & [Link]
End Sub
M - 1
Option Explicit
Sub ModificarValorCelda()
'm. Utilice el objeto cells y el método .value con el fin de
'modificar el valor de una celda en específico.
' Modificar el valor de la celda en la fila 2, columna 3 (C2)
Cells(2, 3).Value = "PRUEBA"
' Opcional: Mensaje para confirmar la modificación
MsgBox "El valor de la celda " & Cells(2, 3).Address & " ha sido modificado a 'PRUEBA'."
End Sub
N - 1
Option Explicit
Sub SeleccionarCelda()
'n. Construya un método sub que seleccione una celda usando
'el objeto activecell de visual basic for applications y el
'método select, ejemplo [Link]
' Seleccionar la celda activa
[Link]
' Opcional: Mensaje para confirmar la selección
MsgBox "La celda " & [Link] & " ha sido seleccionada."
End Sub
O - 1
Option Explicit
Sub ModificarCelda()
'o. Construya un método sub que seleccione una celda de Excel
'y luego use el objeto activecell con su método offset para
'modificar el valor de otra celda, tenga en cuenta la siguiente
estructura [Link](1, 3).Value
' Selecciona la celda activa
Dim celdaActual As Range
Set celdaActual = ActiveCell
' Modifica el valor de la celda que está 1 fila abajo y 3 columnas a la derecha
[Link](1, 3).Value = "ACTIVIDAD FINANLIZADA"
' Opcional: Mensaje para confirmar la modificación
MsgBox "El valor de la celda " & [Link](1, 3).Address & " ha sido modificado."
End Sub
Z - 1
Option Explicit
