Библиотека календаря для office 2010

@Noit · Регистрация: 11.04.2012

Студворк — интернет-сервис помощи студентам

Столкнулся с проблемой, хотел чтобы при нажатии на ячейку вылезала табличка с выбором даты, начал писать макрос для этого дела и...
не обнаружил в VBA - control calendar, у меня 2010ый офис, как решить данную проблему.
Может есть MSCAL.OCX для office 2010?

Скрипт · 30.01.2013, 20:12

Noit, в Microsoft Office есть два календаря, но они иду только с программой Access. Поэтому нужно отдельно скачать где-то библиотеку объектов календаря.

@Igor_Tr · 30.01.2013, 20:22

На этом форуме
https://www.cyberforum.ru/atta... picker.rar

@Noit · 30.01.2013, 20:36 **[ТС]**

а как мне сделать, чтобы при нажатии на определенную ячейку выскакивала форма выбора даты?

@Catstail · 30.01.2013, 20:51

А хотите вот такой календарь? Выкладываю dll-ку, инструкцию и пример... Можно выбирать одну дату, интервал дат и группу дат. В этом же флаконе - быстрая работа с dbf (Dbase-III).

@Noit · 30.01.2013, 21:00 **[ТС]**

Нажимаю на ячейку и выскакивает форма для выбора даты, как на картинке

@The_Prist · 30.01.2013, 21:32

Поищите в интернете: samradDatePicker.xla

P.S. нашел сам у себя в закромах

@Noit · 31.01.2013, 12:17 **[ТС]**

Сообщение от The_Prist

Поищите в интернете: samradDatePicker.xla

а как его к ячейке каждой прикрепить?

@The_Prist · 31.01.2013, 12:26

Если запустить надстройку, то по правому клику на любой ячеке появится новый пункт - Pick from Calendar. При нажатии на него появляется календарь. Там так же можно вызвать окно настроек для календаря.

@Noit · 31.01.2013, 17:24 **[ТС]**

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

Добавлено через 3 часа 53 минуты
Календарик нарисовал по примеру, но не знаю как его вставить именно по нажатии на ячейки от C14 до M14.
А пока только при нажатии на столбец F выскакивает календарик, вот код:

Visual Basic
1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
       DateForm.Show
    End If
End Sub

@The_Prist · 31.01.2013, 17:49

Уверены, что по нажатии на столбец F, а не В?

Visual Basic
1
If Not Intersect(Target, Range("C14:M14")) Is Nothing Then

@Noit · 31.01.2013, 18:03 **[ТС]**

Visual Basic
1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Not Intersect(Target, Range("C14:M14")) Is Nothing Then
                DateForm.Show
            End If
        End If
End Sub

Так?
Так не работает

Добавлено через 36 секунд
Вот при нажатии на c14 получилось

Visual Basic
1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Not Intersect(Target, Range("C:C")) Is Nothing And Target.Value = "" Then
            If Not Intersect(Target, Range("C:C")) Is Nothing And Target.Row = "14" Then
                DateForm.Show
            End If
        End If
End Sub

@The_Prist · 31.01.2013, 18:40

Согласен, не работает. И даже ошибку, наверное, выдает? Типа "End if without block If"? А если попробовать сделать все по науке, а не пихать ненужного?

Visual Basic
1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Not Intersect(Target, Range("C14:M14")) Is Nothing Then
             DateForm.Show
        End If
End Sub

@Noit · 01.02.2013, 10:20 **[ТС]**

Сообщение от The_Prist

И даже ошибку, наверное, выдает? Типа "End if without block If"?

Что-то я затупил)

@Green232 · 20.10.2016, 16:57

страницы не существует.

Добавлено через 1 минуту
бестолку, файл запаролен

@Green232 · 09.11.2016, 13:32

спасибо скачал ocx, положил в винду , подключил , помогло.

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

@Noit 26 / 26 / 10 Регистрация: 11.04.2012 Сообщений: 870

	Библиотека календаря для office 2010 30.01.2013, 20:08. Показов 10797. Ответов 15 Метки нет (Все метки) Столкнулся с проблемой, хотел чтобы при нажатии на ячейку вылезала табличка с выбором даты, начал писать макрос для этого дела и... не обнаружил в VBA - control calendar, у меня 2010ый офис, как решить данную проблему. Может есть MSCAL.OCX для office 2010? 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	30.01.2013, 20:12
	Noit, в Microsoft Office есть два календаря, но они иду только с программой Access. Поэтому нужно отдельно скачать где-то библиотеку объектов календаря. 1

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	30.01.2013, 20:22
	На этом форуме https://www.cyberforum.ru/atta... picker.rar 1

@Noit 26 / 26 / 10 Регистрация: 11.04.2012 Сообщений: 870
	30.01.2013, 20:36 [ТС]
	а как мне сделать, чтобы при нажатии на определенную ячейку выскакивала форма выбора даты? 0

@Noit 26 / 26 / 10 Регистрация: 11.04.2012 Сообщений: 870
	30.01.2013, 21:00 [ТС]
	Нажимаю на ячейку и выскакивает форма для выбора даты, как на картинке Миниатюры 0

@The_Prist 2052 / 482 / 133 Регистрация: 13.11.2008 Сообщений: 921
	31.01.2013, 12:26
	Если запустить надстройку, то по правому клику на любой ячеке появится новый пункт - Pick from Calendar. При нажатии на него появляется календарь. Там так же можно вызвать окно настроек для календаря. 0

@Green232 0 / 0 / 0 Регистрация: 20.10.2016 Сообщений: 5
	20.10.2016, 16:57
	страницы не существует. Добавлено через 1 минуту бестолку, файл запаролен 0

@Green232 0 / 0 / 0 Регистрация: 20.10.2016 Сообщений: 5
	09.11.2016, 13:32
	спасибо скачал ocx, положил в винду , подключил , помогло. 0