Ingrese las vacaciones de acuerdo con la Tabla en la lista de vacaciones usando VBA

Anonim

Pregunta:
Tengo el EmployeeName, el HolidayStart y el HolidayEnd en una hoja de trabajo. ¿Cómo puedo colorear las vacaciones de cada empleado en las hojas del mes siguiente?

Respuesta:
Ingrese el siguiente Código con XL5 / 7 en un ModuleSheet, con XL8 en un Módulo general, asígnelo a un Botón y ejecútelo.

Coloque el siguiente código en el módulo estándar

Sub NewVacation () Dim rngFind As Range Dim intRow As Integer, intMonth As Integer, intCounter As Integer intRow = 3 Do until IsEmpty (Cells (intRow, 1)) For intMonth = Month (Cells (intRow, 2)) To Month (Cells (intRow, 3)) Establezca rngFind = Worksheets (Format (DateSerial (1, intMonth, 1), "mmmm")). _ Columns (1) .Find _ (Cells (intRow, 1), LookIn: = xlValues, lookat: = xlWhole) If intMonth = Month (Cells (intRow, 2)) And intMonth = _ Month (Cells (intRow, 3) ) Luego Para intCounter = Day (Cells (intRow, 2)) To Day (Cells (intRow, 3)) rngFind.Offset (0, intCounter) .Interior.ColorIndex = 3 Siguiente intCounter ElseIf intMonth = Month (Cells (intRow, 2 )) Luego para intCounter = Day (Cells (intRow, 2)) To Day (DateSerial _ (1, Month (Cells (intRow, 2)) + 1, 0)) rngFind.Offset (0, intCounter) .Interior.ColorIndex = 3 Siguiente intCounter Else For intCounter = 1 To Day (Cells (intRow, 3)) rngFind.Offset (0, intCounter) .Interior.ColorIndex = 3 Next intCounter End If Next intMonth intRow = intRow + 1 Loop End Sub