Vprašanje:
Ime delavca, HolidayStart in HolidayEnd imam na delovnem listu. Kako lahko obarvam praznike vsakega zaposlenega v naslednjih mesečnih listih?
Odgovor:
Vnesite naslednjo kodo s XL5/7 v list modulov, s XL8 v splošni modul, jo dodelite gumbu in zaženite.
Spodnjo kodo vstavite v standardni modul
Sub NewVacation () Dim rngFind As Range Dim intRow As Integer, intMonth As Integer, intCounter As Integer intRow = 3 Do Until IsEmpty (celice (intRow, 1)) Za intMonth = Month (Celice (intRow, 2)) To Month (Cells (intRow, 3)) Nastavi rngFind = delovne liste (Oblika (DateSerial (1, intMonth, 1), "mmmm")). _ Stolpci (1). Najdi _ (Celice (intRow, 1), LookIn: = xlValues, poišči: = xlWhole) Če je intMonth = Mesec (Celice (intRow, 2)) In intMonth = _ Mesec (Celice (intRow, 3) ) Nato Za intCounter = Dan (celice (intRow, 2)) na dan (celice (intRow, 3)) rngFind.Offset (0, intCounter) .Interior.ColorIndex = 3 Naslednji intCounter ElseIf intMonth = Mesec (Celice (intRow, 2 )) Potem za intCounter = Dan (celice (intRow, 2)) na dan (DateSerial _ (1, mesec (celice (intRow, 2)) + 1, 0)) rngFind.Offset (0, intCounter) .Interior.ColorIndex = 3 Naslednji intCounter Sicer Za intCounter = 1 na dan (celice (intRow, 3)) rngFind.Offset (0, intCounter) .Interior.ColorIndex = 3 Naslednji intCounter End Če Naslednji intMonth intRow = intRow + 1 Loop End Sub