VB6 & MSForms.ComboBox в Excel

[Andrey Fedorov]

Что-то не пойму - при выполнении следующего кода в VB6 значение ComboBox-у присваивается верно, но он остается неизменным пока не дернешь его DropDown:

Код: Выделить всё

FillComboBox ws.OLEObjects("cbGrЧисло).Object

Private Sub FillComboBox(cb As MSForms.ComboBox)
    cb.Clear
    For i = 1 To 31
         cb.AddItem CStr(i)
    Next i
    cb.Value = CStr(Day(Date))
End Sub

А если в таком-же коде присваивается текст (например, название месяца), то и выделенное значение при DropDown остается старым...

Есть возможность поправить?

[Amed]

У меня нет такого симптома вообще. Excel 2003 (11.5612)

Код: Выделить всё

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    FillComboBox Лист1.OLEObjects("ComboBox1").Object
End Sub

Private Sub FillComboBox(cb As MSForms.ComboBox)
    cb.Clear
    For i = 1 To 31
         cb.AddItem CStr(i)
    Next i
   
    cb.Value = CStr(Day(Date))
End Sub

Значение сразу же попадает безо всяких-яких в комбобокс.

[Andrey Fedorov]

Значение сразу же попадает безо всяких-яких в комбобокс.

Я писал - код выполняется из под VB6:

Код: Выделить всё

    Set ea = New Excel.Application
    Set wb = ea.Workbooks.Open(m_sTempFile)
    Set ws = wb.Worksheets![МойЛистик]

И далее - см начало топика.

Access-2007 (12.0.4518.1014)

[Amed]

Код: Выделить всё

cb.Value = CStr(Day(Date))
cb.Activate

Заметьте - при клике на комбобокс у меню Office пропадает фокус. Кликаю в другую ячейку - опять появляется.