Excel VBA - 最後のユーザーフォームを保存するテキストボックスカーソルフォーカス

Question

Excel VBAユーザーフォームに10個のテキストボックスがあり、別のプログラムで別の作業を行うためにウィンドウから離れて戻ると、最後に使用していたテキストボックスにフォーカスします。

これは経験豊かな人には明らかな質問ですが、どこでもこのトピックに関するよくある質問は見つかりません。誰かが私を適切な答えに導くことができれば、私に検索可能なトピック、または良いコードを与えてください。私はスポンジです、私は何かを取るでしょう。

ありがとうございました！ -Chris

Answer 1

カーソルフォーカスはVBAではイベントではないため、やりにくいです。 BUT_Changeイベントを使用し、最後に変更したTextboxを覚えておいてください。

最後に変更されたTextBoxの名前には、モジュール内にパブリック変数が必要です。したがって、次回にフォームがアクティブになったときは、簡単なselect caseを使用して、フォームの対応する名前に.SetFocusを使用することができます。以下のコードは2つのテキストボックスで動作します。

形式では：モジュールで

Option Explicit 

Private Sub TextBox1_Change() 
    strLastTb = "TextBox1" 
End Sub 

Private Sub TextBox2_Change() 
    strLastTb = "TextBox2" 
End Sub 

Private Sub UserForm_Activate() 

    Select Case strLastTb 
    Case "TextBox1" 
     TextBox1.SetFocus 
    Case "TextBox2" 
     TextBox2.SetFocus 
    End Select 

End Sub 

：一般的に

Option Explicit 

Public strLastTb As String 

、あなたがTextBox&Digitを連結する関数を作成することができ、そうあなた場合は、数百行を記述する必要はありません50 TextBoxesがあります。そしてそれはより良く見えるだろう。