[giúp đỡ] tạo macro search (1 người xem)

[mickeyzo]

Chào các anh, chị, cô, chú!
em đang tìm hiểu làm 1 nút search với tính năng như sau:
1- Nút search nằm trên sheet chứa các cell có tên của dữ liệu của sheet có tên là "AAA"
2- Khi chọn 1 cell "active cell" sau đó click vào nút search nó sẽ search dữ liệu bên sheet AAA
3- Để làm "nôỉ bật" kết quả tìm kiếm, sau khi tìm được cell chứa kết quả trên sheet AAA nó sẽ bôi chuột (Range) từ ô tìm được xuống phía dưới giống như => Range("N3:R16").Select
cảm ơn anh, chị, cô, chú ạ

 

[befaint]

Bạn tạo một file excel như bạn mô tả rồi gửi kèm lên đây. Mọi người sẽ giúp bạn.

 

[mickeyzo]

Bạn tạo một file excel như bạn mô tả rồi gửi kèm lên đây. Mọi người sẽ giúp bạn.

em đang viết macro dùng để search trên sheet tên là AAA thôi ạ, ở trên bất kỳ sheet nào khi click vào 1 cell với từ khóa là active cell mình vừa click sau đó chạy macro nó sẽ tìm trên sheet AAA ạ.
em không thể gửi file lên đây được ạ :S

 

[doveandrose]

em đang viết macro dùng để search trên sheet tên là AAA thôi ạ, ở trên bất kỳ sheet nào khi click vào 1 cell với từ khóa là active cell mình vừa click sau đó chạy macro nó sẽ tìm trên sheet AAA ạ.
em không thể gửi file lên đây được ạ :S

thật tiếc , tôi chỉ làm việc được với người biết gửi file lên cho tôi xem , nếu không thì tôi chỉ biết chém gió
bài này bạn sử dụng Instr kết hợp vòng lặp trên mảng bạn nhé . Chúc may mắn

 

[mickeyzo]

thật tiếc , tôi chỉ làm việc được với người biết gửi file lên cho tôi xem , nếu không thì tôi chỉ biết chém gió
bài này bạn sử dụng Instr kết hợp vòng lặp trên mảng bạn nhé . Chúc may mắn

Em không được gửi vì vấn đề security ạ.
Anh có thể chỉ cho em câu lệnh gán biến cho nội dung của active cell, sau đó em sẽ dùng câu lệnh của ctrl+f với biến vừa gán ạ :S

 

[cukhit]

Em không được gửi vì vấn đề security ạ.
Anh có thể chỉ cho em câu lệnh gán biến cho nội dung của active cell, sau đó em sẽ dùng câu lệnh của ctrl+f với biến vừa gán ạ :S

security là llvt phải không?hihi. Gửi bạn cái này tham khảo code xem có đúng ý bạn không nhé.

 

[mickeyzo]

Sub Macro2()
'
' Macro2 Macro
'

'
Dim b As String
b = Trim(ActiveCell.Value)
Sheets("AAA").Select
Cells.Find(What:=(b), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub

Tại sao đoạn code trên của em lại không chạy được câu lệnh "cell.find" ạ? Mong các thầy, các anh chỉ bảo ạ :S

 

[cukhit]

Không dùng hàm Vlookup mà nghiên cứu chi VB vậy bạn.Tố nhất làm tạm cái file, trong đó ghi chú những gì muốn làm, ý tưởng rồi gửi lên mấy thầy, chuyên gia ở đây giúp cho bạn. Mình vẫn làm vậy luôn à, dễ cho mọi người giúp đỡ.

 

[befaint]

Em không được gửi vì vấn đề security ạ.
Anh có thể chỉ cho em câu lệnh gán biến cho nội dung của active cell, sau đó em sẽ dùng câu lệnh của ctrl+f với biến vừa gán ạ :S

Bạn nói là vì vấn đề security thì sẽ không có ai giúp bạn cả.
Tôi không thể hiểu bạn vướng cái gì mà không giả lập được 1 file excel (cấu trúc giống với file thật, dữ liệu thì giả lập)?
Nếu công ty chặn không cho sử dụng internet thì về nhà riêng. Không lẽ ảnh hưởng tới ma nào nữa?

 

[cukhit]

Vấn đề security ở đây mình hiểu, bạn tạm thời làm cái file Excel, dữ liệu là ABCXYZ gì đó, trong file ghi chú rõ nội dung cần giúp đỡ rồi đính kèm lên đây, chứ quất nguyên cái "list" thì coi chừng