Питање:
На радном листу имам Име запосленог, ХолидаиСтарт и ХолидаиЕнд. Како могу да обојим празнике сваког запосленог у наредним месечним табелама?
Одговор:
Унесите следећи код са КСЛ5/7 у листу модула, са КСЛ8 у општи модул, доделите га дугмету и покрените га.
Унесите доњи код у стандардни модул
Суб НевВацатион () Дим рнгФинд Ас Ранге Дим интРов Ас Интегер, интМонтх Ас Интегер, интЦоунтер Ас Интегер интРов = 3 До До ИсЕмпти (ћелије (интРов, 1)) За интМонтх = Месец (ћелије (интРов, 2)) до месеца (ћелије (интРов, 3)) Постави рнгФинд = радне листове (Формат (ДатеСериал (1, интМонтх, 1), "мммм")). _ Колоне (1). Пронађи _ (Ћелије (интРов, 1), ЛоокИн: = клВалуес, тражи: = клВхоле) Ако је интМонтх = Месец (ћелије (интРов, 2)) И интМонтх = _ Месец (Ћелије (интРов, 3) ) Затим За интЦоунтер = Дан (ћелије (интРов, 2)) до дана (ћелије (интРов, 3)) рнгФинд.Оффсет (0, интЦоунтер) .Интериор.ЦолорИндек = 3 Сљедећи интЦоунтер ЕлсеИф интМонтх = Монтх (ћелије (интРов, 2 )) Затим за интЦоунтер = Дан (ћелије (интРов, 2)) до дана (ДатеСериал _ (1, Месец (ћелије (интРов, 2)) + 1, 0)) рнгФинд.Оффсет (0, интЦоунтер) .Интериор.ЦолорИндек = 3 Следећи интЦоунтер Елсе За интЦоунтер = 1 То Даи (ћелије (интРов, 3)) рнгФинд.Оффсет (0, интЦоунтер) .Интериор.ЦолорИндек = 3 Следећи интЦоунтер Енд Иф Следећи интМонтх интРов = интРов + 1 Лооп Енд Суб