Excel VBA Userformフォーカス変更トリガーの場合

Question

私はVBAでいくつかのユーザーフォームを持っています。ユーザーが最初にテキストボックスをクリック（フォーカスを変更）したときに内部のテキストが選択されるという機能を追加したいとします。私は、あなたが最初にURLバーをクリックすると、いくつかの会計アプリケーションとあなたのWebブラウザでこの機能を見てきました。その基本的な意味は、ユーザーがすぐにテキストフィールドを上書きできるようにすることです。私がVBAでどうやって同じことをするのだろうと思っていましたが、私はまだ初心者です。私はいくつかのサブトリガを見ましたが（正しい用語は分かりませんが）、見たことはありません。テキストボックスをクリックしたときに見つかったが、フィールドをクリックするたびにテキストが常に選択されないようにしたい。おかげさまで

Answer 1

は、あなたのテキストボックスのイベントに

Dim checked As Boolean 

Private Sub TextBox1_Change() 
    If checked = True Then 
     TextBox1.SelStart = 0 
     TextBox1.SelLength = 0 
    checked = True 
    End If 
End Sub 


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
    checked = False 
End Sub 

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 
    If checked = False Then 
     TextBox1.SelStart = 0 
     TextBox1.SelLength = Len(TextBox1) 
     checked = True 
    End If 
End Sub 

これを入れて、あなたのテキストボックスをクリックしたら、それはあなたがテキストをクリックすると、それが変更されたテキストにあなたをunhightlightとできるようになります、テキストを強調されますそのテキストボックスの外側をクリックし、その中をクリックすると、テキスト全体がハイライトされます。