Открыть календарь, на фиксированную дату

[segail]

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

[EducatedFool]

Замените

Private Sub CommandButton1_Click()
    Get_Date Now
End Sub

на

Private Sub CommandButton1_Click()
    Get_Date DateSerial([r1], 1, 1)
End Sub

[alebed]

уважаемый (я) segail
возможно это связано со спецификой проекта над которым вы работаете, но использование такого большого кол-ва лейб для работы с временем или датой на мой взгляд не целесообразно.
Предлагаю Вам рассмотреть варианты с использованием объектов
MonthView
Date Time Picker
Calendar
Прим: добавлены в форму

[segail]

Если выполнить код фиксированной даты, то открытие календаря другими кнопками происходит с фиксированной датой, а не с текущей…
Как это исправить?

Public Условие As Integer

Private Sub CommandButton6_Click() 
        Условие = 1  'Приход
        Get_Date (Now)
End Sub

Private Sub CommandButton3_Click()
        If TextBox2.Value = "" Then
            Условие = 3  'Инвентаризация. Удаление данных
            Get_Date (Now)
         Else
            Условие = 2  'Инвентаризация. Ввод данных
            Get_Date (Now)
         End If
End Sub

Private Sub CommandButton11_Click()
    Условие = 4  'Остаток
    Get_Date DateSerial((Sheets("Отчет").[R1]), 1, 1)
End Sub

Хотя в тестовом примере, все работает нормально. Может с “Условием” не правильно работает?

[EducatedFool]

Если выполнить код фиксированной даты, то открытие календаря другими кнопками происходит с фиксированной датой, а не с текущей…

А зачем вообще открывать календарь?
Просто, чтобы показать, что он есть?

Вообще, функция Get_Date предназначена для получения выбранной пользователем даты, а не просто для запуска формы с календарём...

Использовать её можно так:

НоваяДата = Get_Date ( СтартоваяДата, ЗапаснаяСтартоваяДата_НаСлучайЕслиО сновнаяСтартоваяДатаНеУказана)

На вашем примере:

Private Sub CommandButton6_Click()
    Условие = 1  'Приход
    ДатаПрихода = Get_Date(Now)
End Sub

Private Sub CommandButton3_Click()
    Условие = IIf(TextBox2.Value = "", 3, 2)
    ДатаИнвентаризации = Get_Date(DateSerial((Sheets("Отчет").[R1]), 1, 1), Now)
End Sub

Private Sub CommandButton11_Click()
    Условие = 4  'Остаток
    ДатаОстатка = Get_Date(DateSerial((Sheets("Отчет").[R1]), 1, 1))
End Sub

[segail]

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

А зачем вообще открывать календарь?
Просто, чтобы показать, что он есть?

Для последующих выполнений кодов связанных с датами, непосредственно с календаря.

Private Sub Cmd_Select_Click()
    If Условие = 1 Then
        '...
    End If

    If Условие = 2 Then
        '...
    End If
    
    'Команда - закончить выбор даты и закрыть форму
    SelectedDate = CStr(DateValue(dt_1))
    Unload Me
End Sub

[segail]

То есть выполнить нужный код с календаря, отталкиваясь от той кнопки, которой он был открыт.
Во всех случаях календарь должен открываться с текущей датой, только в одном случае он открывается с датой Get_Date(DateSerial((Sheets("Отчет" ).[R1]), 1, 1)).
Как таковой последовательности открытия календаря кнопками нету.

[segail]

Здравствуйте.
Пошел другим путем.
Изменил код при Initialize формы Form_SelectDate

        If Условие = 4 Then
            dt_1 = DateSerial(Sheets("Отчет").[R1], 1, 1) 'Фиксированная дата
        Else
            dt_1 = Now 'Текущая дата
        End If
        dt_2 = dt_1

При открытии календаря с других форм

Private Sub CommandButton11_Click() 'ОСТАТОК открытие календаря с фиксированной датой.
    '...
    Условие = 4  'Остаток
    Get_Date (Now)
    '...
End Sub

отображается фиксированная дата, при открытие календаря

Private Sub CommandButton6_Click()'ПРИХОД открытие календаря с текущей датой.
    '... Код
        If a = 0 Then
            Условие = 1  'Приход
            Get_Date (Now)
            ElseIf a = b Then
            Условие = 1  'Приход
            Get_Date (Now)
        Else
            '... Код
        End If
End Sub

и

Private Sub CommandButton3_Click() 'ИНВЕНТАРИЗАЦИЯ открытие календаря с текущей датой.
    Dim i As Integer
    For i = 1 To 444
        If a = "Итого" Or b = "" Then
            MsgBox
            Exit Sub
        End If
        If i = a Then
            If i = 1 And c = "" Then
                MsgBox
                Exit Sub
            End If
        End If
            Условие = IIf(TextBox2.Value = "", 3, 2) 'Инвентаризация
            Get_Date (Now)
            '... Код
    Next
End Sub

Необходимо открыть форму календаря несколько раз, чтобы получить текущую дату. То есть если календарь был открыт изначально с фиксированной датой и наоборот.
Что где подправить(в модули, в коде календаря или в кодах открытия), чтобы не ловить нужную дату повторным открытием календаря?

[EducatedFool]

Необходимо открыть форму календаря несколько раз, чтобы получить текущую дату.

Ничего не понял...

Одно могу сказать - не надо было вообще лазить в коде календаря.
Тогда всё было бы на порядок проще...

Использовали бы вы только функцию Get_Date в таком виде: ДатаПрихода = Get_Date(Now)
А проверку условий реализовали бы внутри своего кода (например, через Select Case)

Что где подправить(в модули, в коде календаря или в кодах открытия), чтобы не ловить нужную дату повторным открытием календаря?

Чтобы получить нужную дату, используйте функцию Get_Date, которая возвращает выбранную дату.
Надо получить одну дату - вызывайте функцию один раз.
И никаких повторных открытий календаря не будет.

[segail]

Ничего не понял...

В смысле я открываю календарь с “Фиксированной датой”
Затем в календаре я выполняю нужный код кликом по кнопке Cmd_Select_Click или произвожу отмену кликом по кнопке Cmd_Cancel_Click форма календаря закрывается, на этом все. Затем я открываю календарь другой кнопкой, где открытие должно происходить с “Текущей датой”, но открытие календаря происходит с “Фиксированной датой”, приходится закрыть календарь, или самому установить текущую дату, только при повторном открытие календаря той же кнопкой (например кнопкой приход) дата становится текущей. И наоборот (все что описал ваше), если изначально календарь был открыт с “Текущей датой”.

Одно могу сказать - не надо было вообще лазить в коде календаря.
Тогда всё было бы на порядок проще...

Да нет в календаре я не чего не напортачил, я просто пытаюсь добиться того что мне надо, если не получается то код календаря восстанавливаю, что бы конкретно не уйти в дебри и запутаться…