Vba excel как выбрать дату - Word и Excel - помощь в работе с программами

Элемент управления пользовательской формы DTPicker (поле с календарем), предназначенный для выбора и ввода даты. Примеры кода VBA Excel с DTPicker.

UserForm.DTPicker – это элемент управления пользовательской формы, представляющий из себя отформатированное текстовое поле с раскрывающимся календарем, клик по выбранной дате в котором записывает ее в текстовое поле.

При вызове календаря пользовательская форма теряет фокус – это видно на изображении. При редактировании даты непосредственно в текстовом поле DTPicker, формат поля позволяет изменять элементы даты (день, месяц, год) по отдельности.

Чтобы перемещаться между элементами даты, необходимо, или выбирать элемент мышью, или нажимать любой знак разделителя («.», «,» или «/») на клавиатуре. А клик по знаку «+» или «-», соответственно, увеличит или уменьшит значение элемента даты на единицу.

Если в элемент «год» ввести однозначное число или двузначное число, не превышающее двузначный остаток текущего года, через пару секунд автоматически добавятся первые две цифры текущего столетия (20). Если вводимое двузначное число превысит двузначный остаток текущего года, автоматически добавятся первые две цифры прошлого столетия (19).

DTPicker – это сокращение от слова DateTimePicker, не являющегося в VBA Excel ключевым словом, как и DatePicker.

Добавление DTPicker на Toolbox

Изначально на панели инструментов Toolbox нет ссылки на элемент управления DTPicker, поэтому ее нужно добавить самостоятельно.

Чтобы добавить DTPicker на панель инструментов Toolbox, кликните по ней правой кнопкой мыши и выберите из контекстного меню ссылку «Additional Controls…»:

В открывшемся окне «Additional Controls» из списка дополнительных элементов управления выберите строку «Microsoft Date and Time Picker Control»:

Нажмите кнопку «OK» и значок элемента управления DTPicker появится на панели инструментов Toolbox:

Свойства поля с календарем

Свойство	Описание
CalendarBackColor	Заливка (фон) календаря без заголовка.
CalendarForeColor	Цвет шрифта чисел выбранного в календаре месяца.
CalendarTitleBackColor	Заливка заголовка календаря и фон выбранной даты.
CalendarTitleForeColor	Цвет шрифта заголовка (месяц и год) и выбранного в календаре числа.
CalendarTrailingForeColor	Цвет шрифта чисел предыдущего и следующего месяца.
CheckBox	В значении True отображает встроенный в DTPicker элемент управления CheckBox. По умолчанию – False.
ControlTipText	Текст всплывающей подсказки при наведении курсора на DTPicker.
CustomFormat	Пользовательский формат даты и времени. Работает, когда свойству Format присвоено значение dtpCustom (3).
Day (Month, Year)	Задает или возвращает день (месяц, год).
DayOfWeek	Задает или возвращает день недели от 1 до 7, отсчет начинается с воскресенья.
Enabled	Возможность раскрытия календаря, ввода и редактирования даты/времени. True – все перечисленные опции включены, False – выключены (элемент управления становится серым).
Font	Шрифт отображаемого значения в отформатированном поле элемента управления.
Format	Формат отображаемого значения в поле элемента управления DTPicker, может принимать следующие значения: dtpCustom (3), dtpLongDate (0), dtpShortDate (1) (по умолчанию) и dtpTime (2).
Height	Высота элемента управления DTPicker с нераскрытым календарем.
Hour (Minute, Second)	Задает или возвращает часы (минуты, секунды).
Left	Расстояние от левого края внутренней границы пользовательской формы до левого края элемента управления.
MaxDate	Максимальное значение даты, которое может быть выбрано в элементе управления (по умолчанию – 31.12.9999).
MinDate	Минимальное значение даты, которое может быть выбрано в элементе управления (по умолчанию – 01.01.1601).
TabIndex	Определяет позицию элемента управления в очереди на получение фокуса при табуляции, вызываемой нажатием клавиш «Tab», «Enter». Отсчет начинается с нуля.
Top	Расстояние от верхнего края внутренней границы пользовательской формы до верхнего края элемента управления.
UpDown	Отображает счетчик вместо раскрывающегося календаря. True – отображается SpinButton, False – отображается календарь (по умолчанию).
Value	Задает или возвращает значение (дата и/или время) элемента управления.
Visible	Видимость поля с календарем. True – DTPicker отображается на пользовательской форме, False – DTPicker скрыт.
Width	Ширина элемента управления DTPicker с нераскрытым календарем.

DTPicker – это сокращение от слова DateTimePicker, не являющегося в VBA Excel ключевым словом, как и DatePicker.

Примеры кода VBA Excel с DTPicker

Программное создание DTPicker

Динамическое создание элемента управления DTPicker с помощью кода VBA Excel на пользовательской форме с любым именем:

Private Sub UserForm_Initialize()

Dim myDTPicker As DTPicker

With Me

.Height = 100

.Width = 200

‘Следующая строка создает новый экземпляр DTPicker

Set myDTPicker = .Controls.Add(«MSComCtl2.DTPicker», «dtp», True)

End With

With myDTPicker

.Top = 24

.Left = 54

.Height = 18

.Width = 72

.Font.Size = 10

End With

Set myDTPicker = Nothing

End Sub

Данный код должен быть размещен в модуле формы. Результат работы кода:

Применение свойства CustomFormat

Чтобы задать элементу управления DTPicker пользовательский формат отображения даты и времени, сначала необходимо присвоить свойству Format значение dtpCustom. Если этого не сделать, то, что бы мы не присвоили свойству CustomFormat, будет применен формат по умолчанию (dtpShortDate) или тот, который присвоен свойству Format.

В данном примере создается пользовательский формат для полей с календарем DTPicker1 и DTPicker2, размещенных на пользовательской форме, и отображаются в них текущие дата и время.

Private Sub UserForm_Initialize()

With DTPicker1

.Format = dtpCustom

.CustomFormat = «Год: yyyy; месяц: M; день: d»

.Value = Now

End With

With DTPicker2

.Format = dtpCustom

.CustomFormat = «Часы: H; минуты: m; секунды: s»

.Value = Now

End With

End Sub

Результат работы кода:

Таблица специальных символов и строк, задающих пользовательский формат даты и времени (регистр символов имеет значение):

Символы и строки	Описание
d	День месяца из одной или двух цифр.
dd	День месяца из двух цифр. К числу из одной цифры впереди добавляется ноль.
ddd	Сокращенное название дня недели из двух символов (Пн, Вт и т.д.).
dddd	Полное название дня недели.
h	Час из одной или двух цифр в 12-часовом формате.
hh	Час из двух цифр в 12-часовом формате. К часу из одной цифры впереди добавляется ноль.
H	Час из одной или двух цифр в 24-часовом формате.
HH	Час из двух цифр в 24-часовом формате. К часу из одной цифры впереди добавляется ноль.
m	Минута из одной или двух цифр.
mm	Минута из двух цифр. К минуте из одной цифры впереди добавляется ноль.
M	Месяц из одной или двух цифр.
MM	Месяц из двух цифр. К месяцу из одной цифры впереди добавляется ноль.
MMM	Сокращенное название месяца из трех символов.
MMMM	Полное название месяца.
s	Секунда из одной или двух цифр.
ss	Секунда из двух цифр. К секунде из одной цифры впереди добавляется ноль.
y	Год из одной или двух последних цифр.
yy	Год из двух последних цифр.
yyyy	Год из четырех цифр.

Создание границ интервала дат

Простенький пример, как задать интервал дат с начала месяца до текущего дня с помощью двух элементов управления DTPicker:

Private Sub UserForm_Initialize()

DTPicker1.Value = Now

DTPicker1.Day = 1

DTPicker2.Value = Now

End Sub

Результат работы кода, запущенного 23.11.2020:

DTPicker – это сокращение от слова DateTimePicker, не являющегося в VBA Excel ключевым словом, как и DatePicker.

Источник

Содержание

Выбор даты из всплывающего календаря
Описание работы
Работа с формой календаря
How To Add A Date Picker Calendar in Excel VBA
Stop Wasting Your Time
VBA Excel. Элемент управления DTPicker
Элемент управления DTPicker
Добавление DTPicker на Toolbox
Свойства поля с календарем
Примеры кода VBA Excel с DTPicker
Программное создание DTPicker
Применение свойства CustomFormat
Создание границ интервала дат
VBA Excel. Функции для работы с датой и временем
Функция Date
Функция DateAdd
Функция DateDiff

Выбор даты из всплывающего календаря

Описание работы

Excel позволяет добавить выпадающий календарь в конкретную ячейку, но часто этого не достаточно и приходится вводить большое количество дат в разные ячейки. Не всегда удобно делать это с клавиатуры, так как при вводе хочется параллельно видеть день недели и не ошибиться в выборе даты.

Чтобы вставить дату из всплывающего календаря в любой ячейке Excel можно использовать надстройку VBA-Excel. Для этого:

Выделить ячейку в которую необходимо вставить дату.
Перейти на вкладку VBA-Excel.
Выбрать команду Вставить дату.
В диалоговом окне Календаря выбрать нужную дату.

Работа с формой календаря

Форма календаря имеет достаточно широкий функционал.

Можно быстро перейти к текущему числу.
Быстро переключить месяц путем выбора его из списка.
Изменять год с помощью переключателей.
При выборе даты отображаются дни недели и подсвечиваются выходные дни.
Вы можете вызвать окно ввода даты и продолжать работать с данными. Закрывать окно нет необходимости.
Закрыть календарь можно в любой момент путем нажатия на крестик в правом верхнем углу.

Источник

How To Add A Date Picker Calendar in Excel VBA

Oftentimes, users want to click a button and select a date. This is no different for Excel developers. Check out this ActiveX control by Microsoft that allows users to do just that. It’s a little old school looking, but actually has quite a nice feel to it.

Start by creating a userform and enabling the control by Right-clicking on the Tools menu and click Add additional tools

Now, let’s add this to the userform!

In the downloadable workbook, you’ll see the control was renamed to ‘fCal’. When you double-click the control you’ll see the following code which is the DateClick event of that control:

This userform cleverly has two labels to store relevant info on the Userform that summoned it. 1.) The name of the userform that called it and 2.) The name of the control or textbox that needs the date sent to it.

Then, this code above loops through all userforms in your project until it finds one that matches the label for the Userform (lblUF) and the label for the textbox needed (lblCtrlName).

Also, you may need to enable Microsoft Windows Common Controls -2 6.0 (SP6) by using Tools->References and clicking:

Stop Wasting Your Time

Experience Ultimate Excel Automation & Learn to “Make Excel Do Your Work For You”

Источник

VBA Excel. Элемент управления DTPicker

Элемент управления DTPicker

DTPicker – это сокращение от слова DateTimePicker, не являющегося в VBA Excel ключевым словом, как и DatePicker.

Нажмите кнопку «OK» и значок элемента управления DTPicker появится на панели инструментов Toolbox:

Свойства поля с календарем

Свойство	Описание
CalendarBackColor	Заливка (фон) календаря без заголовка.
CalendarForeColor	Цвет шрифта чисел выбранного в календаре месяца.
CalendarTitleBackColor	Заливка заголовка календаря и фон выбранной даты.
CalendarTitleForeColor	Цвет шрифта заголовка (месяц и год) и выбранного в календаре числа.
CalendarTrailingForeColor	Цвет шрифта чисел предыдущего и следующего месяца.
CheckBox	В значении True отображает встроенный в DTPicker элемент управления CheckBox. По умолчанию – False.
ControlTipText	Текст всплывающей подсказки при наведении курсора на DTPicker.
CustomFormat	Пользовательский формат даты и времени. Работает, когда свойству Format присвоено значение dtpCustom (3).
Day (Month, Year)	Задает или возвращает день (месяц, год).
DayOfWeek	Задает или возвращает день недели от 1 до 7, отсчет начинается с воскресенья.
Enabled	Возможность раскрытия календаря, ввода и редактирования даты/времени. True – все перечисленные опции включены, False – выключены (элемент управления становится серым).
Font	Шрифт отображаемого значения в отформатированном поле элемента управления.
Format	Формат отображаемого значения в поле элемента управления DTPicker, может принимать следующие значения: dtpCustom (3), dtpLongDate (0), dtpShortDate (1) (по умолчанию) и dtpTime (2).
Height	Высота элемента управления DTPicker с нераскрытым календарем.
Hour (Minute, Second)	Задает или возвращает часы (минуты, секунды).
Left	Расстояние от левого края внутренней границы пользовательской формы до левого края элемента управления.
MaxDate	Максимальное значение даты, которое может быть выбрано в элементе управления (по умолчанию – 31.12.9999).
MinDate	Минимальное значение даты, которое может быть выбрано в элементе управления (по умолчанию – 01.01.1601).
TabIndex	Определяет позицию элемента управления в очереди на получение фокуса при табуляции, вызываемой нажатием клавиш «Tab», «Enter». Отсчет начинается с нуля.
Top	Расстояние от верхнего края внутренней границы пользовательской формы до верхнего края элемента управления.
UpDown	Отображает счетчик вместо раскрывающегося календаря. True – отображается SpinButton, False – отображается календарь (по умолчанию).
Value	Задает или возвращает значение (дата и/или время) элемента управления.
Visible	Видимость поля с календарем. True – DTPicker отображается на пользовательской форме, False – DTPicker скрыт.
Width	Ширина элемента управления DTPicker с нераскрытым календарем.

DTPicker – это сокращение от слова DateTimePicker, не являющегося в VBA Excel ключевым словом, как и DatePicker.

Примеры кода VBA Excel с DTPicker

Программное создание DTPicker

Данный код должен быть размещен в модуле формы. Результат работы кода:

Применение свойства CustomFormat

Символы и строки	Описание
d	День месяца из одной или двух цифр.
dd	День месяца из двух цифр. К числу из одной цифры впереди добавляется ноль.
ddd	Сокращенное название дня недели из двух символов (Пн, Вт и т.д.).
dddd	Полное название дня недели.
h	Час из одной или двух цифр в 12-часовом формате.
hh	Час из двух цифр в 12-часовом формате. К часу из одной цифры впереди добавляется ноль.
H	Час из одной или двух цифр в 24-часовом формате.
HH	Час из двух цифр в 24-часовом формате. К часу из одной цифры впереди добавляется ноль.
m	Минута из одной или двух цифр.
mm	Минута из двух цифр. К минуте из одной цифры впереди добавляется ноль.
M	Месяц из одной или двух цифр.
MM	Месяц из двух цифр. К месяцу из одной цифры впереди добавляется ноль.
MMM	Сокращенное название месяца из трех символов.
MMMM	Полное название месяца.
s	Секунда из одной или двух цифр.
ss	Секунда из двух цифр. К секунде из одной цифры впереди добавляется ноль.
y	Год из одной или двух последних цифр.
yy	Год из двух последних цифр.
yyyy	Год из четырех цифр.

Создание границ интервала дат

Результат работы кода, запущенного 23.11.2020:

DTPicker – это сокращение от слова DateTimePicker, не являющегося в VBA Excel ключевым словом, как и DatePicker.

Источник

VBA Excel. Функции для работы с датой и временем

Функции для работы с датой и временем в VBA Excel. Синтаксис, параметры, спецсимволы, примеры. Функции, возвращающие текущие дату и время по системному таймеру.

Функция Date

Синтаксис

Пример

Функция DateAdd

Синтаксис

Параметры

Параметр	Описание
interval	Обязательный параметр. Строковое выражение из спецсимволов, представляющее интервал времени, который требуется добавить.
number	Обязательный параметр. Числовое выражение, задающее количество интервалов, которые необходимо добавить. Может быть как положительным (возвращается будущая дата), так и отрицательным (возвращается предыдущая дата).
date	Обязательный параметр. Значение типа Variant/Date или литерал, представляющий дату, к которой должен быть добавлен интервал.

Таблицу аргументов (значений) параметра interval смотрите в параграфе «Приложение 1».

Примечание к таблице аргументов: три символа – y, d, w – указывают функции DateAdd на один день, который необходимо прибавить к исходной дате number раз.

Пример

Функция DateDiff

Синтаксис

Параметры

Параметр	Описание
interval	Обязательный параметр. Строковое выражение из спецсимволов, представляющее интервал времени, количество которых (интервалов) требуется вычислить между двумя датами.
date1, date2	Обязательные параметры. Значения типа Variant/Date , представляющие две даты, между которыми вычисляется количество указанных интервалов.
firstdayofweek	Необязательный параметр. Константа, задающая первый день недели. По умолчанию – воскресенье.
firstweekofyear	Необязательный параметр. Константа, задающая первую неделю года. По умолчанию – неделя, в которую входит 1 января.

Таблицу аргументов (значений) параметра interval смотрите в параграфе «Приложение 1».

Примечание к таблице аргументов: в отличие от функции DateAdd , в функции DateDiff спецсимвол «w» , как и «ww» , обозначает неделю. Но расчет осуществляется по разному. Подробнее об этом на сайте разработчиков.

Параметры firstdayofweek и firstweekofyear определяют правила расчета количества недель между датами.

Таблицы констант из коллекций firstdayofweek и firstweekofyear смотрите в параграфах «Приложение 2» и «Приложение 3».

Источник

A calendar form can be used as an alternative to the date picker.
On a userform example, I used this calendar form to add dates to text boxes. When double-clicked on the textbox, the calendar form is displayed :

Private Sub txtDOTDate_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Call GetCalendar
End Sub

Sub GetCalendar()
    dateVariable = CalendarForm.GetDate(DateFontSize:=11, _
        BackgroundColor:=RGB(242, 248, 238), _
        HeaderColor:=RGB(84, 130, 53), _
        HeaderFontColor:=RGB(255, 255, 255), _
        SubHeaderColor:=RGB(226, 239, 218), _
        SubHeaderFontColor:=RGB(55, 86, 35), _
        DateColor:=RGB(242, 248, 238), _
        DateFontColor:=RGB(55, 86, 35), _
        TrailingMonthFontColor:=RGB(106, 163, 67), _
        DateHoverColor:=RGB(198, 224, 180), _
        DateSelectedColor:=RGB(169, 208, 142), _
        TodayFontColor:=RGB(255, 0, 0))
If dateVariable <> 0 Then frmflightstats.txtDOTDate = dateVariable
End Sub

Source of template

Источник

Ольга Вайн

Пользователь

Сообщений: 18
Регистрация: 07.10.2014

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

Что необходимо исправить?

SanShiney Пользователь Сообщений: 101 Регистрация: 11.07.2013	Может через «IF» написать, что если IF ActiveCell.Cell = «B2» THEN «Показать календарь», далее ваш код, по внесению данных в ячейку, и в конце скрыть календарь. ELSE GOTO END как то так.

SanShiney Пользователь Сообщений: 101 Регистрация: 11.07.2013	Не хотел умничать, просто я понимаю, что это возмонжо, но корректно окончательный код написать не способен, т.к. не знаю, как отображается и скрывается форма календаря. С/У Санж

Sanja

Пользователь

Сообщений: 14838
Регистрация: 10.01.2013

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 замените адресом нужной ячейки

Согласие есть продукт при полном непротивлении сторон.

The_Prist

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

12.10.2014 12:25:10

Код
Private Sub Calendar1_Click() ActiveCell = Calendar1.Value Unload Me'закрываем форму после выбора даты End Sub

P.S. Оформляйте коды тегами(кнопочка <…> над полем сообщения)

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Павел Запивахин

Пользователь

Сообщений: 126
Регистрация: 16.08.2010

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

The_Prist Пользователь Сообщений: 14182 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	Павел Запивахин, оформляйте тегами коды внутри сообщений. Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	См. файл с календарём на стандартных элементах (автор Слэн). Вызов календаря при активации ячейки В2, в неё же будет вставлена дата. Для вставки даты в любую активную ячейку используйте кнопку.

Павел Запивахин

Пользователь

Сообщений: 126
Регистрация: 16.08.2010

12.10.2014 12:29:57

Цитата
The_Prist пишет: оформляйте тегами коды внутри сообщений.

Понял, исправлюсь.

Источник

189 / 8 / 3

Регистрация: 20.01.2015

Сообщений: 172

Реализовать в форме удобный выбор даты и времени

26.05.2015, 21:43. Показов 20035. Ответов 13

Доброго всем времени! Хочу реализовать в форме удобный выбор даты и времени. Есть несколько идей.
1. дата:
— первый вариант сделать выпадающий список (comboBox) при нажатии на триугольник справа дожен выподать календарь
— или сделать выпадающий список в формате дд.мм.гг из 8 строк наначиная с текущей даты и далее плюс один без выходных дней.
2. время:
— выпадающий список должен формироваться циклон начиная от 8:00 до 17:00 c промежутком 30 минут указанном в текстБоксе

А если у кого есть нарабтки поинтереснее с удовольствием рассмотрю ваши варианты.
Спасибо.

2079 / 1232 / 464

Регистрация: 20.12.2014

Сообщений: 3,237

26.05.2015, 23:40

Заходите в меню Tools/Additional Controls. Отмечаете Microsoft Date and Time Picker Control 6.0 (SP4). Контрол появлется в ToolBox. Оттуда перетаскиваете два контрола на форму. В свойствах одного из них ставите формат 2-dtpTime. Получаете то, что во вложенном изображении:

Миниатюры

aleks_des

189 / 8 / 3

Регистрация: 20.01.2015

Сообщений: 172

27.05.2015, 01:18

[ТС]

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

выпадающий список в формате дд.мм.гг из 8 строк наначиная с текущей даты и далее плюс один без выходных дней.

Visual Basic

    Dim dDts
    dDts = Date
    Do While dDts < Date + 8 And dDts <> vbSunday And dDts <> vbSaturday
        dDts = dDts + 1
        ComboBox1.AddItem Format(dDts, "dd.mm.yy")
    Loop

частично сам сделал но как отсеять выходные дни пока не знаю

Добавлено через 12 минут
chumich,

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

Microsoft Date and Time Picker Control 6.0 (SP4)

не нашел у себя такого элемента

2079 / 1232 / 464

Регистрация: 20.12.2014

Сообщений: 3,237

27.05.2015, 01:34

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

не нашел у себя такого элемента

1) Возможно, в референсах что-то не подключено.
2) Проверьте в system32 или SysWow64 наличие файла mscomct2.ocx.
3) Посмотрите здесь:
Элемент Microsoft Date and Time Picker Control 6.0

189 / 8 / 3

Регистрация: 20.01.2015

Сообщений: 172

27.05.2015, 01:46

[ТС]

chumich, такой вариант не подходит, так как будет использоваться на разных компах на 2003 офисе и пользователями далекими от программирования.

В принципе меня мой вариант устроит с доработкой выходных дней. Вот лучше подскажите как к указанной дате например 8:00 прибавить полчаса, у меня что то ничего не выходит

Alex77755

11482 / 3773 / 677

Регистрация: 13.02.2009

Сообщений: 11,145

27.05.2015, 05:21

прибавлять можно только целое к-во.
Прибавляй минуты

Visual Basic

1	Debug.Print Now, DateAdd("n", 30, Now)

chumich

2079 / 1232 / 464

Регистрация: 20.12.2014

Сообщений: 3,237

27.05.2015, 09:45

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

как к указанной дате например 8:00 прибавить полчаса

К дате или ко времени? Вот маленький макрос, складывающий время:

Visual Basic

Dim a, b As String
a = InputBox("time1") 'вводите, например, 8:00
b = InputBox("time2") 'вводите 0:30
n = Format(CDate(a) + CDate(b), ShortTime)
MsgBox (n) 'выведет 08:30:00
End Sub

Добавлено через 3 минуты
Вот еще ссылка. Посмотрите, может что пригодится:
http://scriptcoding.ru/2013/11… y-vremeni/

aleks_des

189 / 8 / 3

Регистрация: 20.01.2015

Сообщений: 172

28.05.2015, 12:37

[ТС]

Sasha_Smirnov, тоже не то, календарь как календарь стандартный, хотя я особо не вникал…
тем не менее моя идея пришлась мне по душе

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

выпадающий список в формате дд.мм.гг из 8 строк начиная с текущей даты и далее плюс один без выходных дней.

которую я доработал
исключив выходные дни

Visual Basic

Private Sub UserForm_Initialize()
 
    ComboBox1.AddItem Format(Date, "dd.mm.yy  ddd")
    Dim dDts
    dDts = Date
    Do While dDts < Date + 9
        dDts = dDts + 1
    Select Case WeekdayName(Weekday(dDts), , 1)
        Case "суббота"
            dDts = dDts + 2
        Case "воскресенье"
            dDts = dDts + 1
        Case Else
            dDts = dDts
        End Select
        ComboBox1.AddItem Format(dDts, "dd.mm.yy  ddd")
    Loop
 
End Sub

Осталось разобраться со временем, эта задачка будет посложнее. Буду изучать макрос chumich и приложенные материалы

Добавлено через 12 часов 33 минуты
Есть еще одна интересующая меня задача. В форме будет три одинаковых выпадающих списка с датами данный (выше указанный) код нужно будет продублировать в каждый из них. Как переписать этот код, как независимую функцию? Мой вариант был такой:

Функция:

Visual Basic

Public Function TyreDate()
 
    Dim dDts
    dDts = Date
    Do While dDts < Date + 9
        dDts = dDts + 1
    Select Case WeekdayName(Weekday(dDts), , 1)
        Case "суббота"
            dDts = dDts + 2
        Case "воскресенье"
            dDts = dDts + 1
        Case Else
            dDts = dDts
        End Select
        TyreDate = Format(dDts, "dd.mm.yy  ddd")
    Loop
 
End Function

Ее применение:

Visual Basic

Private Sub UserForm_Initialize()
 
    ComboBox1.AddItem Format(Date, "dd.mm.yy ddd")
    ComboBox1.AddItem TyreDate
    Loop
    
End Sub

Но в этом случае отображается только последняя полученная функцией дата. Что у меня не так?

Аксима

6076 / 1320 / 195

Регистрация: 12.12.2012

Сообщений: 1,023

28.05.2015, 14:01

Сообщение было отмечено aleks_des как решение

Решение

Здравствуйте, aleks_des,

Вы многократно присваиваете различные значения одной и той же переменной (TyreDate), но она не в состоянии запомнить все эти значения и запоминает только последнее.

Я бы предложил вместо функции использовать процедуру:

Visual Basic

Public Sub TyreDate(ByVal cbx As MSForms.ComboBox)
 
    cbx.AddItem Format(Date, "dd.mm.yy ddd")
    Dim dDts
    dDts = Date
    Do While dDts < Date + 9
        dDts = dDts + 1
    Select Case WeekdayName(Weekday(dDts), , 1)
        Case "суббота"
            dDts = dDts + 2
        Case "воскресенье"
            dDts = dDts + 1
        Case Else
            dDts = dDts
        End Select
        cbx.AddItem Format(dDts, "dd.mm.yy  ddd")
    Loop
 
End Sub
 
Private Sub UserForm_Initialize()
 
    TyreDate ComboBox1
    
End Sub

С уважением,

Аксима

aleks_des

189 / 8 / 3

Регистрация: 20.01.2015

Сообщений: 172

28.05.2015, 14:51

[ТС]

Перекрестно работает, Спасибо. Аксима, и не большая просьба расшифруйте вот эту строку для моего лучшего понимания процесса:

Сообщение от Аксима

Visual Basic

1	...(ByVal cbx As MSForms.ComboBox)

Добавлено через 40 минут
и почему

Visual Basic

1	TyreDate ComboBox1

а не

Visual Basic

1	TyreDate (ComboBox1)

Аксима

6076 / 1320 / 195

Регистрация: 12.12.2012

Сообщений: 1,023

28.05.2015, 16:46

Сообщение было отмечено aleks_des как решение

Решение

Строка

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

…(ByVal cbx As MSForms.ComboBox)

означает, что процедура получает в качестве аргумента ссылку на элемент управления типа ComboBox, с которым она производит необходимые операции, например добавляет новые строки в его список значений. Эта ссылка получает имя cbx, по которому с ней можно работать внутри процедуры.

Вызов процедуры осуществляется без скобок, чтобы подчеркнуть ее отличие от функции (функция возвращает значение, а процедура — нет):

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

TyreDate ComboBox1

Если же вы вызываете функцию, а не процедуру, то скобки нужны. В противном случае без них можно обойтись. Но если использовать скобки вам привычнее, то можно вызывать процедуру так:

Visual Basic

1	Call TyreDate(ComboBox1)

В этом случае для подчеркивания отличия процедуры от функции используется ключевое слово Call.

С уважением,

Аксима

aleks_des

189 / 8 / 3

Регистрация: 20.01.2015

Сообщений: 172

31.05.2015, 00:18

[ТС]

И на конец «Время» будет выглядеть так:

Visual Basic

' Процедура формирующая выпадающие списки c интервалами времени
Public Sub ComBoxsTime(ByVal cbTime As MSForms.ComboBox)    ' применение: ComBoxsDate cb_Начало_время
' Входные данные:
' - cbDate - Выпадающий список дат
 
    Dim dWrTime, dTime, dEndTime
    dTime = CDate("0:30")       ' шаг времени приращения
    dWrTime = CDate("8:00")     ' начальное время приращения (время начала работ)
    cbTime.AddItem Format(dWrTime, "hh:nn")      ' начальное время приращения (отображение первой строкой)
    Do While dWrTime < CDate("17:00")    ' формирует выпадающий список времени
        dWrTime = dWrTime + dTime
        cbTime.AddItem Format(dWrTime, "hh:nn")
    Loop
    
End Sub

Кстати chumich,

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

Visual Basic

Dim a, b As String
a = InputBox("time1") 'вводите, например, 8:00
b = InputBox("time2") 'вводите 0:30
n = Format(CDate(a) + CDate(b), ShortTime)
MsgBox (n) 'выведет 08:30:00
End Sub

не работает, ругается на ShortTime. А с CDate() идея правильная, Спасибо.

2079 / 1232 / 464

Регистрация: 20.12.2014

Сообщений: 3,237

31.05.2015, 00:37

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

не работает, ругается на ShortTime. А с CDate() идея правильная, Спасибо.

Пожалуйста Но, у меня работает

Источник