VBA как установить формат дата для N-го столбца в ListBox'е

[АННА-ЕАО]

Всем здравствуйте.
Подскажите, пожалуйста, если в форме ListBox заполняется данными из ячеек и содержит несколько столбцов, как для столбца №4 установить формат дата (т.е. 10.10.2010, а не 10/10/210(в ячейки формат - дата)) если сам ListBox заполняется таким образом:

...
arr = Range("A3:L" & il)
ListBox9.List = arr()

Если заполняю массив через счётчик ставлю Str и всё получается, но так уж слишком длинно...

.....
arr(k, 4) = Str(Cells(i, 4))
.....

[Скрипт]

АННА-ЕАО, не решение вашей задачи, просто замечание по коду.
Можно без VBA-массива поместить данные в ListBox:

Private Sub CommandButton1_Click()
    
    Me.ListBox1.List = Range("A1:B2").Value
    
End Sub

Если никто не предложит ничего, то можно так ускорить ваш код. Если данных много на Excel-листе, то тогда нужно сделать два VBA-массива (с VBA-массивами быстрее работать, чем с Excel-ячейками):

1. в один массив помещаете данные из Excel-листа;
2. второй массив делаете с типом данных "String" и помещаете в него данные из первого массива. Затем данные из второго массива помещаете в ListBox.

[АННА-ЕАО]

Скрипт Спасибо Вам большое, попробовала без массива, получилось. Буду знать.

[Скрипт]

Не знаю, какие там механизмы действуют, но вот так не искажается дата:

Me.ListBox1.RowSource = Range("A1:B2").Address

[kuklp]

Короче:

Me.ListBox1.RowSource = "A1:B2"

:-)

[АННА-ЕАО]

kuklp, Скрипт Спасибо, попробовала все варианты - всё получилось.
Только вот вопросик по ходу возник, а зачем Вы указываете перед ListBox1 слово Me, на что это влияет, ведь ListBox1 на форме в любом случае один единственный.
Без него ещё короче можно было б:

ListBox1.RowSource = "A1:B2"

[Скрипт]

АННА-ЕАО, да, Me не нужно. Я указываю "Me" для удобства написания кода, т.к. если поставить точку, то появляются всплывающие подсказки и удобно писать код.

[DiemonStar]

Только вот вопросик по ходу возник, а зачем Вы указываете перед ListBox1 слово Me, на что это влияет, ведь ListBox1 на форме в любом случае один единственный.

Это приблизительно как ActiveSheet объект. Или ThisWorkbook. Обычно указывать не требуется, но иногда возникают случаи, когда есть необходимость неявного указания родителя данного объекта.

[АННА-ЕАО]

Понятно, ещё раз всем спасибо за помощь

[VictorM]

И все же, можно ли решить данную задачу, если

ListBox1.List = arrSh

У меня подобная задача, только даты находятся в первом столбце, а массив содержит несколько тысяч строк и собирается динамически из четырех баз.