PROGRAMACIÓN DE MACROS I

Ya vimos como se comporta el código de las macros más comunes, pero que pasa si no es lo que requerimos o requerimos una personalización mejor para que la macro ejecute todas las acciones que estoy buscando.

Puedo decir que un curso, tutoría, manual o lo que se relacione de programación de macros, tomaría más de diez hojas para explicarlo y no es el objetivo de mi página, para eso ya existe muchísima información en otras páginas de Internet, pero a lo que si vamos a empezar es a entrar de lleno en el manejo de macros y como errar es de humanos, cualquier duda, problema o sugerencia para hacer de ésta pagina su guía será bienvenida.

Vayamos a los ejercicios:

'Mostrar un mensaje con la suma de 2 cantidades
Sub SumaDosNumeros()
    'Se dimensiona la variable
Dim Sum As Integer
    'Se realiza la operación y el resultado se guarda en la variable
    Sum = 1 + 1
    'Se muestra un mensaje con el resultado
    MsgBox "La suma es: " & Sum, vbInformation + vbOKOnly, "Suma"
End Sub

'Mostrar un mensaje con la suma de 2 celdas
Sub SumaDosCeldas()
   'Se dimensiona la variable
Dim Sum As Integer, Valor1 As Integer, Valor2 As Integer
   'Se asigna valor a cada variable
   Valor1 = Range("A1").Value
   Valor2 = Range("A2").Value
   'Se realiza la operación y el resultado se guarda en la variable
   Sum = Valor1 + Valor2
   'Se muestra un mensaje con el resultado
   MsgBox "La suma de A1 y A2 es: " & Sum, vbInformation + vbOKOnly, "Suma"
End Sub

'Mostrar un mensaje con la suma de 2 cantidades solicitadas
Sub Solicita2NumerosySuma()
   'Se dimensionan la variables
Dim Sum As Integer, Valor1 As Integer, Valor2 As Integer
   'Se Solicitan los valores y se guardan en las variables
   Valor1 = InputBox("Dame un número", "Valor1")
   Valor2 = InputBox("Dame el segundo número", "Valor2")
   Sum = Valor1 + Valor2
   'Se muestra un mensaje con el resultado
   MsgBox "La suma es: " & Sum, vbInformation + vbOKOnly, "Suma"
End Sub

'Sumar dos celdas y mostrar el resultado en una tercera
Sub SumaCeldasMuestraenOtra()
   'Se dimensionan la variables
Dim Sum As Integer, Valor1 As Integer, Valor2 As Integer
   'Se Solicitan los valores y se guardan en las variables
   Valor1 = Range("A1").Value
   Valor2 = Range("A2").Value
   Sum = Valor1 + Valor2
   'Muestra el resultado en la celda A3
   Range("A3").Value = Sum
End Sub

'Solicita un número e identifica si es cero, positivo o negativo
Sub CeroPositivoNegativo()
Dim Valor1 As Double
   Valor1 = InputBox("Dame un número", "Valor1")
If Valor1 > 0 Then
   MsgBox "El número es positivo", vbOKOnly, "Tipo Valor"
ElseIf valor < 0 Then
   MsgBox "El número es negativo", vbOKOnly, "Tipo Valor"
ElseIf Valor1 = 0 Then
   MsgBox "El número es cero", vbOKOnly, "Tipo Valor"
End If
End Sub

Recomiendo que hagas todo lo posible por realizar las prácticas y desarrolles un poco la lógica... a veces es mejor visualizar el problema, ponerlo en papel y luego programar, bueno eso es lo que se debería hacer... por eso me aplico, aunque acá entre nos, a veces no lo hago... también debo aclarar que cada quién programa muy diferente, utiliza diferentes variables y razonamientos, así que la programación puede variar a lo que ustedes lleguen a realizar.

Práctica1:
Solicita dos Números, si son iguales, entonces que me muestre un mensaje diciéndome que son iguales, después que sume los dos números, los guarde en un variable y me muestre un mensaje con el resultado o por el contrario que me muestre un mensaje diciendo que no son iguales y después que multiplique los valores, que guarde el resultado en una variable y me muestre un mensaje con el resultado.

Solución
 

Secciones Macros VBA:

Introducción Macros

Macros Comunes de Celdas, Hojas, Libros

Programación Macros I

Programación Macros II

Programación Macros III

Utilizando Formularios

Descarga ejercicios correspondientes a esta sección:

Utilizando Variables, Msgbox, InputBox, Operaciones Matemáticas, etc.