Как изменить формат даты "1/12/15" во второй колонке ListBox на "12.01.2015".

damask_86ru Пользователь Сообщений: 46 Регистрация: 19.12.2014	#1 03.03.2015 12:07:20 Всем привет! У меня такой вопрос, почему во второй колонке ListBox дата отображается не как в таблице? Помогите решить проблему, если это возможно. Прикрепленные файлы Пример_01.xlsm (26.89 КБ)

Юрий М Модератор Сообщений: 61036 Регистрация: 14.09.2012 Контакты см. в профиле	#2 03.03.2015 12:19:07 Вариант: наполнять ЛистБокс циклом, указывая для столбца нужный формат.

Казанский

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

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

03.03.2015 12:22:57

Нерусская локаль? Так попробуйте

Код

Private Sub UserForm_Initialize()
Dim i&
With ListBox1
  .List = Range(Cells(6, 2), Cells(Cells(Rows.Count, 2).End(xlUp).Row, 6)).Value
  For i = 0 To .ListCount - 1
    .List(i, 1) = Format(.List(i, 1), "DD.MM.YYYY")
  Next
End With
End Sub

Влад

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

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

03.03.2015 12:40:59

Еще вариант лечения:

Код
With Application: Me.ListBox1.List = .Transpose(.Transpose(Range(Cells(6, 2), Cells(Cells(Rows.Count, 2).End(xlUp).Row, 6)).Value)): End With

damask_86ru Пользователь Сообщений: 46 Регистрация: 19.12.2014	#5 03.03.2015 14:56:54 Спасибо Ребята! Оба варианта отлично работают!