Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: kot_k_k полей-то 31 а не 9, просто нужно их нужно окрасить согласно какому-то условию. вот тут как раз вариант "Условное форматирование" и катит, на каждое поле (дата) вешаем условие по дате, хотя это сорее отчет, чем фома. а в отчете это мона сделать типа вот:
Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer) Dim l, l1, i, isday As Variant With Me isday = DateSerial(!Год, !Выражение3 + 1, 1) - DateSerial(!Год, !Выражение3, 1) ' получили кол-во дней в месяце For i = 1 To isday l = "В" + Trim(str(i)) l1 = WeekDay(DateSerial(!Год, !Выражение3, i)) Select Case WeekDay(DateSerial(!Год, !Выражение3, i)) Case 1, 7 Me(l).BackColor = 12632256 Case 2, 3, 4, 5, 6 Me(l).BackColor = 16777215 End Select Next End With End Sub
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.