UNIVERSIDAD NACIONAL DEL ALTIPLANO
FACULTAD DE CIENCIAS CONTABLES Y ADMINISTRATIVAS ESCUELA
PROFESIONAL DE CIENCIAS CONTABLES
SENTENCIAS Y FUNCIONES DE VISUAL BASIC PARA EXCEL PARA LA
PROGRAMACIÓN DE DISEÑOS DE PROCESOS CONTABLES
DOCENTE: Acero Barraza Roberto
PRESENTADO POR:
-MAYDANA GOMEZ, Nélida Aydee
- MAQUERA Gutiérrez, Gladys
-CARCAUSTO JARA Sonia Maribel
-MAMANI CHOQUEHUANCA, Yulisa
CICLO: V I GRUPO: F
2024 - I
PUNO – PERÚ
Listado ordenado de sentencias y funciones de Visual Basic para Excel para la
programación de diseños de procesos contables:
SENTENCIAS:
1. Sub...End Sub: Define un subprocedimiento, un bloque de código reutilizable que realiza
una tarea específica.
○ Significado: Se utiliza para crear bloques de código independientes que pueden ser
llamados desde otras partes del programa.
Ejemplo: 2. Function...End Function: Define una función, un bloque de
Fragmento de código que devuelve un valor.
código ○ Significado: Se utiliza para crear bloques de código
Su que realizan un cálculo o manipulación de datos y
b
Ejemplo: devuelven un resultado
Fo
Fragmento de
rm
código
at
Fu 3. If...Then...Else: Ejecuta un bloque de código en función de
ea
nc una condición.
rC
ti ○ Significado: Permite controlar el flujo del programa en
el
on base a una comparación o prueba lógica.
da
Ca
s
lc
()
ul
' arFormato de
negrita
IV y letra
ArialA para celdas
A1:B10
(p
re R
ci a
o n
As g
Do e
ub (
le "
) A
As 1
Do :
ub B
le 1
0
'
"
)
C
.
a
F
l
o
c
n
u
t
l
.
a
B
o
e
l
d
Ejemplo:
Fragmento de
código
If
R 4. For...Next: Ejecuta un bloque de código repetidamente
a un número específico de veces.
n ○ Significado: Permite realizar tareas repetitivas de
g forma eficiente, iterando sobre un rango o conjunto de
e datos.
( 5. While...Wend: Ejecuta un bloque de código
Ejemplo:
" repetidamente mientras se cumpla una condición.
Fragmento
A de
código ○ Significado: Permite realizar tareas repetitivas hasta
1
Fo que una condición específica deje de ser cierta.
"
r
)
i
.
=
V
1
a
To
l
10
u
e'
F
>
o
1
r
0
m
0
a
t
T
e
h
a
e
r
n
l
M
a
s
g
f
B
i
o
l
x
a
"
i
E
l
e
n
v
a
c
l
o
l
r
o
r
e
n
a
○ Ejemplo:
Fragmento de código
i = 1
While i <= 10
' Sumar el valor de la celda A1 a la variable total
total = total + Range("A" & i).Value
i = i + 1
Wend
6. sentencia if: Esta sentencia de control permite ejecutar o no una sentencia simple o
compuesta según se cumpla o no una determinada condición.
Significado: Cuando se alcanza la sentencia if dentro de un programa, se evalúa la
expresión entre parentesis que viene a continuación de if. Si expresión es verdadera, se
ejecuta Acción; en caso contrario no se ejecuta Acción.
Ejemplo:
7. Sentencia if — else múltiple: Es una construcción en programación que permite
evaluar múltiples condiciones de manera secuencial y ejecutar un bloque de código
correspondiente a la primera condición que sea verdadera.
Significado: Esta sentencia permite realizar una ramificación múltiple, ejecutando una
entre varias partes del programa según se cumpla una entre n condiciones.
Ejemplo:
8. sentencia switch: La sentencia switch es una sentencia C/C++ que se utiliza para
seleccionar una de entre múltiples alterna- tivas. Desarrolla una función similar a la de la
sentencia if - else con múltiples ramificaciones, aunque también importantes diferencias.
Significado: Esta sentencia permite realizar una ramificación múltiple, ejecutando una
entre varias partes del programa según se cumpla una entre n condiciones.
Ejemplo:
9. Sentencias if anidadas: Una sentencia if puede incluir otros if dentro de la parte
correspondiente a su sentencia, A estas sentencias se les llama sentencias anidadas (una
dentro de otra).
Significado: Permite evaluar condiciones de manera jerárquica y tomar decisiones en
diferentes niveles de detalle o complejidad dentro del código.
Ejemplo:
10. sentencia for: La sentencia for es un método para ejecutar un bloque de sentencias un
número definido de veces.
Significado: Es una estructura de control utilizada en programación para ejecutar un
bloque de código un número específico de veces.
Ejemplo:
11. Do-While: Similar a while, pero asegura que el bloque de código se ejecute al menos
una vez antes de evaluar la condición.
Significado: El mensaje se imprime al menos una vez, luego se evalúa condicion; si es
verdadera, el bucle se repite.
Ejemplo:
do {
printf ("Ejecutando
al menos una vez\n");
} while (condicion);
12.Range("celda_o_rango"). Value: Obtiene o establece el valor de una celda o rango de
celdas.
○ Significado: Permite acceder y modificar datos directamente en las hojas de Excel.
Ejemplo: 13.Worksheets("nombre_hoja"). Activate: Activa una hoja de
Fragmento de trabajo específica.
código
' Significado: Permite cambiar entre diferentes hojas de
trabajo dentro del libro de Excel
O
b
t
e
n
0 Ejemplo:
Fragmento de código 14. Cells(fila, columna).Select: Selecciona una celda
específica.
' Activar la hoja 0 Significado:
"Datos" Permite ubicar el cursor en una celda
determinada para realizar acciones sobre ella.
Worksheets("Datos").
Activate
Ejemplo:
Fragmento de
código
'
S
e 15. Function Calculate: Esta función se utiliza para
l realizar cálculos matemáticos en Excel, como sumas,
e restas, multiplicaciones o divisiones. Se utiliza en
c situaciones donde es necesario realizar operaciones
c matemáticas en un diseño de procesos contables.
i
Ejemplo:
o
n
Sub CalcularTotal:
a
Range("C1").
r Value =
Calculate (Range
("A1").
l Value + Range
("B1").
a Value)
16. End Sub Function VLookup: Esta función se utiliza para buscar un
c valor en una tabla y devolver un valor relacionado a ese valor.
e Se utiliza en situaciones donde es necesario buscar valores
l dentro de una tabla de referencia.
Ejemplo:
d 17. Function Sum(): Esta función se utiliza para realizar la
a suma de un rango de celdas en Excel. Se utiliza en
Sub BuscarCliente() situaciones donde es necesario sumar valores dentro de un
B
Range("C1").Value = diseño de procesos contables.
1
Ejemplo:
Application.Worksheet 18. Function Concatenate(): Esta función se utiliza para
0
Function.VLookup(Ra unir varios textos en una sola celda. Se utiliza en
Subnge("A1").Value,
CalcularTotal() situaciones donde es necesario combinar información
C
Range("A1:B10"),
Range("C1").Value 2,
= de diferentes celdas en un diseño de procesos
e
False)
Application.Worksheet contables.
l
EndFunction.Sum(Range(
Sub Ejemplo:
l
"A1:B10"))
s
End Sub Sub CombinarNombre()
(
1
0
,
2
Range("C1").Value = Application.WorksheetFunction.Concatenate(Range("A1").Value, " ",
Range("B1").Value)
End Sub
Private Sub CommandButtonRegistrar_Click()
' Definir la hoja de Excel y la última fila utilizada
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Ventas")
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
' Leer datos del formulario
Dim fecha As String
Dim producto As String
Dim cantidad As Integer
fecha = TextBoxFecha.Text
producto = TextBoxProducto.Text
cantidad = Val(TextBoxCantidad.Text) ' Convertir a número
' Validar que se hayan ingresado datos
If fecha = "" Or producto = "" Or cantidad = 0 Then
MsgBox "Por favor ingrese todos los datos.", vbExclamation, "Error"
Exit Sub
End If
' Escribir los datos en la hoja de Excel
With ws
.Cells(lastRow, 1).Value = fecha
.Cells(lastRow, 2).Value = producto
.Cells(lastRow, 3).Value = cantidad
End With
' Limpiar el formulario
TextBoxFecha.Text = ""
TextBoxProducto.Text = ""
TextBoxCantidad.Text = ""
' Mensaje de éxito
MsgBox "Venta registrada correctamente.", vbInformation, "Registro exitoso"
End Sub
19. Función If de Visual Basic
Tambien se puede utilizar la función If de Visual Basic al especificar una cota del modelo.
Esta función devuelve uno de dos valores dependiendo del cálculo de una expresión.
Ejemplo:
si la ecuación
especificada es
"D1@Sketch1" =
(If("D1@Sketch4">15,
20, 10)) + 8:
Si D1@Croquis4 es ...
"D1@Croquis4">1
5, 20, 10 equivale a
Y "D1@Croquis1"
equivale a ...
> 15 20 28
<= 15 10 18
