Выпадающий список часов и минут

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Выпадающий список часов и минут (Формулы/Formulas)

Asretyq

Дата: Среда, 26.04.2017, 12:59 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Доброго времени суток!
Есть ли в ексели функция в выпадающим списком выбора часов и минут?? Календарь знаю что есть
И если имеется такая возможность, то как исполнить?

Ответить

Garik007

Дата: Среда, 26.04.2017, 16:41 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 102

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013, 2016

Как вариант с доп.столбцом.

К сообщению приложен файл: 8122846.xlsx (27.4 Kb)

Ответить

Asretyq

Дата: Четверг, 27.04.2017, 06:43 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Garik007, Этот вариант сложный слишком для выбора времени))) может есть такой вариант, где при нажатии на ячейку выходит форма с минутами и часами, допустим 00-24 в одной части, и 00-60 в другой части.

Сообщение отредактировал Asretyq - Четверг, 27.04.2017, 06:43

Ответить

китин

Дата: Четверг, 27.04.2017, 07:16 | Сообщение № 4

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

вот такие костыли из 3 ячеек

К сообщению приложен файл: 444111.xlsx (20.5 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Asretyq

Дата: Четверг, 27.04.2017, 09:11 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

После долгих ковыряний что-то получилось!

К сообщению приложен файл: 7412271.xlsm (22.8 Kb)

Ответить

vikttur

Дата: Суббота, 29.04.2017, 16:53 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Репутация: 526 ±

Замечаний: 0% ±

Вариант с полосой прокрутки. Можно добавить шкалу, переключатель шага перемещения... Фантазируйте.
Код формы
[vba]

Код

Private Sub UserForm_Activate()
    ScrBarTime.Value = Time * 1440
End Sub

Private Sub ScrBarTime_Change()
    lbTime.Caption = Format(ScrBarTime.Value / 1440, "hh:mm")
End Sub

Private Sub CommandButton1_Click()
    If lbTime.Caption = "" Then
        ActiveCell.Value = ""
    Else
        ActiveCell.Value = ScrBarTime.Value / 1440
    End If

    Unload Me
End Sub

[/vba]

К сообщению приложен файл: ChoiceTime.xlsm (19.8 Kb)

Сообщение отредактировал vikttur - Суббота, 29.04.2017, 16:54

Ответить

vikttur

Дата: Суббота, 29.04.2017, 17:08 | Сообщение № 7

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Репутация: 526 ±

Замечаний: 0% ±

Цитата

Garik007, Этот вариант сложный слишком для выбора времени

По-моему, выбор времени на форме сложнее (что в Вашем варианте, что в моем)

Еще вариант: на форме 24 кнопки для часов и 12 кнопок для минут (с шагом 5 мин). Время выбрать быстрее, чем в двух формах, показанных выше. И ввод при выборе минут (без доп. кнопки).