Excel VBA Userform 포커스 변경 트리거

Question

VBA에 몇 가지 사용자 폼이 있습니다. 사용자가 텍스트 상자를 처음 클릭 (포커스를 변경) 할 때 내부의 텍스트가 선택되는 기능을 추가하고 싶습니다. 필자는 URL 모음을 처음 클릭 할 때 일부 회계 응용 프로그램 및 웹 브라우저에서이 기능을 보았습니다. 이는 본질적으로 사용자가 텍스트 필드를 즉시 덮어 쓸 수 있다는 것을 의미합니다. 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 및 수정 텍스트를 허용, 텍스트를 hightlight됩니다 텍스트 상자 이벤트에서이. 해당 텍스트 상자 바깥을 클릭하고 안에 들어가면 전체 텍스트가 다시 강조 표시됩니다.