Ігор Гончаренко, мне жаль, что я что-то не понятно пояснил, но суть задачи была в том, чтобы найти в массиве дату текущего года и отправить в ComboBox1.ListIndex номер его позиции, в случае моего примера - это позиция 11 . При запуске формы в комбобоксе отобразится текущий год и при раскрытии списка комбобокса будет идти следующий год и т.д. В вашем варианте вы предложили заменить ComboBox1 = y на ComboBox1.ListIndex = 11. Мне нужно, чтобы значение 11 в ComboBox1.ListIndex попадало автоматом, а не прописывать 11 вручную.
Вот решение:
Код |
---|
Sub Test()
Dim i As Variant, s As Date, arr()
s = Year(Now)
arr = ComboBox1.List
For i = LBound(arr) To UBound(arr)
If s = arr(i, 0) Then
ComboBox1.ListIndex = Int(i)
Exit For
End If
Next
End Sub |