Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
выбор даты в ячейке из всплывающего календаря
 
#1
12.10.2014 11:45:49
Добрый день.
Необходимо написать макрос, который при выборе конкретной ячейки (например В2) выводил на экран календарь и далее при выборе даты убирал данный календарь с экрана.

На данный момент я вывела на экран календарь, который "висит" всегда (не убирается).
И при выборе даты на календаре она устанавливается в любую активную ячейку.
Код
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
End Sub

Private Sub UseForm_Activate()
Me.Calendar1.Value = Date
End Sub

Sub ShowIt()
UseForm1.Show
End Sub
Что необходимо исправить?
 
 
 
#2
12.10.2014 11:53:02
Может через "IF" написать, что если
IF ActiveCell.Cell = "B2" THEN
"Показать календарь", далее ваш код, по внесению данных в ячейку, и в конце скрыть календарь.
ELSE GOTO END

как то так.
 
 
 
#3
12.10.2014 11:53:49
Не хотел умничать, просто я понимаю, что это возмонжо, но корректно окончательный код написать не способен, т.к. не знаю, как отображается и скрывается форма календаря.

С/У
Санж
 
 
 
#4
12.10.2014 12:10:16
В модуль нужного листа
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo 0
    If Target.Address <> "$A$1" Then UserForm1.Hide: Exit Sub
    UserForm1.Show 0
End Sub
$A$1 замените адресом нужной ячейки
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
12.10.2014 12:25:10
Код
Private Sub Calendar1_Click() 
ActiveCell = Calendar1.Value 
Unload Me'закрываем форму после выбора даты
End Sub
P.S. Оформляйте коды тегами(кнопочка <...> над полем сообщения)

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#6
12.10.2014 12:25:16
Ввод в TextBox даты из календаря и закрытие календаря:
Код
Private Sub Calendar1_Click()
    UserForm2.TextBox1 = Format(Calendar1.Value, "dd.mm.yyyy": Unload Me
End Sub
В UserForm2:
Код
Private Sub TextBox1_Enter()
   Calendar.Show ' вызов календаря
End Sub
Изменено: Павел Запивахин - 12.10.2014 12:43:24
 
 
 
#7
12.10.2014 12:26:37
Павел Запивахин, оформляйте тегами коды внутри сообщений.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#8
12.10.2014 12:28:57
См. файл с календарём на стандартных элементах (автор Слэн). Вызов календаря при активации ячейки В2, в неё же будет вставлена дата. Для вставки даты в любую активную ячейку используйте кнопку.
 
 
 
#9
12.10.2014 12:29:57
Цитата
The_Prist пишет: оформляйте тегами коды внутри сообщений.
Понял, исправлюсь.
 
 
 
Страницы: 1
Читают тему
Наверх