Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как изменить формат даты "1/12/15" во второй колонке ListBox на "12.01.2015".
 
Всем привет!
У меня такой вопрос, почему во второй колонке ListBox дата отображается не как в таблице?
Помогите решить проблему, если это возможно.
 
Вариант: наполнять ЛистБокс циклом, указывая для столбца нужный формат.
 
Нерусская локаль? Так попробуйте
Код
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
 
Еще вариант лечения:
Код
With Application: Me.ListBox1.List = .Transpose(.Transpose(Range(Cells(6, 2), Cells(Cells(Rows.Count, 2).End(xlUp).Row, 6)).Value)): End With
 
Спасибо Ребята!
Оба варианта отлично работают!
Страницы: 1
Читают тему (гостей: 1)