CODIGOS BÁSICOS VBA
Enviado por Bryan Israel • 22 de Agosto de 2022 • Apuntes • 1.047 Palabras (5 Páginas) • 41 Visitas
[pic 1]CODIGOS BÁSICOS VBA
- Agregar variables
Dim M1 As Double
Dim M2 As Double
- TENGA UN VALOR EL TEXT BOX
Forma 1
Txt_1.Text = M1
Txt_2.Text = M2
Forma 2
Formulario. NombreTextBox.Text = Cstr(M1)
Triangulo.Txt_Area.Text = Cstr(M1)
- EL NUMERO DE UN TEXTBOX, SE VA A AGREGAR A UNA VARIABLE
Forma 1
P = Val(Txt_1)
Forma 2
A1 = CDbl (AreaTriangulo. Txt_A1.Text)
A1 = CDbl(NombreDelFormulario. Txt_ A1.Text)
- MENSAJE EN TEXTO
MsgBox ("Error matemático en L")
- Hacer una lista
Lst_1.AddItem (lo que quieres que agregue)
Lst_1.AddItem numero & " x " & a & " = " & Txt_1 * a
- Botón de salir
Private Sub Cmd_Salir_Click ()
End
End Sub
- Botón de limpiar
Private Sub Cmd_Limpiar_Click()
Txt_1 = ""
Txt_2 = ""
Txt_2. SetFocus
End Sub
ESTRUCTURAS DE CONTROL
Permiten controlar el flujo de ejecución del programa en una rutina o función.
Mediante ellas podemos controlar, una condición, que se ejecute una determinada línea o que no se ejecuten.
[pic 2]Estructuras de decisión
If...Then
[pic 3]
If condición es V Then
Instrucción
End If
[pic 4]If...Then...Else
[pic 5]
If condición es v Then
Instrucción1
Else (si es F)
Instrucción2
End If
Else se traduce como sino
Select Case
Select Case variable_control[pic 6]
Case Valor1
[pic 7] Instrucción
[pic 8] Case Valor2
Instrucción
Case Valor3
Instrucción
Case Else
Instrucción
End Select
Estructuras de repetición
[pic 9]
For. .. Next
---------------------------------------------------------------
For (variable)= (número inicial) To (Número final)
Instrucción
Next
----------------------------------------------
For (variable)= (número inicial) To (Número final) Step (numero)
Instrucción
Next
[pic 10][pic 11][pic 12]
For Each...Next
For Each (variable) in (grupo)[pic 13]
Instrucción
Next
Do ... Loop
[pic 14]Do While……Loop
[pic 15]
Do While Condición
Instrucciones
Loop
Las instrucciones se ejecutan siempre y cuando la condición sea Verdadera (True).
While … Wend
[pic 16]
[pic 17]Do …….. Loop While
[pic 18]
Do
Instrucciones
Loop While Condición
Esta variación garantiza al menos una ejecución de la instrucción .
While significa mientras. (<=) Significa menor o igual
[pic 19]Do Until ……. Loop
[pic 20]
Do Until Condición
Instrucciones
Loop
Las instrucciones se ejecutan siempre y cuando la condición sea Falsa( False).
...