Question

我在Excel工作表中有一个文本框。用户可以在框中输入文字，然后点击“搜索”按钮。文本框旁边的按钮可找到该文本。＆＃39;搜索＆＃39;按钮调用宏。

我的问题是用户必须点击“搜索”＃39;用于运行宏的按钮，而我希望在输入文本后可以选择只按Enter键。是否可以将代码放入文本框中，以便在用户按下“输入”键时键，执行搜索宏？

我尝试使用以下代码无效。

Private Sub TextBox1_Change()

    If KeyCode = vbKeyReturn Then
        Call search
    End If

End Sub

搜索宏的代码（如果有帮助）是：

Sub search()

On Error GoTo Errmsg

Columns("A:B").Find(What:=Worksheets("Companies List").TextBox1.Value, _
After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate

Exit Sub

Errmsg:
MsgBox "Text can't be found."

End Sub

提前致谢！

Answer 1

要获取特殊密钥的代码，请使用class Query { public function Ands ($ands) { ... } public function __call($str, $by) { } public function ors($ors) { ..... } public function like($like) { .... } public function eq($eq) { ... } public function notEq($neq) { ... } }或KeyDown事件

KeyUp

在VBA文本框中使用Enter键来调用宏

1 个答案: