VBA - Enter를 사용하여 명령 수행

Question

이 텍스트 상자를 만들고 싶습니다. "clean"을 입력하고 Enter를 누르면 아래와 같은 조치를 취하고 싶습니다. 그것을 성취 할 수있는 방법이 있습니까? 여기 내가 시도한 것이있다.

Private Sub TextBox1_Change() 

If TextBox1.Text = "clean" + KeyCode(13) Then 
Shell "cmd /c cleanmgr.exe", vbHide 
End If 
End Sub 

감사합니다.

Answer 1

이 당신이 찾고있는 가능성이 있습니다 :

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 

    If KeyCode = 13 Then 
     If TextBox1.Text = "clean" Then 

      MsgBox "ok" 'for test 
      'do your stuff here!! 

     End If 
    End If 

End Sub