Как заставить вывести Excel время из таблицы

@darkkkrush · Регистрация: 27.01.2011

Author24 — интернет-сервис помощи студентам

Пишу курсовую по excel.

Проблема в том, что в Combobox нужно вывести время из списка значений, и при выборе значения он зачем-то его переводит в десятичную дробь.
Поигрался с Format, но добился лишь вывода текущего времени.

Вопрос:
Как заставить вывести excel время из таблицы?

@Казанский · 08.01.2012, 01:14

Не используйте RowSource, а сформируйте список комбобокса из текстовых значений при инициализации формы.
Допустим, список в диапазоне А1:А10. Можно использовать цикл:

Visual Basic

Private Sub UserForm_Initialize()
Dim x
For Each x In [A1:A10].Value
    ComboBox1.AddItem Format(x, "hh:mm")
Next
End Sub

или функции листа, без цикла:

Visual Basic

1
2
3

Private Sub UserForm_Initialize()
ComboBox1.List = [INDEX(TEXT(A1:A10,"hh:mm"),)]
End Sub

@darkkkrush · 08.01.2012, 19:46 **[ТС]**

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

Visual Basic

Private Sub UserForm_Initialize()
Dim x
For Each x In [A14:A19].Value
ComboBox2.AddItem Format(x, "hh:nn")
Next
End Sub

Заработало, но в комбобоксе пишет "00"01". Подозреваю, что значения он не берет.

toiai · 08.01.2012, 20:39

Строку:

Visual Basic

1	ComboBox2.AddItem Format(x, "hh:nn")

заменить на:

Visual Basic

1	ComboBox2.AddItem Format(x, "hh:mm)

Добавлено через 1 минуту
Точнее

Visual Basic

1	ComboBox2.AddItem Format(x, "hh:mm")

@darkkkrush · 08.01.2012, 20:56 **[ТС]**

Теперь комбобокс пуст, писало "00@01" из-за того, что в Combobox_Change() написал пару параметров.

@Казанский · 08.01.2012, 23:21

Странно. Попробуйте с секундами:

Visual Basic

1	ComboBox2.AddItem Format(x, "hh:mm:ss")

А вообще Excel у Вас время в формате 11:22:33 понимает? Может, с региональными установками что-то наворочено?

Ну или файл в студию.

@darkkkrush · 10.01.2012, 19:53 **[ТС]**

Файл вот, требуемое в Userform2.
Также, это мой первый проект на VBA, так что все очень и очень криво написано.

@darkkkrush · 10.01.2012, 21:38 **[ТС]**

Так как тороплюсь сдать, сделал все через слова по типу "Один час дня" вместо "13:00". К пересдаче переделаю.

@darkkkrush 0 / 0 / 1 Регистрация: 27.01.2011 Сообщений: 38
		1
	Как заставить вывести Excel время из таблицы 07.01.2012, 21:52. Показов 2264. Ответов 7 Метки нет (Все метки) Пишу курсовую по excel. Проблема в том, что в Combobox нужно вывести время из списка значений, и при выборе значения он зачем-то его переводит в десятичную дробь. Поигрался с Format, но добился лишь вывода текущего времени. Вопрос: Как заставить вывести excel время из таблицы? 0

@darkkkrush 0 / 0 / 1 Регистрация: 27.01.2011 Сообщений: 38
	08.01.2012, 20:56 [ТС]	5
	Теперь комбобокс пуст, писало "00@01" из-за того, что в Combobox_Change() написал пару параметров. 0

@darkkkrush 0 / 0 / 1 Регистрация: 27.01.2011 Сообщений: 38
	10.01.2012, 21:38 [ТС]	8
	Так как тороплюсь сдать, сделал все через слова по типу "Один час дня" вместо "13:00". К пересдаче переделаю. 0