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

[VictorM]

Avsha, понял! Вот теперь понял Вашу идею.

[DzenDen1]

VictorM,
Можете подсказать, как прикрутить календарь к
userform1.textbox2
userform1.textbox20
userform1.textbox22
что-бы календарем вводить разные даты в форме, и чет-то у меня с
форматом не получается,заранее благодарен.

[VictorM]

Посмотрите вложение

[Aent]

Кстати, ViktorM, по поводу подобной парольной защиты.
Когда ваш макрос запрашивает пароль с помощью InputBox нажмите Ctrl+Break

[VictorM]

Спасибо, но это не моя защита
Это защита автора файла DzenDen1

[Mint86]

Господа, а никому не встречался календарь наподобие календаря от Avsha но на 12 месяцев (чтобы сразу же были видны все месяца)? Или может ActiveX какой нить есть.

[DzenDen1]

VictorM, Вам большой сенкс.

Когда ваш макрос запрашивает пароль с помощью InputBox нажмите Ctrl+Break

Да нармуль защита,Ctrl+Break а там password... дальше дело техники.

[segres]

Здравствуйте.
Подскажите пожалуйста.
У меня код, который вводит данные или удаляет на выбранную дату, находится в кнопке Cmd_Select
Как после выполнение команды закончить выбор даты и закрыть форму календаря,

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

Private Sub Cmd_Select_Click()
    'Команда - закончить выбор даты и закрыть форму
    SelectedDate = CStr(DateValue(dt_1))
    Unload Me
End Sub

выполнить код по отношению к той кнопки, которой был открыт календарь.

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

Private Sub CommandButton6_Click()
    Get_Date (Now) 'Открыть календарь
End Sub

--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Дополнение

Проще говоря, кнопка ОК будет одна выполнять различные коды по отношению к кнопкам которыми был открыт календарь.

p/s
Чтобы не вписывать код в кнопку ОК
Кнопка ОК должна выполняеть только выбор даты и закрытие формы

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

Private Sub Cmd_Select_Click()
'Команда - закончить выбор даты и закрыть форму
SelectedDate = CStr(DateValue(dt_1))
Unload Me
End Sub 

[novak_26]

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

А можно что-то подобное, только чтобы дней не было? Просто месяцы и годы (мне для задач прогнозирования на N лет вперед)). И чтобы записывалось не в любую выбранную ячейку, а в конкретную (а лучше во внутреннюю переменную макроса). Нажимаешь кнопку, открывается форма, там два поля "месяц", "год".
Я с алгоритмическими операторами vba немного разобрался, с объектными пока туго, их больше рекордером пишу.

[Dost1369]

2. После выбора значения в календаре, это значение попадает в активную ячейку.
так?

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