Команда сброса для текстовых и комбинированных списков

Question

У меня есть пользовательская форма Excel с кнопкой «Сброс» для очистки пользовательских полей.Моя пользовательская форма состоит из текстовых и комбинированных полей.Я использовал приведенный ниже скрипт для сброса полей.Проблема в том, что он не очищает значения в выпадающих списках, потому что я использовал icontrol.name like "Txt*".Я пытался "Txt*","Comb*", но выдает ошибку

Private Sub CmdReset_Click()

Dim iControl As Control

For Each iControl In Me.Controls
If iControl.Name Like "Txt*" Then iControl = vbNullString
Next

End Sub

Answer 1

Для большей точности вы можете использовать следующее:

For Each iControl In Me.Controls
   If TypeName(iControl) = "TextBox" Or TypeName(iControl) = "ComboBox" then iControl.Value = vbNullString
Next iControl