За последнюю неделю на вас и так свалилось в почте-инете-офисе, наверное, несколько десятков поздравлений, так что буду краток
Пользуясь возможностью, хочу поздравить вас всех с Наступающим Новым годом и пожелать счастья и здоровья вам и вашим близким, радости и осознанности в работе, гармонии в душе. Надеюсь, мои тренинги, этот сайт и все его материалы как-то пригодились вам в прошедшем году. Будем стараться радовать вас и в следующем.
В китайском языке слово "кризис" пишется иероглифом, состоящим из двух частей: "опасность" и "шанс". Девизом прошедшего 2014-го для меня стало слово "опасность" - многие вещи, которые я до этого считал совершенно чудовищными и невозможными вдруг начали воплощаться в жизнь. Очень хочу, чтобы девизом следующего для всех нас стало слово "шанс".
И помните, что ваш главный проект на следующий год - это ВЫ САМИ. Поставьте цели, запишите их бумаге и вперед - выполнять и вычеркивать!
А чтобы делать это было проще - вот вам в качестве традиционного новогоднего миниподарка
- запоминает введенные для каждого дня мероприятия (можно использовать вместо Outlook)
- умеет отображать праздники (государственные и не очень)
- выводит номера недель
- легко переключается в другую цветовую гамму по вашему вкусу (вкладка Разметка страницы - Цвета)
- имеет подробные данные о рабочих днях и часах для разных типов недель (в помощь бухгалтеру)
С Новым годом!
С Новым годом, Николай!
Праздники добавляются не всегда, т.к. в дизайне календаря добавились строки уже после написания макроса. Поэтому стоит подправить в процедуре AddHolidays строку
For Each cell In ActiveSheet.Range("a5:x10,a15:x21,a27:x33,a38:x44").Cells
С Новым годом!
Прекрасная работа, спасибо
Можно ли добавить двухстороннюю синхронизацию с календарём Google?
В планах у меня такого нет
Николай, с прошедшими праздниками Вас! Пусть наступивший год сложится для Вас успешно во всех сферах деятельности!
В календарике заметила небольшой баг: не сохраняются дела, запланированные на 0:00 и 1:00 (не самая необходимая вещь, конечно, но все же ), нужно подправить строчку в процедуре Worksheet_Change
If Intersect(Target, cal.Range("AC3:AC26")) Is Nothing Then Exit Sub
Код подправил, спасибо!
30 и 31 в марте
за календарик. Удачи