Dim ctl As Control
    
    For Each ctl In Me.Controls
        If TypeOf ctl Is TextBox Then
            MsgBox "Поле " & ctl.Name
        ElseIf TypeOf ctl Is CommandButton Then
            MsgBox "Кнопка " & ctl.Name
        End If
    Next

    Dim ctl As Control
    
    For Each ctl In Me.Controls
        Select Case TypeName(ctl)
            Case "TextBox"
                MsgBox "Поле " & ctl.Name
            Case "CommandButton"
                MsgBox "Кнопка " & ctl.Name
        End Select
    Next

If TypeOf ctl Is msforms.TextBox Then

  Dim t As Excel.TextBoxes
  Dim tt As Excel.TextBox
  
  Dim ws As Worksheet
  
  Set ws = ActiveSheet
  ws.Shapes.AddTextbox msoTextOrientationHorizontal,  50 ,  50 ,  150 ,  50 
  Set t = ws.TextBoxes
  
  Set tt = t( 1 )
  Debug.Print TypeOf tt Is TextBox

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы