exel

eVisual Basic For Applications
VBA
Programador macro
Práctico 1
Programar una macro que muestre el texto hola mundo en la celda A1.
Sub holamundo()
(lo que programe tiene que estar en el medio)
   RANGE (“A1”).VALUE = ”HOLAMUNDO”
end sub
Partico 2
Programar una macro que borre lo que hay en A1
Sub borrarA1()
  RANGE(“A1”),VALUE = ””
end sub
Practico 3
Macro que escriba “toto” enlas celdas que van desde A1 hasta
Z43200
Sub escribototo()
   RANGE(“A1:Z43200”).VALUE = ”toto”
end sub
Partico 4
Macro que pida un nombre al usario y lo muestre en A1
Sub pidonombre()
   RANGE(“A1”).VALUE = IMPUTBOX(“INGRESE NOMBRE”)
end sub


¿Qué es una variable?
Espacio de memoria para almacenar información mientras se ejecuta una macro.
Tipos de variable
Double
integer  Numéricas


String }    Texto


date }       Fecha


¿Cómo se define?


dim number as string


number: el nombre de la variable la elige el usuario


Practico 5
Programa que pida 2 números al usuario, los sume y muestre el resultado en A1.
Su sumonumeros ()
   dim numero1 as double
   dim numero2 as double
   dim total as double
  numero1= inputbox (“Ingrese un número)  numero2= inputbox (“Ingrese otro”)
  total= numero1+numero2
  RANGE(“A1”).VALUE=total
End sub


Practico 6
lo mismo que el 5 lo unico para dividir cambiar algunas cosas



Practico 7
Igual al practico 5 pero:
En A1 se muestra el primer numero
En A2 se muestra el segundo
En A3 el resultado de la suma
Sub sumonumeros()
  Dim numero1 As Double
  Dim numero2 As Double
  Dim total AsDouble
 numero1 = InputBox("Ingrese un numero")
 numero2 = InputBox("Ingrese otro")
 total = numero1 + numero2
 Range("A1").Value = numero1
 Range("A2").Value = numero2
 Range("A3").Value = total
 End Sub


MOD


Sub pruebomod()
  Dim numero1 As Double
  Dim numero2 As Double
  Dim resultado As Double
  numero1 = InputBox("Ingrese numero")
  numero2 = InputBox("Ingrese otro")  resultado = numero1 Mod numero2
  Range("A1").Value = resultado
End Sub


4 dividido 2 es 0 diferencia que queda de la división
MOD: resto de la división.
If
Estructura condicional
Ejemplo:


Sub ejemploif()
 Dim numero As Double
 numero = InputBox("ingrese numero")
 Range("A1").Value = numero
 If numero < 1000 Then
     Range("A1").Interior.Color = RGB(0, 255, 0)
 Else     Range("A1").Interior.Color = RGB(255, 0, 0)
 End If
End Sub


Problema 8
Macro que pida numero al usuario y si es múltiplo de 2 muestre en A1 la palabra “par” sino que muestre “impar”.
Solución
Sub espar()
  Dim numero As Double
  numero = InputBox("ingrese un numero")
  If numero Mod 2 = 0 Then
     Range("A1").Value = "par"
  Else
     Range("A1").Value = "impar"
  End If
End Sub
Problema 9Macro que pida dos números al usuario y en A1 muestre el más grande.
Solución
Sub mayor()
  Dim numero1 As Double
  Dim numero2 As Double
  numero1 = InputBox("ingrese un numero")
  numero2 = InputBox("ingrese otro numero")
 If numero1 > numero2 Then
  Range("A1").Value = numero1
 Else
  Range("A1").Value = numero2
 End If
End Sub


Ejercicio 10


Sub pintarcolumna()
 Dim rojo AsInteger
 Dim fila As Integer
 rojo = 0
 For fila = 1 To 50
      Cells(fila, 1).Interior.Color = RGB(rojo, 0, 0)
      rojo = rojo + 5
 Next fila
End Sub




Sub pintarcolumna()
 Dim verde As Integer
 Dim fila As Integer
 verde = 0
 For fila = 1 To 50
      Cells(fila, 2).Interior.Color = RGB(0, verde, 0)
      verde = verde + 5
 Next fila
End Sub



Sub pintarcolumna() Dim azul As Integer
 Dim fila As Integer
 azul = 0
 For fila = 1 To 50
      Cells(fila, 3).Interior.Color = RGB(0, 0, azul)
      azul = azul + 5
 Next fila
End Sub






Ejercicio 11
Sub color()
 Dim rojo As Integer
 Dim verde As Integer
 Dim azul As Integer
 rojo = InputBox("ingrese numero de 0 a 255")
 verde = InputBox("ingrese numero de 0 a 255")
 azul =...