здравствуйте, на форме существуют контролы и я порхожу по ним
Private Sub CommandButton_print_Click()
Dim cntrl As Control
For Each cntrl In UserForm1.Controls
If TypeName(cntrl) = "ComboBox" Then
cntrl.ShowDropButtonWhen = fmShowDropButtonWhenAlways
cntrl.SpecialEffect = fmSpecialEffectSunken
End If
Next cntrl
а как сделать то же самое для контролов на листе? не пойму что должно стоять вместо UserForm1???
спасибо
Private Sub CommandButton_print_Click()
Dim cntrl As Control
For Each cntrl In UserForm1.Controls
If TypeName(cntrl) = "ComboBox" Then
cntrl.ShowDropButtonWhen = fmShowDropButtonWhenAlways
cntrl.SpecialEffect = fmSpecialEffectSunken
End If
Next cntrl
а как сделать то же самое для контролов на листе? не пойму что должно стоять вместо UserForm1???
спасибо