Įveskite atostogas pagal atostogų sąrašo lentelę naudodami VBA

Klausimas:
Darbo lape turiu „EmployeeName“, „HolidayStart“ ir „HolidayEnd“. Kaip galiu nuspalvinti kiekvieno darbuotojo atostogas kito mėnesio lapuose?

Atsakymas:
Įveskite šį kodą su XL5/7 į „ModuleSheet“, su XL8 į bendrą modulį, priskirkite jį mygtukui ir paleiskite.

Įdėkite žemiau esantį kodą į standartinį modulį

Sub NewVacation () Dim rngFind As Range Dim intRow As Integer, intMonth As Integer, intCounter As Integer intRow = 3 Do Before IsEmpty (Cells (intRow, 1)) For intMonth = Month (Cells (intRow, 2)) To Month (Cells (intRow, 3)) Set rngFind = Worksheets (Format (DateSerial (1, intMonth, 1), "mmmm")). _ Stulpeliai (1). Rasti _ (ląstelės (intRow, 1), LookIn: = xlValues, lookat: = xlWhole) Jei intMonth = mėnuo (ląstelės (intRow, 2)) ir intMonth = _ mėnuo (ląstelės (intRow, 3) ) Tada „intCounter“ = diena (ląstelės (intRow, 2)) iki dienos (ląstelės (intRow, 3)) rngFind.Offset (0, intCounter) .Interior.ColorIndex = 3 Kitas intCounter ElseIf intMonth = Mėnuo (Ląstelės (intRow, 2) )) Tada „intCounter“ = diena (langeliai (intRow, 2)) iki dienos (DateSerial _ (1, mėnuo (ląstelės (intRow, 2)) + 1, 0)) rngFind.Offset (0, intCounter) .Interior.ColorIndex = 3 Kitas intCounter Else IntCounter = 1 iki dienos (Ląstelės (intRow, 3)) rngFind.Offset (0, intCounter) .Interior.ColorIndex = 3 Kitas intCounter End If Next intMonth intRow = intRow + 1 Loop End Sub