VBA模糊搜索，公式不对，请大神帮忙看看

大爱雪碧

想在excel里面添加搜索框，代替查找功能。是否可以查找很多列，非固定某一列。
Private Sub TextBox1_Change()
ActiveSheet.UsedRange.AutoFilter Field:=4, Criteria1:="*" & TextBox1 & "*"
End Sub
这个公式一直显示错误

能不能使上面这个VBA代码和下面这个代码在一张表格中同时运行。
Dim a
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 11 Then Exit Sub
If Target <> a Then
      Target.Offset(0, -1).Value = Now
   Else
      Target.Offset(0, -1).Value = Target.Offset(0, -1).Value
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = Target
End Sub。

蓝桥玄霜

请见代码。

1. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2. Dim Rng As Range, Myr&, tt$
   
3. If KeyCode = 13 Then
   
4.     Myr = Cells(Rows.Count, 1).End(xlUp).Row
   
5.     Set Rng = Range("a1:h" & Myr)
   
6.     Rng.AutoFilter
   
7. 
   
8.     tt = Me.TextBox1.Text
   
9.     If tt <> "" Then
   
10.         Rng.AutoFilter Field:=4, Operator:= _
    
11.         xlFilterValues, Criteria2:=Array(2, tt)
    
12.     End If
    
13. End If
    
14. End Sub
    

复制代码

大爱雪碧

蓝桥玄霜 发表于 2018-10-1 15:19
请见代码。

你好，输入代码后，无法运行，出现1004错误。且合并后无法自动记录时间以及筛选 。

大爱雪碧

求助：将两个VBA代码合并
1.
Private Sub TextBox1_Change()
ActiveSheet.ListObjects("表1").Range.AutoFilter Field:=2, Criteria1:="*" & TextBox1 & "*"
End Sub
2.
Dim a
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 8 Then Exit Sub
If Target <> a Then
      Target.Offset(0, -1).Value = Now
   Else
      Target.Offset(0, -1).Value = Target.Offset(0, -1).Value
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = Target
End Sub

代码1 是插入ACTIVEX文本框控件之后，可以搜索。代码2 自动记录时间。
麻烦大家了