VBA Excel更新後のイベントの発生イベントの起動イベントの入力

Question

私は、ユーザーフォーム上にcombobox1,2,3およびtextbox1を持っていたとしましょう。 After updateイベントがcombobox1に関連付けられていました。 Tabキーが押されたときafter updateイベントが発生しました（コンボボックス2とコンボボックス3を埋める）。このイベントのコードでは、exit subの直前にtextbox1.setfocusがあり、他のコボボックスをタブ順（コンボボックス1,2,3、textbox1）にスキップします。それはうまくいった。

私は現在combobox2である別のコンボボックスを追加すると、タブの順序が1,2,3,4に変更されました。 After updateはまだcombobox1に関連付けられており、textbox1.setfocusはexitサブの前の最後の行です。残念ながら、after updateのサブラインを終了すると、combobox3 enter eventが発生し、コンボボックス3にフォーカスが移動します。タブオーダーはコンボボックス1、2、3、4であるため、タブオーダーをスキップするので、理解しにくいです。

私はコードをデバッグしたとき、exitboxが実行されたときにコードラインがコンボボックス3のイベントに入力されると、textbox1にフォーカスが設定されました... ユーザーフォームのコードウィンドウの行為で

Answer 1

次のように：

• ユーザーフォームがこのの前に任意のサブ/ファンクションコードで

  Dim SetTextBox1Focus As Boolean 
  

• を置き、それゆえ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 
  

• ものでComboBox2、ComboBox3とComboBox4

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

• 追加仮定すると、タブインデックス例えば

  ComboBox1間TexBox1にあるすべてのユーザーフォームコントロールのEnterイベントハンドラを追加します続くCheckSetTextBox1Focus()サブ

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