Excel VBA: как сохранить текущее значение combo box в ячейке

Question

Для формы входа я использую приведенный ниже код для хранения значений всех элементов управления текстовыми полями и списками в отдельном листе, значения тегов и текстового поля заполняются, однако только значения combo box не записываются в ячейки. Может ли кто-нибудь указать на мою ошибку?

For Each cControl In frmLogin.Controls 
If cControl.Name Like "txt*" Or cControl.Name Like "cb*" Then 
    Sheet5.Cells(m, 10).Value = cControl.Tag 
    Sheet5.Cells(m, 11).Value = cControl.Text 
    m = m + 1 
End If 

Следующая

Answer 1

Вы должны использовать MSForms, чтобы сделать сравнение.

Попробуйте

Dim cControl As Control 
Dim m As Long 

'~~> Change as applicable 
m = 1 

For Each cControl In frmLogin.Controls 
    If TypeOf cControl Is MSForms.TextBox Or _ 
    TypeOf cControl Is MSForms.ComboBox Then 
     Sheet5.Cells(m, 10).Value = cControl.Tag 
     Sheet5.Cells(m, 11).Value = cControl.Text 
     m = m + 1 
    End If 
Next