VARIABLES VBA

VBA 

TIPOS DE VARIABLES

VARIABLE	TIPO	PARA QUE
STRING	TEXTO	TEXTO
BYTE	NUMERO	0 A 255
INTEGUER	NUMERO	-32767 A32767
LONG	NUMERO	NUMERO LARGO
VARIANT	SIN ESPECIFICAR
BOOLEAN	SI/NO	SI/NO
DATE	FECHA HORA
CURRENCY	MONEDA
RANGE	CELDA

 DIm  NOMBRE VARIABLE AS    

                                                              

COMANDO	UTILIDAD
Imputbox	caja voz que sale para poner datos
Msgbox	caja de datos que nos contesta
Debug.Print	ventana inmediato
Math.Rnd	ES LO MISMO QUE LA FUNCIÓN ALEATORIO DE EXCEEL PERO LANZA VALORES DECIMALES 0.005, Por lo que debemos multiplicar por 10 o cien según nos interese
Function	Para crear una función de Excel
Cint	Convierte a número entero. Emp. Cint (Math.Rnd *100) convierte un número aleatorio en número entero
ActiveCell.Offset(1, 0).Select	DESPLAZARSE UNA CASSILLA HACIA…

IF  VARIABLE     CONDICIÓN (<>=) AND CONDICIÓN SEGUNDA THEN

INSTRUCIONES A SEGUIR

END FI

EJMP.

ID EDAD <20 THEN

CONTROL DE FLUJO

·         Condicionales:

o   If           

ü  IF  VARIABLE     CONDICIÓN (<>=) AND CONDICIÓN SEGUNDA THEN

ü  INSTRUCIONES A SEGUIR

ü   

ü  END IF

o   Select Case

·         BUCLES

o   INDETERMINADOS

§  While

§  Do loop while

§  Do loop until

§  Until

o   DETERMINADOS

§  For

§  For-eacj

USO DEL SELCT CASE

Sub BASE()

Dim ZONA As String, BASE_IMPONIBLE, IMPORTE_FINAL, RESULTADO As Integer

               

                                        ZONA = Range("A1")

                                        BASE_IMPONIBLE = Range("B1")

                                        RESULTADO = Range("C1")

            Select Case ZONA

            Case Is = "PENINSULA"

            IMPORTE_FINAL = BASE_IMPONIBLE * 1.16

            MsgBox "EL IMPORTE A PAGAR POR EL CLIENTE ES " & IMPORTE_FINAL & "  €"

           

            Case Is = "ISLAS"

            IMPORTE_FINAL = BASE_IMPONIBLE * 1.07

            MsgBox "EL IMPORTE A PAGAR POR EL CLIENTE ES " & IMPORTE_FINAL & "  €"

       

            Case Is = "CUETA"

            IMPORTE_FINAL = BASE_IMPONIBLE * 1.07

            MsgBox "EL IMPORTE A PAGAR POR EL CLIENTE ES " & IMPORTE_FINAL & "  €"

End Select

Debug.Print ZONA

Debug.Print BASE_IMPONIBLE

Debug.Print IMPORTE_FINAL

End Sub