TextBox и SetFocus VBA Excel

Предполагая, что все это происходит в форме:

Private Sub txtMain_AfterUpdate()
  Dim x As Integer
  Dim txt As MSForms.TextBox
  For x = 2 To 6
    If Controls("txt" & x).Text <> "" Then
      Controls("txt" & (x - 1)).SetFocus
    End If
  Next
End Sub

Идея состоит в том, чтобы перебрать все текстовые поля, предполагая, что они имеют одинаковый шаблон в имени: «txt» + номер. Цикл начинается со второго текстового поля, поскольку перед первым нет предыдущего текстового поля.

ОБНОВЛЯТЬ

Private Sub txtMain_AfterUpdate()
  Dim ctrl As MSForms.Control
  Dim txt As MSForms.TextBox
  Dim txtPrev As MSForms.TextBox
  Dim prevTag As String
  For Each ctrl In Me.Controls
    If TypeOf ctrl Is MSForms.TextBox Then
      Set txt = ctrl
      '// Somehow get the value of tag
      prevTag = "GET TAG VALUE OF PREVIOUS TEXTBOX"
      If txt.Text <> "" Then
        Set txtPrev = FindPreviousTextBox(prevTag)
        If Not txtPrev Is Nothing Then
          txtPrev.SetFocus
          Exit For
        End If
      End If
    End If
  Next
End Sub

Private Function FindPreviousTextBox(prevTag As String) As MSForms.TextBox
  Dim ctrl As MSForms.Control
  For Each ctrl In Me.Controls
    If TypeOf ctrl Is MSForms.TextBox Then
      If ctrl.Tag = prevTag Then
        Set FindPreviousTextBox = ctrl
        Exit Function
      End If
    End If
  Next
End Function

Если вы хотите манипулировать тегами, сначала нужно перебрать все элементы управления и проверить наличие текстовых полей. Если элемент управления представляет собой текстовое поле, вы получаете от него свойство Tag. Единственное, нужно каким-то образом получить значение тега предыдущего текстового поля (поскольку я не знаю, как вы это делаете). Я написал в комментарии, что нужно это как-то сделать.

Привет всем и спасибо всем. Я решил использовать KEYDOWN EVENT.

Спасибо