Los códigos más visitados de Visual Basic para Aplicaciones

Listado de los códigos más visitados durante los últimos 30 días
Imágen de perfil

Miz_Libros


7.500 visualizaciones el último mes

Visual Basic para Aplicaciones

estrellaestrellaestrellaestrellaestrella(2)
Actualizado el 21 de Junio del 2025 por Rafael (25 códigos) (Publicado el 18 de Julio del 2024)
19.560 visualizaciones desde el 18 de Julio del 2024
app contable para redes inalámbricas y pantallas táctiles.
MizLibros
Imágen de perfil

Barra de progreso en barra de estado de Excel


511 visualizaciones el último mes

Visual Basic para Aplicaciones

estrellaestrellaestrellaestrellaestrella(1)
Publicado el 20 de Marzo del 2022 por Joe
2.094 visualizaciones desde el 20 de Marzo del 2022
Este sencillo código presenta una barra de progreso en la barra de estado de Excel, se probo en Microsoft Excel 2013 y funcionó perfectamente sin retrasar en demasía el código de la rutina. Es tan fácil de implementar que son cinco líneas de código y tendremos un anti stress en nuestras rutinas.
Lleva el nombre de "Sub El_Nombre_de_su_Sub() " el cual debe ser cambiado por quien lo vaya a usar por nombre de la rutina que lo necesite y corresponda en su proyecto. para una demostración abra un libro de Excel nuevo, insértele un modulo, copie este código y péguelo en el modulo, coloque un botón en la hoja asígnele este macro y pruébelo. Por su amable atención, muchas gracias.
sin imagen de perfil

Macro para importar información de un servicio API desde la hoja de cálculo


279 visualizaciones el último mes

Visual Basic para Aplicaciones

Publicado el 13 de Febrero del 2023 por Izcoatl Inzunza (4 códigos)
2.838 visualizaciones desde el 13 de Febrero del 2023
Programación de macro que ayudará a importar información directamente desde excel desde una API, la estructura se puede aplicar para consultas a diversas fuentes como los servicios que brinda el gobierno. la finalidad es ahorrarse tiempo de proceso y dedicar más tiempo al análisis. Para efectos prácticos se ha divido en 2 partes, la primera parte es la consulta al servicio API y en un segundo video se explicará como acomodar la información obtenida en la consulta en formato JSON. en el video siguiente se explica su programación: https://youtu.be/LiuOkhCZeJ0
Imágen de perfil
Val: 47
Ha aumentado 1 puesto en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Lista desplegable con campo de busqueda


95 visualizaciones el último mes

Visual Basic para Aplicaciones

Publicado el 10 de Junio del 2020 por Aitor (6 códigos)
2.628 visualizaciones desde el 10 de Junio del 2020
Userform para mostrar la lista desplegable de la celda donde se haga el doble
click si la celda tiene una lista de validación datos dispuesta

Userform to display the drop-down list of the cell where you double-click if
the cell has a data validation list arranged
1
2
3
4
5
6
7
8
9
10
11
12
13
14
+---+-------------------------+
|  ? | TextBox1                |
+---+-------------------------+
| ListBox1                       |
| ListBox1                       |
| ListBox1                       |
| ListBox1                       |
| ListBox1                       |
| ListBox1                       |
| ListBox1                       |
| ListBox1                       |
| ListBox1                       |
| ListBox1                       |
+------------------------------+

IMPLEMENTACION/IMPLEMENTATION
=============================
En el explorador de proyectos del editor de Visual Basic
Importar el fichero frmOptionsListWithSearch.frm (asociado a frmOptionsListWithSearch.frx)
Este UserForm se activa introduciendo el metodo Sub Worksheet_BeforeDoubleClick en la parte de
código de las hojas en la que se quiere implementar en aquellas celdas con lista de
validación de datos esta opción de disponer listas desplegables con concepto de búsqueda.

In the Visual Basic editor project explorer Import the file frmOptionsListWithSearch.frm
(associated with frmOptionsListWithSearch.frx)
This UserForm is activated by introducing the Sub Worksheet_BeforeDoubleClick method in the
part of code of the sheets in which you want to implement in those cells with a data validation
list this option to have drop-down lists with a search concept.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    '---------------------------------------------------------------------------------------
    ' Method : Worksheet_BeforeDoubleClick
    ' Author : Aitor Solozabal Merino - aitorsolozabal@gmail.com
    ' Date   : 10/06/2020
    ' Purpose: Activar la lista desplegable con busqueda si se hace doble click en una celda
    '          con validacion de datos tipo lista (dropdownlist)
    '---------------------------------------------------------------------------------------
    On Error GoTo Worksheet_BeforeDoubleClick_Error
    If Not Intersect(Target, ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)) Is Nothing Then
        If Target.Validation.Type = xlValidateList Then
            Cancel = True
            frmOptionsListWithSearch.Show
        End If
    End If
    On Error GoTo 0
    Exit Sub
Worksheet_BeforeDoubleClick_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Worksheet_BeforeDoubleClick of Hoja1(ejemplo)"
End Sub

También se puede disponer una macro "Activate_OptionsListWithSearch" en un modulo ó en el código de ThisWorkbook que llame a este UserForm y que con una combinación de teclas Ejemplo: CTRL+b en una celda con lista de validación de datos aparezca la lista desplegable con busqueda.

A macro "Activate_OptionsListWithSearch" can also be arranged in a module or in the ThisWorkbook code that calls this
UserForm and with a key combination Example: CTRL + b in a cell with data validation list, the drop-down list with search appears .

1
2
3
4
5
Option Explicit
 
Public Sub Activate_OptionsListWithSearch()
    frmOptionsListWithSearch.Show
End Sub

FUNCIONAMIENTO/ OPERATION
==========================
Una vez establecidas celdas en la hoja de cálculo con listas de validación de datos de los tipos:
"=G5:G35" ó "=un_nombre_definido_de_rango_de_celdas" ó "Lunes,Martes,Miércoles,Jueves,Viernes"
Si se pulsa 2 veces (Double Click) con el ratón en una celda que tiene una lista de validación
de datos se activará esta opción.
Una vez activado el UserForm en TextBox1 se pone el concepto a buscar en la lista de
validación de la celda activa y en ListBox1 aparece la lista de opciones disponibles de
acuerdo al concepto a buscar.
Si el concepto a buscar en TextBox1 no existe entonces en ListBox1 aparece toda la lista
de la validación de datos de la celda activa.
Si se esta posicionado en una opción de la lista en ListBox1 y se pulsa Return,Enter,Intro
esa opción pasa a la celda en cuestión y avanza una fila la celda activa.
Si se esta posicionado en una opción de la lista en ListBox1 y se pulsa 2 veces con el ratón
esa opción pasa a la celda en cuestión y avanza una fila la celda activa.
Si se pulsa la tecla Escape y hay un concepto a buscar introducido este se borra y se
refresca la lista completa y si no hay ningún concepto a buscar se entiende que se quiere
salir de la lista como si se pulsase en la [X] de la esquina superior derecha de la ventana.
Si en la celda ya hay un valor anteriormente introducido aparecerá en la lista como escogido.

Once cells have been established in the spreadsheet with data validation lists of the types:
"=G5:G35" or "=a_defined_name_of_range_of_cells" or "Monday, Tuesday, Wednesday, Thursday, Friday"
If you double-click with a mouse in a cell that has a validation list this option will be activated.
Once the UserForm is activated the concept to search for in the list of validation of the active cell
is set in the TextBox1 area of the Userform, and in the ListBox1 area of the Userform is the list of
available options according to the concept to search for.
If the concept to search in TextBox1 does not exist, then the entire options list of the data validation
of the active cell appears in ListBox1.
If you are positioned in a list option in ListBox1 and press Return/Enter key that option moves to the
active cell value and after that advances the active cell one row.
If you are positioned in an option of the list in ListBox1 and you double click with the mouse that
option moves to the active cell value and after that advances the active cell one row.
If the Escape key is pressed and there is a concept to search for in the TextBox1, it is deleted and
Generate the complete options list and if there is no concept to search for, it is understood that you
want exit the list as if you clicked the [X] in the upper right corner of the window.
If there is a previously entered value in the active cell, it will appear in the list as it is chosen currently.
Imágen de perfil
Val: 40
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Eliminar Bordes a los Formularios


90 visualizaciones el último mes

Visual Basic para Aplicaciones

estrellaestrellaestrellaestrellaestrella(1)
Publicado el 24 de Enero del 2021 por Fernandoml (3 códigos)
4.704 visualizaciones desde el 24 de Enero del 2021
Creamos un módulo en nuestro proyecto de VBA y pegamos este código:

Funciona tanto para el Office 32 bits y 64 bits.

Para usar el código, dentro de nuestro formulario lo haremos de la siguiente manera.

1
2
3
Private Sub UserForm_Initialize()
    mdlPrograma.QuitarBordes (Me.Caption)
End Sub

mdlPrograma es el nombre del módulo que he creado.

Espero os sirva a todos
Imágen de perfil
Val: 40
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Eliminar Botón Cerrar de los formularios


84 visualizaciones el último mes

Visual Basic para Aplicaciones

Publicado el 24 de Enero del 2021 por Fernandoml (3 códigos)
1.451 visualizaciones desde el 24 de Enero del 2021
El siguiente código, elimina el botón Cerrar de los formularios. Para que funcione correctamente, debe de tener un título.

Creamos un nuevo módulo donde debemos de pegar el siguiente código.

Y para que funcione correctamente, dentro de nuestro formulario, lo usaremos de la siguiente manera:

1
2
3
Private Sub UserForm_Initialize()
    mdlPrograma.QuitarBotonCerrar (Me.Caption)
End Sub

Espero os sirva a todos.
Imágen de perfil

Control de Ingresos y Gastos con Excel/VBA


33 visualizaciones el último mes

Visual Basic para Aplicaciones

estrellaestrellaestrellaestrellaestrella(5)
Publicado el 16 de Diciembre del 2015 por Administrador (718 códigos)
16.621 visualizaciones desde el 16 de Diciembre del 2015
Plantilla de Excel con VBA enfocada al control de un pequeño negocio minorista, el cual esta pensado para un pequeño negocio con un máximo de 30 proveedores, 30 familia de productos y 500 referencias.
Permite consultar por referencia, proveedor, familia, IVA y pendiente de pago.

control-de-ingresos-y-gasto
Imágen de perfil

Control de Stock


26 visualizaciones el último mes

Visual Basic para Aplicaciones

estrellaestrellaestrellaestrellaestrella(4)
Actualizado el 13 de Septiembre del 2014 por Administrador (718 códigos) (Publicado el 28 de Enero del 2014)
15.829 visualizaciones desde el 28 de Enero del 2014
Plantilla de Excel de un almacén de hasta 2.000 referencias.
Permite gestionar hasta:
- 1.000 clientes
- 500 proveedores
- 2.000 referencias
- 50.000 registros de entrada
- 50.000 registros de salida
- Stock valorado y mínimo
- Estadística por código, cliente, proveedor y fechas
- Gestiona la misma referencia con proveedores diferentes
- Contiene macros
Imágen de perfil

Análisis Numerico


26 visualizaciones el último mes

Visual Basic para Aplicaciones

estrellaestrellaestrellaestrellaestrella(4)
Actualizado el 31 de Enero del 2019 por Alvin (Publicado el 3 de Noviembre del 2014)
10.394 visualizaciones desde el 3 de Noviembre del 2014
Del Libro: Programación Visual Basic (VBA) para Excel y Análisis Numérico Autores: M.Sc. Walter Mora F., M.Sc. José Luis Espinoza B. Escuela de Matemática. Instituto Tecnológico de Costa Rica. Octubre 2005. Versión 0.1. Estos son los programas que pude construir mientras leía el libro y realizaba las actividades que asignaba el mismo.

Analisis-Num
Analisis-Num2
Analisis_Num3
sin imagen de perfil
Val: 85
Ha aumentado 1 puesto en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Números Triangulares


19 visualizaciones el último mes

Visual Basic para Aplicaciones

Publicado el 11 de Agosto del 2017 por David (9 códigos)
2.334 visualizaciones desde el 11 de Agosto del 2017
Numero Triangular con VBA (Visual Basic for applications) en Excel.
Un número triangular es aquel que puede recomponerse en la forma de un triángulo equilátero (por convención, el primer número triangular es el 1). Los números triangulares, junto con otros números figurados, fueron objeto de estudio por Pitágoras y los Pitagóricos, quienes consideraban sagrado el 10 escrito en forma triangular, y al que llamaban Tetraktys.
Según la ecuación de Ramanujan–Nagell, se considera que el número triangular más grande puede ser representado mediante la fórmula 2k − 1 es 4095.

Entonces cabe destacar que un número triangular es aquel número que puede ser representado a través de un patrón triangular que posee puntos espaciados de forma equilibrada.

Además los números triangulares pueden ser obtenidos gracias a la expresión:

[(n+1)(n+2)] /2;

Donde "n" es un numero natural mayor o igual que 1.

NT
sin imagen de perfil
Val: 85
Ha aumentado 1 puesto en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Vacas Narayana


17 visualizaciones el último mes

Visual Basic para Aplicaciones

Publicado el 11 de Agosto del 2017 por David (9 códigos)
1.737 visualizaciones desde el 11 de Agosto del 2017
Narayana, matemático hindú del siglo XIV, propuso la siguiente situación:

"Una vaca tiene anualmente una cría. Cada una de ellas, cuando ya es novilla a los cuatro años, también tiene una cría anual."

De esta forma, el primer año habrá una vaca, el segundo permanece la misma vaca, al igual que el tercero, en el cuarto año ya hay dos vacas, pues la original tiene una cría...
Para poder resolverlo, empleamos VBA (Visual Basic for Applications) en Excel, ya que es una excelente herramienta para estos casos.

Fon1
Imágen de perfil

Barra de progreso


17 visualizaciones el último mes

Visual Basic para Aplicaciones

estrellaestrellaestrellaestrellaestrella(1)
Publicado el 23 de Agosto del 2018 por Administrador (718 códigos)
6.291 visualizaciones desde el 23 de Agosto del 2018
Este código muestra como crear una barra de progreso para nuestros procesos.
En este ejemplo, genera una barra de progreso mientras se escriben numeros aleatorios en una parte de la hora.

barra-de-progreso
sin imagen de perfil
Val: 85
Ha aumentado 1 puesto en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Números pentagonales


16 visualizaciones el último mes

Visual Basic para Aplicaciones

Publicado el 11 de Agosto del 2017 por David (9 códigos)
2.708 visualizaciones desde el 11 de Agosto del 2017
Breve ejemplo de como crear una secuencia o progresión de números pentagonales, empleando VBA para tal fin.

Un número pentagonal es un número figurado que extiende el concepto de número triangular y cuadrado al pentágono, pero, a diferencia de los dos primeros, los patrones utilizados en la construcción de los números pentagonales no son simétricamente rotacionales.

El n-ésimo número pentagonal pn es el número de distintos puntos en un patrón de puntos, consistente en el contorno de pentágonos regulares cuyos lados contienen de 1 a n puntos, superpuestos, de forma que tienen en común el vértice. Por ejemplo, el tercero de ellos está formado de contornos compuestos por 1,5 y 10 puntos respectivamente, pero el 1, 3 puntos del de 5, coinciden con 3 del de 10, dejando 12 puntos distintos, 10 en forma de pentágono, y 2 dentro de él...

NP
Imágen de perfil

Juego del Ahorcado


15 visualizaciones el último mes

Visual Basic para Aplicaciones

estrellaestrellaestrellaestrellaestrella(6)
Actualizado el 5 de Junio del 2015 por Administrador (718 códigos) (Publicado el 24 de Septiembre del 2014)
15.699 visualizaciones desde el 24 de Septiembre del 2014
Juego visual del Ahorcado, donde hay que adivinar una palabra. El juego te solicita una palabra y te indica el tema al que pertenece dicha palabra.
Te va mostrando en modo dibujo el ahorcado.
Para Excel 2007 y superiores.
Imágen de perfil
Val: 47
Ha aumentado 1 puesto en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Formato Condicional para Maximo y Minimo en cada fila del rango seleccionado


15 visualizaciones el último mes

Visual Basic para Aplicaciones

Actualizado el 23 de Octubre del 2018 por Aitor (6 códigos) (Publicado el 20 de Septiembre del 2018)
3.834 visualizaciones desde el 20 de Septiembre del 2018
ConditionalFormatingMinMaxValuesInARow
Codigo de macro en VBA para Excel que realiza el formato condicional en un rango de celdas seleccionadas por programa o por la selección del usuario antes de llamar a la macro.
El formato condicional consiste en realzar las celdas con el valor minimo (relleno en verde) y maximo (relleno en rojo) por cada fila según se muestra en la imagen.
En la imagen se ha seleccionado el rango de celdas D5:L22 y luego se ha ejecutado la macro.
Imágen de perfil
Val: 20
Ha aumentado su posición en 2 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Conectar a Access con VBA desde Word


15 visualizaciones el último mes

Visual Basic para Aplicaciones

Publicado el 6 de Abril del 2019 por Rafael Angel (81 códigos)
2.001 visualizaciones desde el 6 de Abril del 2019
Ejemplo acerca de conectar con una base de datos de Access usando VBA desde un archivo de Word.
Para este proyecto el archivo de Word se publica como plantilla de word.
También el modulo estándar viene guardado en la base de datos por si acaso.
Video 1 acerca de como realizar este codigo:
Segundo video explicativo y guia.
sin imagen de perfil

Formulario de Access


12 visualizaciones el último mes

Visual Basic para Aplicaciones

estrellaestrellaestrellaestrellaestrella(6)
Publicado el 10 de Enero del 2005 por Felix
75.796 visualizaciones desde el 10 de Enero del 2005
Código para Access.
Código de un formulario que alimente una base de datos en Access. Se accede a la misma con objetos ADO.