Una de las tareas más frustrantes y prolongadas en la oficina es crear una lista de empleados. La mayoría de los administradores están ocupados creando listas para considerar el desarrollo de mejores sistemas debido a los constantes cambios en días festivos, ocasiones especiales o ausencias de los empleados.

Con unas pocas líneas de código VBA, crearemos la base para el sistema de lista de empleados, que incluirá una lista de todos los días de la semana y los empleados disponibles para el día.

Lista de creación de la matriz correspondiente

Lo que necesitamos es una lista de personal que especifique en qué días pueden trabajar; luego, combinamos esto con cada día de la semana para generar Una lista de los empleados y la fecha en que trabajan.

    Joe Esposito, lunes, miércoles 
 María Costello, jueves jueves 

Mantendremos la lista de empleados y fechas en una hoja de trabajo llamada "Empleados", nuestro código simplemente coincidirá con cada uno La disponibilidad de cada registro de personal está disponible todos los días de la semana:

   & # 39; Crear un conjunto de listas para registrar cada día de la semana y quién está disponible 
   Dim roster As New Collection 
   & # 39; Defina la hoja de trabajo y seleccione el rango de empleados disponibles 
 ("Empleado") 
 ("a2"). CurrentRegion.Columns (2) .Seleccione 

Si usa delimitadores para crear matrices, una buena opción es siempre el carácter de canalización egipcio "|". Una coma puede causar problemas porque los datos reales pueden contener comas que pueden alterar la matriz.

   & # 39; Crea un conjunto de fechas en la semana 
 Día = Dividir ("mon | tue | wed | thu | fri | sat | sun", "|") 
   & # 39; La fecha de cada día está disponible para cada empleado 
 x = 0 a UBound (días) 
 workers = "" 
   & # 39; Si el día de la semana coincide con la disponibilidad de los empleados, agréguelo a la lista de trabajadores del día 
 Para cada c, seleccione 
   si InStr (ajuste (c.Valor), días (x))> 0 luego 
   workers = workers & c.Offset (0, -1). Valor &, "
   Fin si 
 Siguiente 
 Worker = Día (x) &": "&" (Worker, 1, Len (Worker) - 1) 

[19659002] Ahora hemos enumerado La lista de trabajadores disponibles en el día, la agregamos a la lista y luego la transferimos al segundo día de la semana.

   Lista. Agregue trabajadores 
 Página siguiente 

Código de salida
Lo único que hay que hacer es imprimir mi colección de listas como una lista de trabajadores disponibles todos los días de la semana. El siguiente paso es presentar la lista para su distribución en un formato más fácil de usar.

    mon: Joe Eposito, Peter Fargo, Lily Markham 
 Martes: Joe Eposito, Lily Markham, Iain Malcolm 
 Matrimonio: Joe Eposito, Lily Markham, Iain Malcolm 
 Jueves: Maria Costello, Peter Fargo, Lily Markham, Iain Malcolm 
 Viernes: Maria Costello 
 Sentada: Maria Costello 
 Sol: Peter Fargo, Lily Markham 

Mejora del código VBA
La lista de personal de desarrollo puede Es una tarea complicada, pero es importante comenzar en alguna parte. Una vez que el sistema básico esté en su lugar, puede agregarlo sin ignorar los objetivos principales. Algunas sugerencias pueden incluir:

• Uso de números aleatorios para generar personal Un número menor de días de la lista
• destaca las fechas de la semana que requieren atención (19659025) para que el personal pueda clasificar los días alternos que se pueden requerir para trabajar

Resumen [19659020] Casi todas las organizaciones tienen una estructura diferente para sus empleados. Sin embargo, con algo de planificación y conocimiento de Excel y VBA, es casi posible producir un proceso para mejorar el programa actual.