更新事件触发输入事件后VBA Excel退出

Question

假设我在用户窗体上有一个combobox1、2、3 和一个textbox1。 After update 事件与组合框1 相关联。当按下 Tab 键时，after update 事件被触发（填充组合框 2 和 3）。在此事件的代码中，就在 exit sub 之前有 textbox1.setfocus 以跳过按 tab 顺序输入其他 cobobox（组合框 1、2、3、textbox1）。效果很好。

当我添加另一个组合框（现在是组合框 2）时，选项卡顺序更改为 1、2、3、4。 After update 仍然与 combobox1 相关联，并且 textbox1.setfocus 是 exit sub 之前的最后一行。不幸的是，当执行after update 的退出子行时，它会触发combobox3 enter event 并将焦点移动到combobox3。比较难理解，因为 tab 顺序是 combobox1,2,3,4 所以它也跳过了 tab 顺序。

当我调试代码时，textbox1 的焦点被设置为它应该设置但仍然只是在执行 exit sub 时，代码行移动到 combobox3 输入事件... 任何提示表示赞赏。

Answer 1

在您的用户表单代码窗格中执行如下操作：

• 范围为Boolean 变量的用户表单

  因此，将此放在任何子/功能代码之前

  Dim SetTextBox1Focus As Boolean
  

• 在您的 ComboBox1_AfterUpdate() 事件处理程序位置：

  Private Sub ComboBox1_AfterUpdate()
      If (condition that checks if the data entered in combobox1 exists in the database) is True Then
  
          ...
          your code to fill comboboxes 2, 3 ad 4
          ...
  
          Me.TextBox1.SetFocus
          SetTextBox1Focus = True '<--| "flag" TextBox1 to receive the focus
      End If
  End Sub
  

• 为标签索引在ComboBox1和TexBox1之间的所有用户窗体控件添加一个Enter事件处理程序

  例如，假设它们是 ComboBox2、ComboBox3 和 ComboBox4

  Private Sub ComboBox2_Enter()
      CheckSetTextBox1Focus
  End Sub
  
  
  Private Sub ComboBox3_Enter()
      CheckSetTextBox1Focus
  End Sub
  
  
  Private Sub ComboBox4_Enter()
      CheckSetTextBox1Focus
  End Sub
  

• 添加以下CheckSetTextBox1Focus()子

  Sub CheckSetTextBox1Focus()
      If SetTextBox1Focus Then
          Me.TextBox1.SetFocus
          SetTextBox1Focus = False
      End If
  End Sub