Некоректно отображается дата в текстбоксе.

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Некоректно отображается дата в текстбоксе. (Макросы/Sub)

parovoznik

Дата: Среда, 04.01.2017, 15:23 | Сообщение № 1

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

Ранг: Обитатель

Сообщений: 442

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

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

Excel 2013

Доброго времени суток.
На форме имеется комбобокс для выбора данных и вывода даты в текстбокс.
Как подкорректировать код ,что бы правильно отображалась дата.

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

Ответить

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]

Много чего не знаю!!!!

Ответить

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]

Иногда все проще чем кажется с первого взгляда.

Ответить

parovoznik

Дата: Среда, 04.01.2017, 16:58 | Сообщение № 4

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

Ранг: Обитатель

Сообщений: 442

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

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

Excel 2013

SLAVICK, Roman777, оба варианта работают. Спасибо. hands

Ответить

RAN

Дата: Среда, 04.01.2017, 19:27 | Сообщение № 5

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

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

Сообщений: 5660

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

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

2010

Оба варианта работают, но до случая...
В любой момент могут перестать работать (может неделя, может 2, может???).

К сообщению приложен файл: 8302850.jpg (31.7 Kb)

Быть или не быть, вот в чем загвоздка!

Ответить

parovoznik

Дата: Четверг, 05.01.2017, 09:06 | Сообщение № 6

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

Ранг: Обитатель

Сообщений: 442

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

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

Excel 2013

RAN, почему могут перестать работать???

Сообщение отредактировал parovoznik - Четверг, 05.01.2017, 09:35

Ответить

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]