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

我希望这可以帮助其他人！： - ）

在Excel 2003中键入时实现搜索

1 个答案: