Cómo entrar automáticamente Entre semana Uso de VBA en Microsoft Excel 2010
En este artículo, aprenderá cómo ingresar días de la semana, es decir, de lunes a viernes automáticamente usando el código VBA en cualquier columna.
Haga clic en la pestaña Desarrollador. Desde el grupo Código, seleccione Visual Basic
Haga clic en Insertar y luego en Módulo
Esto creará un nuevo módulo.
Ingrese el siguiente código en el Módulo
Sub WeekendOut ()
Dim Start As Date, Off As Date
Dim y%, i #
Inicio = InputBox («Fecha de inicio:»)
Apagado = InputBox («Fecha de finalización:»)
===
For i = Start To Off
y = y + 1
Si Weekday (i, 2) <6 Entonces
Celdas (y, 2) = Formato (i, «mm-dd-aa»)
Celdas (y, 1) = Formato (i, «dddd»)
ElseIf Weekday (i, 2) = 6 Entonces
Else
y = y – 1
Finalizar si
Siguiente i
End Sub
===
Presione la tecla de método abreviado ALT + F8 para abrir la ventana Macro y luego seleccione la macro.
Alternativamente, puede presionar F5 para ejecutar el código en la pantalla VBA.
Después de ejecutar la macro, obtendremos el siguiente cuadro de entrada Necesitamos ingresar la Fecha de inicio en formato MM / DD / AAAA
Luego, el código le pedirá que ingrese la fecha de finalización
Por lo tanto, obtendremos el día de la semana en la columna A y la siguiente celda almacenará la fecha.
De esta manera, puede ingresar fácilmente los días de la semana sin tener ningún dolor manual.