Question

我有一个包含数千条记录的 Excel 工作表。我想在 Excel 上找到 / 实现输入即搜索的应用程序。Excel 中有任何可以实现这一点的插件吗？或者我需要使用 VB 来编写。如果是这样，该如何进行？谢谢。

例如，当用户在文本框中输入搜索词时，我想突出显示并跳转到第一个匹配的单元格。

Answer 1

使用VBA和表单，这很容易做到...

在常规模块中输入以下内容：

Public Sub FindAsYouType()

    UserForm1.Show (False)

End Sub

并在您的代码中使用类似以下内容：

Private Sub txtFind_Change()
    Dim strFind As String
    Dim wks As Worksheet
    Dim varFound As Variant
    Set wks = ActiveWorkbook.ActiveSheet
    Set varFound = wks.UsedRange.Find(Me.txtFind, , , , , , True)
    If Not varFound Is Nothing Then varFound.Select
End Sub

Private Sub txtFind_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then Unload Me
End Sub

我希望这能帮到其他人！:-)

友情链接