Еще о Календарике

[Trimbl]

Здравствуйте - Все! Уважаемые програмисты, прошу Вашего участия в решении задач, которые по понятным причинам сам решить не могу. "Слизал" на форуме календарик, и все-бы ОК (можно мириться), но хотелось-бы чтобы:1. Сохранялась-бы исходная дата в ячейке( в примере "F4")при выборе на календаре - Отмена. 2. Как вставить дату в ячейки, выделенные желтым цветом, которые меняют свое положение при вставке строк. 3.Возможно ли прописать положение формы календаря в обусловленном месте листа(например верхний левый угол формы - ячейка "Н8". 4. Вызов календаря в определенных ячейках происходил при выдилении ячейки одним кликом.5.Можно было-бы закрыть форму календарика "кликом" на Крестике -Закрыть.
Понимаю, что вопросов много, но возможно они все взаимосвязаны и решаются за один прием.
Благодаю.

[kuklp]

1.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range(ra)) Is Nothing Then
        Application.EnableEvents = False
        Cancel = True
         Target = IIf(Get_Date("", Now) = "", Target, Target = Get_Date("", Now))
        Application.EnableEvents = True
    End If
End Sub

Дальше просто не хочется корежить код автора, по всем вопросам собственно по календарю - к нему.

[EducatedFool]

1. реализовано

Target = Get_Date(Target, Now) ' по умолчанию - дата из ячейки

2. реализовано
(см. синие ячейки - все они входят в именованный диапазон даты)

3. Свойство формы StartUpPosition ставим в 0,
и в коде пишем что-то вроде этого:

Private Sub UserForm_Initialize()
    Me.Top = Range("h9").Top
    Me.Left = Range("h9").Left
    ' ...

4. Используем событие Worksheet_SelectionChange

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("даты")) Is Nothing Then
        Target = Get_Date(Target, Now)    ' по умолчанию - дата из ячейки
    End If
End Sub

5. реализовано - отключил одну строку кода

Проверяйте: http://excelvba.ru/XL_Files/Sample__...__10-28-45.zip

[Trimbl]

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

1.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range(ra)) Is Nothing Then
        Application.EnableEvents = False
        Cancel = True
         Target = IIf(Get_Date("", Now) = "", Target, Target = Get_Date("", Now))
        Application.EnableEvents = True
    End If
End Sub

Дальше просто не хочется корежить код автора, по всем вопросам собственно по календарю - к нему.

Шановний kuklp! Если я правильно понял Ваш код необходимо вставить в модуль листа вместо существующего кода
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range(ra)) Is Nothing Then
Application.EnableEvents = False
Cancel = True: Target = Get_Date("", Now)
Application.EnableEvents = True
End If
End Sub
Сохраняется значение при двойном клике на "Отмена", но установить дату - увы не получается, выдает -ЛОЖЬ. Возможно я что-то не то сделал?

[Trimbl]

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

1. реализовано

Target = Get_Date(Target, Now) ' по умолчанию - дата из ячейки

2. реализовано
(см. синие ячейки - все они входят в именованный диапазон даты)

3. Свойство формы StartUpPosition ставим в 0,
и в коде пишем что-то вроде этого:

Private Sub UserForm_Initialize()
    Me.Top = Range("h9").Top
    Me.Left = Range("h9").Left
    ' ...

4. Используем событие Worksheet_SelectionChange

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("даты")) Is Nothing Then
        Target = Get_Date(Target, Now)    ' по умолчанию - дата из ячейки
    End If
End Sub

5. реализовано - отключил одну строку кода

Проверяйте: http://excelvba.ru/XL_Files/Sample__...__10-28-45.zip

Уважаемый EducatedFool ! Спасибо за ответ, но сейчас ответить что либо не могу, т.к. необходимо "переварить" полученное, вечером посмотрю и завтра с Вашего позволения отвечу.

[VictorM]

Предложу еще такой вариант.
Вызов календаря сделан все же по двойному щелчку в любой ячейке, ИМХО так меньше ошибок при вводе.
На календаре отсутствуют все "лишние" кнопки, никаких лишних "телодвижений")))
Выбор даты осуществляется просто щелчком на нужной дате.
Позиционирование формы взято у EducatedFool
p.s.
Добавлю
Если даты у вас будут только в столбце "F", код в модуле листа можно написать так

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 6 Then Календарь.Show
    Cancel = True
End Sub

[Trimbl]

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

Уважаемый EducatedFool ! Спасибо за ответ, но сейчас ответить что либо не могу, т.к. необходимо "переварить" полученное, вечером посмотрю и завтра с Вашего позволения отвечу.

EducatedFool, здравствуйте ! Посмотрел Ваше решение, что можно сказать,-EducatedFool это EducatedFool . Как всегда четко,лаконично, феноменально. Как говорится "Що хтiли, то маете(укр.)" т.е что хотели,то и имеете. Теперь я являюсь обладателем лучшего календарика на форуме. Спасибо.

[IgorGO]

и меня сподвигло написать приспособление для ввода дат на лист. на форме 6 обьектов: 4 кнопки и два текстбокса (один действующий, а второй учебный)
кнопки меняют месяцы и годы. двойной щелчек по дате на форме вносит дату в активную ячейку. есть одно неудобство - по датам надо точно в "десятку" попадать (т.е нужно 3-е число попадайте между 0и3, нужно 27 - между 2и7). и еще один нюанс: переход с 30 марта на февраль перенесет вас на 30 февраля, что равно 2 марта))) - такая неожиданность...
и... извините за скудность кода. функций минимум, но основную-то выполняет и форма небольшая по габаритам (не сильно заслоняет лист).

[Trimbl]

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

Предложу еще такой вариант.
Вызов календаря сделан все же по двойному щелчку в любой ячейке, ИМХО так меньше ошибок при вводе.
На календаре отсутствуют все "лишние" кнопки, никаких лишних "телодвижений")))
Выбор даты осуществляется просто щелчком на нужной дате.
Позиционирование формы взято у EducatedFool
p.s.
Добавлю
Если даты у вас будут только в столбце "F", код в модуле листа можно написать так

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 6 Then Календарь.Show
    Cancel = True
End Sub

VictorM - Здравия желаю! Огромное спасибо за внимание. Ваш Календарь действительно проще, но в нем есть своя изюминка и привлекательность.
Форм отчетности у меня - много, найдем применение и Вашему варианту календаря.

[Trimbl]

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

и меня сподвигло написать приспособление для ввода дат на лист. на форме 6 обьектов: 4 кнопки и два текстбокса (один действующий, а второй учебный)
кнопки меняют месяцы и годы. двойной щелчек по дате на форме вносит дату в активную ячейку. есть одно неудобство - по датам надо точно в "десятку" попадать (т.е нужно 3-е число попадайте между 0и3, нужно 27 - между 2и7). и еще один нюанс: переход с 30 марта на февраль перенесет вас на 30 февраля, что равно 2 марта))) - такая неожиданность...
и... извините за скудность кода. функций минимум, но основную-то выполняет и форма небольшая по габаритам (не сильно заслоняет лист).

Уважаемый IgorGO! Думаю не ошибусь, если скажу, что Ваши ответы и решения на поставленные вопросы с интересом отслеживают все участники форума. Ваше решение календарика - орригинально, но в моем случае (решил несколько автоматизировать, упростить формы отчетности больше для коллег по работе, добрая половина которых пока ходят на Excel с вилами) любые неожиданности не желательны. Выбор уже сделан.
Наверняка кто-то из форумчан извлекет полезное с Вашего решения.
Благодарю за внимание.