Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Список дат в ComboBox c уникальными записями и привязанные к динамичному массиву дат
 
Михаил С.,
Спасибо Вам большое! То что надо! :)
Список дат в ComboBox c уникальными записями и привязанные к динамичному массиву дат
 
К этому коду:
Код
Private Sub UserForm_Initialize()
Dim iMassiv, i as Long
iMassiv = Range(Cells(3, 2), Cells(Rows.Count, 2). End (xlUp))
With CreateObject("scripting.dictionary")
For i = 1 To UBound(iMassiv)
   .Item(iMassiv(i, 1)) = 1
Next
ComboBox1.List = .Keys
End With
End Sub
Список дат в ComboBox c уникальными записями и привязанные к динамичному массиву дат
 
Цитата
Максим Зеленский написал:
Sample.xlsm  (18.43 КБ)
Здравствуйте! Будьте добры, если возможно, добавить в данный код отображение дат в выпадающем списке в формате dd.mm.yyyy.
Заранее спасибо!
Страницы: 1
Наверх