Зацените ;D
Вроде до этого как-то обходился стандартными функциями Excel типа день() или дата(), а тут приятель попросил одну мульку ему сделать, и я с ужасом обнаружил, что в Excel нет готового шаблона с простым календарем, где просто: дни недели и месяцы и можно любой год выбрать.
Шаблоны в сети меня не впечатлили, собрал быстренько свой. Вроде работает. Конечно я упростил себе задачу, кое-где, но я не использовал функции из надстройки "пакет Анализа" - только стандартные. Над форматом тоже не стал заморачиваться.
P.s. Сами дни у меня специально в виде чисел 1,2,3 , а не дат с форматом "Д".
P.p.s. Решения на простоту не претендуют, делал то, что в голову первым приходило. ;)
Скачал спасибо может где и пригодится
Цитата: Василий Алибабаевич от 01.07.2008, 10:01
Я с ужасом обнаружил, что в Excel нет готового шаблона с простым календарем, где просто: дни недели и месяцы и можно любой год выбрать.
Чем не устраивает "Элемент управления Календарь 11.0"?
Цитата: Шпец Докапыч от 01.07.2008, 11:19
Цитата: Василий Алибабаевич от 01.07.2008, 10:01
Я с ужасом обнаружил, что в Excel нет готового шаблона с простым календарем, где просто: дни недели и месяцы и можно любой год выбрать.
Чем не устраивает "Элемент управления Календарь 11.0"?
Так кто-ж знал :D , в справке ничего не нашел, а листать везде-везде было что-то лень..
Хмм... а могу я закрашивать например какие-то определенные дни в этом Календаре 11.0? Желательно и цвет шрифта и цвет заливки ячейки, чтобы зависел от определенных параметров. В своем календаре я решал вопрос Условным форматированием. Там человеку нужно был календарь с закрашенными рабочими днями сутки через двое или типа того...
Upd. Вижу как настроить цвета, но мне нужно выборочно по дням... ::)
Спасибо большое=)
очень пригодилось=)
Цитата: Шпец Докапыч от 01.07.2008, 11:19
"Элемент управления Календарь 11.0"?
Народ, а что можно сделать с календарем кроме просмотра дат?
Можно вводить дату в элементы формы. Или, например, в ячейки (если мы разместили объект на листе). Дважды кликнув по элементу после вставки мы попадём в
модуль листа в редактирование события
Click.
Такой код будет записывать в первую диагональную ячейку выбираемое число:
Private Sub Calendar1_Click()
Me.Calendar1.TopLeftCell.Offset(-1, -1) = Me.Calendar1.Day
End Sub
тоже срадал фигней :), делал в 2010 офисе
Что-то не совсем пойму как в ""Элемент управления Календарь 11.0" :
1х у меня выбор года месяца работает. У других просто рисунки. В чем фишка )))
2х Какие свойства есть у календаря?:) интересует как создав календарь вида(во вложении)
макросом сразу везде месять год )
3х В данном обьекте не предусмотренно отображение недель?
1. Фишка не обнаружена, - всё кликабельно (Excel 2003).
2. Свойства можно просмотреть в редакторе, если кинуть этот элемент на UserForm. Или включить "Режим конструктора" на ПИ "Элементы управления", тогда в контекстном меню календарика (
ПКМ): Объект Календарь → Свойства.
Sub ВездеМеняемГод()
For Each cal In ActiveSheet.OLEObjects
If Left(cal.progID, 5) = "MSCAL" Then
cal.Object.Year = 2011
Next
Next
End Sub
3. Если речь о нумерации, то вроде как не предусмотрено: все свойства Show... по умолчанию в True.