Профессиональные приемы работы в Microsoft Excel

Обмен опытом => Шаблоны, надстройки, утилиты... * NEW => Тема начата: Василий Алибабаевич от 01.07.2008, 10:01

Название: Сделал "красивый" календарь
Отправлено: Василий Алибабаевич от 01.07.2008, 10:01
Зацените  ;D
Вроде до этого как-то обходился стандартными функциями Excel типа день() или дата(), а тут приятель попросил одну мульку ему сделать, и я с ужасом обнаружил, что в Excel нет готового шаблона с простым календарем, где просто: дни недели и месяцы и можно любой год выбрать.
Шаблоны в сети меня не впечатлили, собрал быстренько свой. Вроде работает. Конечно я упростил себе задачу, кое-где, но я не использовал функции из надстройки "пакет Анализа" - только стандартные. Над форматом тоже не стал заморачиваться.

P.s. Сами дни у меня специально в виде чисел 1,2,3 , а не дат с форматом "Д".
P.p.s. Решения на простоту не претендуют, делал то, что в голову первым приходило.  ;)
Название: Re: Сделал "красивый" календарь
Отправлено: Микки от 01.07.2008, 10:53
Скачал спасибо может где и пригодится
Название: Re: Сделал "красивый" календарь
Отправлено: Шпец Докапыч от 01.07.2008, 11:19
Цитата: Василий Алибабаевич от 01.07.2008, 10:01
Я с ужасом обнаружил, что в Excel нет готового шаблона с простым календарем, где просто: дни недели и месяцы и можно любой год выбрать.

Чем не устраивает "Элемент управления Календарь 11.0"?
Название: Re: Сделал "красивый" календарь
Отправлено: Василий Алибабаевич от 01.07.2008, 11:33
Цитата: Шпец Докапыч от 01.07.2008, 11:19
Цитата: Василий Алибабаевич от 01.07.2008, 10:01
Я с ужасом обнаружил, что в Excel нет готового шаблона с простым календарем, где просто: дни недели и месяцы и можно любой год выбрать.

Чем не устраивает "Элемент управления Календарь 11.0"?

Так кто-ж знал  :D , в справке ничего не нашел, а листать везде-везде было что-то лень..

Хмм... а могу я закрашивать например какие-то определенные дни в этом Календаре 11.0? Желательно и цвет шрифта и цвет заливки ячейки, чтобы зависел от определенных параметров. В своем календаре я решал вопрос Условным форматированием. Там человеку нужно был календарь с закрашенными рабочими днями сутки через двое или типа того...

Upd. Вижу как настроить цвета, но мне нужно выборочно по дням...  ::)
Название: Re: Сделал "красивый" календарь
Отправлено: serega-mats от 10.03.2009, 10:10
Спасибо большое=)
очень пригодилось=)
Название: Re: Сделал "красивый" календарь
Отправлено: Soldier от 18.09.2009, 08:49
Цитата: Шпец Докапыч от 01.07.2008, 11:19
"Элемент управления Календарь 11.0"?

Народ, а что можно сделать с календарем кроме просмотра дат?
Название: Re: Сделал "красивый" календарь
Отправлено: Шпец Докапыч от 18.09.2009, 11:16
Можно вводить дату в элементы формы. Или, например, в ячейки (если мы разместили объект на листе). Дважды кликнув по элементу после вставки мы попадём в модуль листа в редактирование события Click.

Такой код будет записывать в первую диагональную ячейку выбираемое число:
Private Sub Calendar1_Click()
  Me.Calendar1.TopLeftCell.Offset(-1, -1) = Me.Calendar1.Day
End Sub
Название: Re: Сделал "красивый" календарь
Отправлено: iron priest от 01.03.2011, 15:27
тоже срадал фигней :), делал в 2010 офисе
Название: Re: Сделал "красивый" календарь
Отправлено: Ingvar от 05.05.2011, 11:00
Что-то не совсем пойму как в ""Элемент управления Календарь 11.0" :
1х у меня выбор года месяца работает. У других просто рисунки. В чем фишка )))
2х Какие свойства есть у календаря?:) интересует как создав календарь вида(во вложении)
макросом сразу везде месять год )
3х В данном обьекте не предусмотренно отображение недель?


Название: Re: Сделал "красивый" календарь
Отправлено: Шпец Докапыч от 05.05.2011, 21:16
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.