.
En este post te muestro los distintos tipos de variables que existen en VBA y que un programador debe saber. Cuando se esta programando una macro, más de una vez ha dado error, hemos revisado el código una y otra vez no encontrando el error, hasta que por fin nos dimos cuenta que el error está en no declarar bien la variable, por ejemplo si declaramos:
Dim mivariable As Integer
La variable mivariable toma todos los números de filas hasta llegar al final de la tabla, supongamos que la tabla tiene 100.000 filas, cuando la macro recorra las filas llegará hasta la fila 32.767 y no hasta la fila 100000 y como resultado final obtendremos que solo se procesaron 32.767 en vez de las 100.000 filas.
Puede suceder que se declara una variable tipo Integer y luego se le da el valor de 100.000 por ejemplo; cuando se ejecute la macro dará un error de desbordamiento; este error está provocado por declara mal la variable ya que la variable Integer toma valores entre -32.767 y 32.767, razón por la cual no se procesarán las 100.000 filas del ejemplo planteado o desbordamiento en el segundo ejemplo al otorgar a este tipo de variables un número mayor al aceptado.
Ahora si con el mismo procedimiento declaramos la variable mivariable como:
Dim mivariable As Long
La macro recorrerá todas las filas hasta la 100.000 del ejemplo, la causa que al declarar un tipo distinto de variable se tenga un resultado distinto, es que el tipo de variable long incluye números que van entre -2.147.483.648 y 2.147.483.648; este tipo de variable usa 4 bytes a diferencia de la variable tipo Integer que usa 2 bytes.
Antes de continuar con el desarrollo del presente post, recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.
Tipo de Datos |
Abreviatura |
Memoria requerida |
Rango de Valores |
Equivalencia con pseudocodigo |
Detalles |
Integer
(Entero) |
% |
2 bytes ó 4 bytes según versión |
– 32768 a 32767 ó -2.147.483.648 a 2.147.483.647 según versión |
Entero |
Uso en contadores, control de bucles etc. |
Long
(Entero largo) |
& |
4 bytes ó 8 bytes según versión |
– 2147483648 a 2147483647 ó -9,2E+18 a 9,2E+18 según versión |
Entero |
Igual que integer pero admite un rango más amplio |
Single
(Decimal simple) |
! |
4 bytes |
– 3,4·1038
a
3,4·1038 |
Real |
Hasta 6 decimales o más según versión. También admite enteros |
Double
(Decimal doble) |
# |
8 bytes |
– 1,79·10308
a
1,79·10308 |
Real |
Hasta 14 decimales o más según versión. También admite enteros |
Boolean
(Booleano) |
No tiene |
2 bytes |
True
o
False |
Booleano |
False es el valor predeterminado y va asociado a cero |
String |
$ |
10 bytes + 1 byte por cada carácter |
0
a
2·109 caracteres |
Alfanumérica |
Texto de longitud variable |
Variant (Object en otras versiones) |
No tiene |
Variable |
Los del tipo double para números o los del tipo string para texto |
No tiene |
Admite números enteros, decimales o texto |
El vídeo que sigue muestra una explicación más detallada y gráfica de la macro presentada, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlas, buscar en listbox mientras escribes en textbox, ordenar hojas libro excel por su nombre, conectar Excel con Access y muchos ejemplos más.
if (payload.eventType == ‘subscribe’) {
// Add code to handle subscribe event.
} else if (payload.eventType == ‘unsubscribe’) {
// Add code to handle unsubscribe event.
}
if (window.console) { // for debugging only
window.console.log(‘YT event: ‘, payload);
}
}
Código que se inserta en un módulo
Sub TipoString()
Dim mivariable As String, mivar As Boolean, miv As Single
mivariable = 100000
mivar = 100000
miv = 100000
a = Len(mivariable)
b = Len(mivar)
c = Len(miv)
End SubSub TipoBoolean()
Dim mivariable As Boolean
mivariable = 100000
For x = 2 To mivariable
Cells(x, «A») = x
Next x
End Sub
Sub TipoInteger()
Dim mivariable As Integer
mivariable = 100000
For x = 2 To mivariable
Cells(x, «A») = x
Next x
End Sub
Sub TipoLong()
Dim mivariable As Long
mivariable = 100000
For x = 2 To mivariable
Cells(x, «A») = x
Next x
End Sub
Sub TipoVariant()
Dim mivariable As Variant
mivariable = 100000
For x = 2 To mivariable
Cells(x, «A») = x
Next x
End Sub
Sub borra()
Range(«A2:A100000»).Clear
End Sub
Dim mivariable As String, mivar As Boolean, miv As Single
mivariable = 100000
mivar = 100000
miv = 100000
a = Len(mivariable)
b = Len(mivar)
c = Len(miv)
End Sub
Sub TipoBoolean()
Dim mivariable As Boolean
mivariable = 100000
For x = 2 To mivariable
Cells(x, «A») = x
Next x
End Sub
Sub TipoInteger()
Dim mivariable As Integer
mivariable = 100000
For x = 2 To mivariable
Cells(x, «A») = x
Next x
End Sub
Sub TipoLong()
Dim mivariable As Long
mivariable = 100000
For x = 2 To mivariable
Cells(x, «A») = x
Next x
End Sub
Sub TipoVariant()
Dim mivariable As Variant
mivariable = 100000
For x = 2 To mivariable
Cells(x, «A») = x
Next x
End Sub
Sub borra()
Range(«A2:A100000»).Clear
End Sub
.
If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.
Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends