Excel VBA: как преобразовать универсальный объект управления в объект ComboBox?
Мне нужно привести общий объект управления формой VBA в объект ComboBox, чтобы я мог добавлять к нему элементы. Универсальный объект не позволяет мне вставлять элементы в мои существующие списки
Dim ctlCurrent As MSForms.Control
For Each ctlCurrent In frmItemInput.Controls
If TypeName(ctlCurrent) = "ComboBox" Then
Dim lbCurrentComboBox As MSForms.ComboBox
lbCurrentComboBox = ctlCurrent 'This is where the error occurs, when I try to convert one into another
' Adiciona os itens necessários
lbCurrentComboBox.AddItem ("R")
lbCurrentComboBox.AddItem ("D")
End If
Next ctlCurrent
Моя проблема в том, что у меня есть тонны ComboBoxов в моей форме, и мне нужно добавить одинаковые параметры для всех них. Поэтому я хотел бы сделать это программно.