Question

我想创建这个文本框：如果我输入“clean”并按回车键，我希望它采取如下操作。有没有办法实现它？这是我试过的。

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

VBA - 使用Enter继续执行命令

1 个答案: