Некоректно отображается дата в текстбоксе.
parovoznik
Дата: Среда, 04.01.2017, 15:23 |
Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 442
Репутация:
26
±
Замечаний:
0% ±
Excel 2013
Доброго времени суток. На форме имеется комбобокс для выбора данных и вывода даты в текстбокс. Как подкорректировать код ,что бы правильно отображалась дата.
Доброго времени суток. На форме имеется комбобокс для выбора данных и вывода даты в текстбокс. Как подкорректировать код ,что бы правильно отображалась дата. parovoznik
Ответить
Сообщение Доброго времени суток. На форме имеется комбобокс для выбора данных и вывода даты в текстбокс. Как подкорректировать код ,что бы правильно отображалась дата. Автор - parovoznik Дата добавления - 04.01.2017 в 15:23
Roman777
Дата: Среда, 04.01.2017, 16:12 |
Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация:
127
±
Замечаний:
0% ±
Excel 2007, Excel 2013
parovoznik , Попробуйте считывать Техт: [vba]Код
Me.TextBox1 = Sheets("db").Cells(Me.ComboBox1.ListIndex + 2, 2).Text
[/vba]
parovoznik , Попробуйте считывать Техт: [vba]Код
Me.TextBox1 = Sheets("db").Cells(Me.ComboBox1.ListIndex + 2, 2).Text
[/vba]Roman777
Много чего не знаю!!!!
Ответить
Сообщение parovoznik , Попробуйте считывать Техт: [vba]Код
Me.TextBox1 = Sheets("db").Cells(Me.ComboBox1.ListIndex + 2, 2).Text
[/vba]Автор - Roman777 Дата добавления - 04.01.2017 в 16:12
SLAVICK
Дата: Среда, 04.01.2017, 16:38 |
Сообщение № 3
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация:
766
±
Замечаний:
0% ±
2019
Еще вариант: [vba]Код
Me.TextBox1 = Format(Sheets("db").Cells(Me.ComboBox1.ListIndex + 2, 2), "DD.MM.YYYY")
[/vba]
Еще вариант: [vba]Код
Me.TextBox1 = Format(Sheets("db").Cells(Me.ComboBox1.ListIndex + 2, 2), "DD.MM.YYYY")
[/vba] SLAVICK
Иногда все проще чем кажется с первого взгляда.
Ответить
Сообщение Еще вариант: [vba]Код
Me.TextBox1 = Format(Sheets("db").Cells(Me.ComboBox1.ListIndex + 2, 2), "DD.MM.YYYY")
[/vba] Автор - SLAVICK Дата добавления - 04.01.2017 в 16:38
parovoznik
Дата: Среда, 04.01.2017, 16:58 |
Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 442
Репутация:
26
±
Замечаний:
0% ±
Excel 2013
SLAVICK, Roman777, оба варианта работают. Спасибо.
SLAVICK, Roman777, оба варианта работают. Спасибо. parovoznik
Ответить
Сообщение SLAVICK, Roman777, оба варианта работают. Спасибо. Автор - parovoznik Дата добавления - 04.01.2017 в 16:58
RAN
Дата: Среда, 04.01.2017, 19:27 |
Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Оба варианта работают, но до случая... В любой момент могут перестать работать (может неделя, может 2, может???).
Оба варианта работают, но до случая... В любой момент могут перестать работать (может неделя, может 2, может???). RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Оба варианта работают, но до случая... В любой момент могут перестать работать (может неделя, может 2, может???). Автор - RAN Дата добавления - 04.01.2017 в 19:27
parovoznik
Дата: Четверг, 05.01.2017, 09:06 |
Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 442
Репутация:
26
±
Замечаний:
0% ±
Excel 2013
RAN, почему могут перестать работать???
RAN, почему могут перестать работать??? parovoznik
Сообщение отредактировал parovoznik - Четверг, 05.01.2017, 09:35
Ответить
Сообщение RAN, почему могут перестать работать??? Автор - parovoznik Дата добавления - 05.01.2017 в 09:06
bmv98rus
Дата: Четверг, 05.01.2017, 19:55 |
Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4111
Репутация:
768
±
Замечаний:
0% ±
Excel 2013/2016
parovoznik, Вариант .text сломается если будет случайно изменен формат вывода на листе db. При таком варианте выигрывает вариант с принудительным форматом от SLAVICK , , Однако для наглядности лучше как раз от Roman777 , а если просто так [vba]Код
Private Sub ComboBox1_Change() Me.TextBox1 = Format(Me.ComboBox1.Value, "DD.MM.YYYY") End Sub Private Sub UserForm_Initialize() With Sheets("db") ComboBox1.ColumnCount = 2 ComboBox1.BoundColumn = 2 ComboBox1.ColumnWidths = ";0 pt" ComboBox1.List = .Range("A2", .Cells(Rows.Count, "B").End(xlUp)).Value End With End Sub А может и текст бокс не нужен тогда?
[/vba]
parovoznik, Вариант .text сломается если будет случайно изменен формат вывода на листе db. При таком варианте выигрывает вариант с принудительным форматом от SLAVICK , , Однако для наглядности лучше как раз от Roman777 , а если просто так [vba]Код
Private Sub ComboBox1_Change() Me.TextBox1 = Format(Me.ComboBox1.Value, "DD.MM.YYYY") End Sub Private Sub UserForm_Initialize() With Sheets("db") ComboBox1.ColumnCount = 2 ComboBox1.BoundColumn = 2 ComboBox1.ColumnWidths = ";0 pt" ComboBox1.List = .Range("A2", .Cells(Rows.Count, "B").End(xlUp)).Value End With End Sub А может и текст бокс не нужен тогда?
[/vba] bmv98rus
Замечательный Временно просто медведь , процентов на 20 .
Ответить
Сообщение parovoznik, Вариант .text сломается если будет случайно изменен формат вывода на листе db. При таком варианте выигрывает вариант с принудительным форматом от SLAVICK , , Однако для наглядности лучше как раз от Roman777 , а если просто так [vba]Код
Private Sub ComboBox1_Change() Me.TextBox1 = Format(Me.ComboBox1.Value, "DD.MM.YYYY") End Sub Private Sub UserForm_Initialize() With Sheets("db") ComboBox1.ColumnCount = 2 ComboBox1.BoundColumn = 2 ComboBox1.ColumnWidths = ";0 pt" ComboBox1.List = .Range("A2", .Cells(Rows.Count, "B").End(xlUp)).Value End With End Sub А может и текст бокс не нужен тогда?
[/vba] Автор - bmv98rus Дата добавления - 05.01.2017 в 19:55
parovoznik
Дата: Четверг, 05.01.2017, 23:33 |
Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 442
Репутация:
26
±
Замечаний:
0% ±
Excel 2013
bmv98rus, спасибо возьму на вооружение. Текстбокс нужен необходимо отображать инфу.
bmv98rus, спасибо возьму на вооружение. Текстбокс нужен необходимо отображать инфу. parovoznik
Ответить
Сообщение bmv98rus, спасибо возьму на вооружение. Текстбокс нужен необходимо отображать инфу. Автор - parovoznik Дата добавления - 05.01.2017 в 23:33
bmv98rus
Дата: Четверг, 05.01.2017, 23:47 |
Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4111
Репутация:
768
±
Замечаний:
0% ±
Excel 2013/2016
parovoznik, Уберите [vba]Код
ComboBox1.ColumnWidths = ";0 pt"
[/vba] будет и то и другое значение видно , Только форму расширить придется, чтоб не скролить :-)
parovoznik, Уберите [vba]Код
ComboBox1.ColumnWidths = ";0 pt"
[/vba] будет и то и другое значение видно , Только форму расширить придется, чтоб не скролить :-) bmv98rus
Замечательный Временно просто медведь , процентов на 20 .
Ответить
Сообщение parovoznik, Уберите [vba]Код
ComboBox1.ColumnWidths = ";0 pt"
[/vba] будет и то и другое значение видно , Только форму расширить придется, чтоб не скролить :-) Автор - bmv98rus Дата добавления - 05.01.2017 в 23:47