mail mail
Нужен макрос для Excel?
Сделайте заказ прямо сейчас!
Ищете готовое решение?
Выбирайте и покупайте!
У вас есть интернет-магазин?
Настроим парсер под любой сайт!

ВНИМАНИЕ: Данная программа использует вызов системных функций - WinAPI
Поскольку синтаксис вызова этих функций в различных версиях Windows и Office может отличаться, работа программы на всех компьютерах не гарантируется!
Все размещённые на сайте макросы тестировались в Excel 2003 - 2010 под управлением 32-битной версии Windows XP

Если вы работаете в 64-битной версии Windows, или используете Office 2010 или 2013 (в котором встроена 7-я версия VBA),
то есть вероятность, что макрос работать не будет (потребуется доработка вызова функций WinAPI)
По указанным причинам, макрос не будет работать под управлением MacOS Excel 2004, 2008, 2011 и т.п.)

Выпадающий календарь в ячейке (выбор даты на листе Excel)

Выпадающий календарь в ячейке листа Excel

Надстройка samradDatePicker (русифицированная) для облегчения ввода даты в ячейки листа Excel.

Добавляет в контекстное меня ячеек пункт выбора даты, а при выделении ячеек, содержащих дату, справа от ячейки отображает значок календаря.

Поместите файл надстройки из вложения в папку автозагрузки Excel (C:\Program Files\Microsoft Office\OFFICExx\XLSTART).

В контекстном меню ячеек появляется новый пункт - "Выбрать дату из календаря".
Рядом с ячейками, в которые уже введена дата, будет отображаться маленький календарик, щелчок по которому вызовет большой календарь - для выбора даты.

Второй прикреплённый к статье файл - та же надстройка, только в которой неделя начинается с понедельника (в оригинале надстройки - с воскресенья)

Пароль на проект VBA - 1 (единица)

PS: Этот макрос написал не я (автор - samrad)
Файл с макросом взят на просторах интернета.
Поскольку макрос делал не я, - доработками его я не занимаюсь, никаких гарантий работы дать не могу, по использованию не консультирую.

ВложениеРазмерЗагрузкиПоследняя загрузка
Надстройка для выбора даты из календаря на листе Excel183.16 КБ432 года 45 недель назад
Исправленная надстройка (первый день недели - понедельник)165.6 КБ352 года 50 недель назад

Комментарии

Настройки просмотра комментариев

Выберите нужный метод показа комментариев и нажмите "Сохранить установки".

Очень интересно, как реализована появление иконки в ячейке без подгрузки из диска? Сколько не копался в коде понять не смог.

Кстати! А можно сделать так, чтоб календарик также, как и в Excel, млжно было бы вызвать в Word&

Очень хороший календарик! Правда, одно "но". Лично мне привычнее, чтоб дни недели распологались бы вертикально.

При запуске Excel 2003 выкидывал ошибку и закрывался.
Помогло: запустил скачанный файл, открыл Visual Basic, открыл проект - forms - FrmCal
закрыл Visual Basic. Ничего не менял. Перезапустил Excel.
Всё заработало. Странно, но помогло )))

Очень удобно, спасибо!
Скинул сюда "c:\Users\Администратор\AppData\Roaming\Microsoft\AddIns"
Exсel 2010-й, папки "....OFFICExx\XLSTART" у меня нет.

а можно внизу где "вперед... дней" рядом в углу установить значок "сегодня", чтобы при нажатии на него сразу показывался текущий месяц?

Еще раз привет !
До сих пор у меня не получилось установить эту функцию. При запуске Эксель выдаёт информацию об ошибке (в переводе):

Недопустимый вызов процедуры или параметр (Ошибка 5)
Некоторая часть запроса не может быть закончена. Эта ошибка имеет следующие причины и решения:
Параметр вероятно превышает диапазон разрешенных значений. Например, функция Sin может только принять значения в пределах некоторого диапазона. Положительные параметры меньше чем 2,147,483,648 приняты, в то время как 2,147,483,648 генерирует эту ошибку.
Проверьте(Отметьте) диапазоны, разрешенные для параметров.
Эта ошибка может также произойти, если попытка сделана, чтобы назвать(вызвать) процедуру, которая не правильна(допустима) на текущей платформе. Например, некоторые процедуры могут только быть правильны(допустимы) для Windows Microsoft, или для Macintosh, и так далее.
Проверьте(Отметьте) определенную платформой информацию о процедуре.
Для дополнительной информации, выберите рассматриваемый элемент(пункт) и нажмите F1 (в Windows) или СПРАВКЕ (на Macintosh).

Что это значит? Не могу понять! Заранее спасибо

Добавил в заголовки к этой и другим статьям, описывающим макросы с применением WinAPI, причины и способы устранения проблем несовместимости макросов при работе в 64-битных Windows и Office 2010

Пытался запустить на 64-битной платформе, не работает. Excel говорит, что ошибка компиляции в скрытом модуле modMouse. Что я делаю не так?

Здравствуйте. Скачал второй вариант. Зачотно. Сначала правда эксел выдавал ошибку, что файл не найден и хотел отправить ошибку в микрософт, и предлагал запуститься в безопасном режиме. И так несколько раз, пока я не отказался запускаться в безопасном режиме и все заработало. Спасибо за полезную функцию.

я предполагаю, что формат ячейки должен быть "Дата", тогда появится справа значок календаря или вызвать контекстное меню правой кнопкой мыши и выбрать пункт меню "Выбрать из календаря"

Привет, учитель!
Скачал я надстройку, сохранил в положенном месте, а в Экселе ничего не изменилось и не добавилось. Может я чего то не понимаю?

вот русский вариант с понедельником

Спасибо за исправленную версию, прикрепил доработанный файл надстройки к статье.

rapidshare.com/files/422489464/samradDatePicker_ru_monday.rar
вот русский вариант с понедельником, спасибо за рекомендации, как сделать

В коде формы frmCal в строчке Переменная077 = Weekday(Переменная0175, vbSunday) поменяй на (Переменная0175, vbMonday), a затем поменяй на самой форме дни недели соответственно.

А как сделать, что бы неделя начиналась с пн?

ДА прибудет с тобой сила мастер ВбА

Надо найти функцию CreateIconFile, и указать в ней путь к вашему файлу с иконкой:

Public Sub CreateIconFile()
    sPathToIcon = "D:\Distr\аватары\EducatedFool.bmp"
End Sub

после чего сохранить файл надстройки, и перезапустить его.

Результат:

а как поменять иконку которая с права в ячейке отображается???

Спасибо, все работает :)

Прошу прощения, не увидел сразу )

Что-не работает ((
Пароль от проекта не подскажите. В свою очередь готов поделиться некими полезными инструментами.

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
CAPTCHA
Подтвердите, пожалуйста, что вы - человек:
  ____           _____           _     _ 
| _ \ __ __ |___ | ____ (_) (_)
| |_) | \ \/ / / / |_ / | | | |
| _ < > < / / / / | | | |
|_| \_\ /_/\_\ /_/ /___| _/ | _/ |
|__/ |__/
Введите код, изображенный в стиле ASCII-арт.

Не получается применить макрос? Не удаётся изменить код под свои нужды?

Оформите заказ у нас на сайте, не забыв прикрепить примеры файлов, и описать, что и как должно работать.