Sửa giúp em đoạn code (1 người xem)

[donhungtin2013]

Em có copy được đoạn code này:
Option Explicit
Private Sub worksheet_changed()
Application.ScreenUpdating = False
On Error Resume Next
ActiveSheet.ShowAllData
With ActiveCell
.Offset(-4) = .Offset(1)
.Offset(-3) = "*" & CStr(ActiveSheet.TextBox1) & "*"
.Offset(1).Resize(10000).AdvancedFilter 1, .Offset(-4).Resize(2)
End With
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [G7]) Is Nothing Then Hien Else An
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Or KeyCode = 40 Then An
If KeyCode = 13 Or KeyCode = 40 Then ActiveCell(3).Select
End Sub
Nhưng không hiểu sao khi add vào file em lại chạy không được, nhờ mọi người sửa lại giúp em. Em cảm ơn ạ

 

[giaiphap]

Đoạn code áp dụng file khác tại sao lại đem áp dụng cho file của mình vậy bạn? Bây giờ bạn muốn giúp gì trong file của bạn thì bạn phải nêu cụ thể mọi người mới biết và giúp, nhớ nêu càng cụ thể càng chi tiết càng tốt.

 

[donhungtin2013]

Đoạn code áp dụng file khác tại sao lại đem áp dụng cho file của mình vậy bạn? Bây giờ bạn muốn giúp gì trong file của bạn thì bạn phải nêu cụ thể mọi người mới biết và giúp, nhớ nêu càng cụ thể càng chi tiết càng tốt.

Vậy anh có thể cho em đoạn code tìm kiếm nhanh trong file trên được không anh? ví dụ khi em gõ máy thì nó sẽ xoả những mục có tên máy hiện ra

 

[giaiphap]

Bạn dùng code này thử xem

Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim EndR As Long
 
If Target.Address <> "$G$7" Then Exit Sub
 
Application.EnableEvents = False
 
    Range("$B$11:$B$34").AutoFilter Field:=1, Criteria1:="*" & Target.Value & "*", Operator:=xlFilterValues
 
Application.EnableEvents = True
End Sub

 

[donhungtin2013]

Bạn dùng code này thử xem

Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim EndR As Long
 
If Target.Address <> "$G$7" Then Exit Sub
 
Application.EnableEvents = False
 
    Range("$B$11:$B$34").AutoFilter Field:=1, Criteria1:="*" & Target.Value & "*", Operator:=xlFilterValues
 
Application.EnableEvents = True
End Sub

Không được bạn ơi nó ẩn hết mà có lọc được đâu, bạn xem lại với

 

[giaiphap]

Không được bạn ơi nó ẩn hết mà có lọc được đâu, bạn xem lại với

Trước hết bạn hãy bỏ chế độ lọc đi rồi hãy gõ dữ liệu vào ô G7 sau đó nhấn Enter để xem kết quả.
Đây là file của bạn mình không hề sửa bất cứ lệnh gì trừ việc bỏ chế độ lọc.