Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

Сделал "красивый" календарь

Автор Василий Алибабаевич, 01.07.2008, 10:01

« назад - далее »

Василий Алибабаевич

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

P.s. Сами дни у меня специально в виде чисел 1,2,3 , а не дат с форматом "Д".
P.p.s. Решения на простоту не претендуют, делал то, что в голову первым приходило.  ;)

Микки

Скачал спасибо может где и пригодится

Шпец Докапыч

Цитата: Василий Алибабаевич от 01.07.2008, 10:01
Я с ужасом обнаружил, что в Excel нет готового шаблона с простым календарем, где просто: дни недели и месяцы и можно любой год выбрать.

Чем не устраивает "Элемент управления Календарь 11.0"?
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

Василий Алибабаевич

#3
Цитата: Шпец Докапыч от 01.07.2008, 11:19
Цитата: Василий Алибабаевич от 01.07.2008, 10:01
Я с ужасом обнаружил, что в Excel нет готового шаблона с простым календарем, где просто: дни недели и месяцы и можно любой год выбрать.

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

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

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

Upd. Вижу как настроить цвета, но мне нужно выборочно по дням...  ::)

serega-mats

Спасибо большое=)
очень пригодилось=)

Soldier

Цитата: Шпец Докапыч от 01.07.2008, 11:19
"Элемент управления Календарь 11.0"?

Народ, а что можно сделать с календарем кроме просмотра дат?

Шпец Докапыч

Можно вводить дату в элементы формы. Или, например, в ячейки (если мы разместили объект на листе). Дважды кликнув по элементу после вставки мы попадём в модуль листа в редактирование события Click.

Такой код будет записывать в первую диагональную ячейку выбираемое число:
Private Sub Calendar1_Click()
  Me.Calendar1.TopLeftCell.Offset(-1, -1) = Me.Calendar1.Day
End Sub
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

iron priest

тоже срадал фигней :), делал в 2010 офисе

Ingvar

Что-то не совсем пойму как в ""Элемент управления Календарь 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.
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли