подключить ActiveX, например Календарь

[Aent]

Gerek,
перенесите код и форму из надстройки в рабочую книгу ...
и будет вам счастье

[VictorM]

чтобы он выпадал в любой ячейке определенного столбца без использования надстроек?

вся прелесть этого календаря в том, что это не надстройка, а обыкновенная UserForm. И, соответственно, отпадают вопросы с подключением и т.д.
А вот "выпадал в любой ячейке определенного столбца" - уточните. При наступлении какого события это "выпадание" должно произойти.

[Gerek]

вся прелесть этого календаря в том, что это не надстройка, а обыкновенная UserForm. И, соответственно, отпадают вопросы с подключением и т.д.
А вот "выпадал в любой ячейке определенного столбца" - уточните. При наступлении какого события это "выпадание" должно произойти.

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

[VictorM]

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

определимся:
1. При активации ячейки в столбце (определенном) появляется календарь.
2. После выбора значения в календаре, это значение попадает в активную ячейку.
так?
Посмотрите вложение. Основа - немного переделанный по себя календарь Avsha. Активируете яч. в столбце D, щелчком по дате на календаре выбираете нужное Вам значение, оно попадает в активную ячейку. Вообщем - разберетесь.

[Gerek]

определимся:
1. При активации ячейки в столбце (определенном) появляется календарь.
2. После выбора значения в календаре, это значение попадает в активную ячейку.
так?
Посмотрите вложение. Основа - немного переделанный по себя календарь Avsha. Активируете яч. в столбце D, щелчком по дате на календаре выбираете нужное Вам значение, оно попадает в активную ячейку. Вообщем - разберетесь.

VictorM еще раз огромное Вам спасибо! Подскажите, пожалуйста, возможно ли перенастроить этот замечательный календари так, чтобы он появлялся не просто при выборе ячейки, а при двойном щелчке на ней.

[VictorM]

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

да, можно. Замените код

Код: Выделить всё

Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [D :D ]) Is Nothing Then Календарь.Show
End Sub

на

Код: Выделить всё

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [D :D ]) Is Nothing Then Календарь.Show
End Sub

[Gerek]

Еще раз спасибо!

[Avsha]

чтобы после двойного щелчка курсор не заходил в ячейку, можете использовать
Cancel = True

Код: Выделить всё

 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

...
 
Cancel = True
End Sub

[VictorM]

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

[Avsha]

двойной щелчок по ячейке - это равносильно нажатию F2 - ячейка берется на редактирование - курсор готов ввести данные в ячейке.

если поставите Cancel = True - ячейка не возьмется на редактирование.

а вот что написано в справке...
Cancel Optional. False when the event occurs. If the event procedure sets this argument to True, the default double-click action isn't performed when the procedure is finished