Em muốn hỏi về cách tạo ô tìm kiếm trong excel (2 người xem)

[vungocquynh87]

Em có một vấn đề muốn xin hướng dẫn của cac anh các chị ạ.
Em được giao làm một ngân hàng giá, nhà cung ứng... em làm xong thì xếp lại muốn tạo 1 ô tìm kiếm trên đâùuđể khi mình gõ vào thì sẽ nhảy đến ô có kết quả đó,đồng thời màu khung chứa kết quả sẽ đổi sang màu khác để dễ quan sát...
Em cố gắng từ đầu tuần mà vẫn chưa biết phải làm như thế nào, các anh các chị có thể hướng dẫn em đượckhông ạ
Em cảm ơn các anh các chị

 

[SA_DQ]

Em được giao làm một ngân hàng giá, nhà cung ứng... em làm xong thì xếp lại muốn tạo 1 ô tìm kiếm trên đâù để khi mình gõ vào thì sẽ nhảy đến ô có kết quả đó,đồng thời màu khung chứa kết quả sẽ đổi sang màu khác để dễ quan sát...
Em cố gắng từ đầu tuần mà vẫn chưa biết phải làm như thế nào, các anh các chị có thể hướng dẫn em đượckhông ạ̣

Bạn muốn gỏ dữ liệu vô 1 ô & iêu cầu nhãy đến ô có chứa dữ liệu đó (trong cột(?)) thì fải xài VBA;

Giả dụ bạn gỏ số liệu không tìm thấy thì sao;

Tốt nhất bạn đưa cái file giả lập lên; sẽ có đáp án từ cộng đồng ngay tấp lự!

 

[vungocquynh87]

em thấy file tìm kiếm của bác voka rất hợp với em,
em mong có thêm tính năng đổi màu khung khi kết quả hiện ra
file cảu bác voka như thế này ạ

 

[vungocquynh87]

Anh ơi, anh làm thử luôn vào mẫu của bác voka đc không ạ

 

[vungocquynh87]

em đã làm theo hướng dẫn ạ
rất thành công
nhưng chỉ đc kết quả đầu tiên
các kết quả khác thì không hiện gì ạ

Bạn tìm đâu đó code trong form có 2 dòng này:

rngfinddau = rngFind.Address
                rngFind.Select

Và thêm dòng này vào ngay sau 2 dòng trên là được

                rngFind.Interior.ColorIndex = 6

 

[giaiphap]

em đã làm theo hướng dẫn ạ
rất thành công
nhưng chỉ đc kết quả đầu tiên
các kết quả khác thì không hiện gì ạ

Bạn thêm dòng

rngFind.Interior.ColorIndex = 6

sau dòng này thử nghe bạn:

If dk = True Then
Set rngFind = Cells.FindNext(After:=rngFind)
rngFind.Select

 

[vungocquynh87]

Bạn thêm dòng

rngFind.Interior.ColorIndex = 6

sau dòng này thử nghe bạn:

If dk = True Then
Set rngFind = Cells.FindNext(After:=rngFind)
rngFind.Select

Em cảm ơn anh, em muốn hỏi một vấn đề nữa ạ!
nếu bây giờ em muốn giới hạn phần tìm kiếm ở 1 cột ( ví dụ : tên hàng ) thì em phải làm thế nào ạ?

 

[giaiphap]

Em cảm ơn anh, em muốn hỏi một vấn đề nữa ạ!
nếu bây giờ em muốn giới hạn phần tìm kiếm ở 1 cột ( ví dụ : tên hàng ) thì em phải làm thế nào ạ?

Cột tên hàng là cột nào vậy bạn? Để tìm trong cột A thì bạn sửa code chổ này

Set rngFind = Range("A:A").Find(strSearch)

Và chổ này nửa

Set rngFind = Range("A:A").FindNext(After:=rngFind)

 

[ninka1225]

có cách nào để searchvoka không trả kết quả ở sheet 1 mà trả kết quả ở sheet 2 không ạ

 

[giaiphap]

có cách nào để searchvoka không trả kết quả ở sheet 1 mà trả kết quả ở sheet 2 không ạ

Là sao? chưa hiểu câu hỏi của bạn. Tìm trong Sheet2 hay là trả kết quả tìm được ghi vào sheet2? Nói rõ hơn mới trả lời được câu này.

 

[Minh15.01.1991]

Bạn thêm dòng

rngFind.Interior.ColorIndex = 6

sau dòng này thử nghe bạn:

If dk = True Then
Set rngFind = Cells.FindNext(After:=rngFind)
rngFind.Select

Hình như bạn không handle error thì phải.hi.

 

[ninka1225]

kết quả tìm được ghi vào sheet 2 đó bạn

 

[Bui Van hieu]

Có cách nào mình làm nhiều sheet như vậy được không ạ. Vì bên em có các sheet Xuất, Nhập ạ
Các anh chỉ giúp em với ạ. bài này rất hay, em đang rất cần, cảm ơn cả nhà nhiều ạ