Cần giúp tìm chính xác vị trí ô chứa dữ liệu cần tìm trong bảng tính

[minhkhanh1908]

Em có vấn đề này cần các bác giúp tý. Khi tìm dữ liệu trong bảng tính ta thường dùng lệnh Find (Ctrl + F). Nhưng ở file của em em muốn dùng cách khác như sau:
Khi mình nhập dữ liệu cần tìm vào Cell (B2) thì con trỏ sẽ tự động chuyển đến dữ liệu cần tìm trong vùng mình muốn tìm (cột A)
Em muốn dùng công thức không biết có cách nào không mong các bác chỉ giáo.
Cảm ơn các bác nhiều.

 

[duongdv]

Em có vấn đề này cần các bác giúp tý. Khi tìm dữ liệu trong bảng tính ta thường dùng lệnh Find (Ctrl + F). Nhưng ở file của em em muốn dùng cách khác như sau:
Khi mình nhập dữ liệu cần tìm vào Cell (B2) thì con trỏ sẽ tự động chuyển đến dữ liệu cần tìm trong vùng mình muốn tìm (cột A)
Em muốn dùng công thức không biết có cách nào không mong các bác chỉ giáo.
Cảm ơn các bác nhiều.

Theo ý bạn nếu muốn con trỏ tự động chuyển đến ô dữ liệu thì tôi nghĩ chắc không có công thức rồi, để làm được điều này chắc phải nhờ mấy Bác làm về VBA giúp. Tuy nhiên bạn cũng có thể dùng định dạng có điều kiện Condition Formatting để đổ mầu cho ô dữ liệu cần chuyển đến.

 

[minhkhanh1908]

Dùng Condition Formatting thi chắc chắn không thể nhanh hơn lệnh Find được. Bác nào có cách khác giúp em với. VBA cũng được nhưng khoản này em kém lắm nên bác nào rành VBA thì chỉ kỹ một chút nha. Thanks

 

[ndu96081631]

Dùng Condition Formatting thi chắc chắn không thể nhanh hơn lệnh Find được. Bác nào có cách khác giúp em với. VBA cũng được nhưng khoản này em kém lắm nên bác nào rành VBA thì chỉ kỹ một chút nha. Thanks

Click phải vào tên sheet tại sheet tab, chọn View Code, paste code này vào

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  If Target.Address = "$B$2" Then
    Range("A:A").Find(CDate(Target), , xlValues, xlWhole).Select
  End If
End Sub

Thay đổi giá trị tìm ở B2 rồi xem nó hoạt động thế nào

 

[minhkhanh1908]

Bác ndu96081631 ơi! Nếu em muốn tìm cho cả mảng dữ liệu vd như từ cột A tới cột H thì sao hả bác.
Thanks

 

[buithinhvan77]

Bác ndu96081631 ơi! Nếu em muốn tìm cho cả mảng dữ liệu vd như từ cột A tới cột H thì sao hả bác.
Thanks

Giả sử cần tìm từ A5:H1000 bạn tạo thêm 1 name: vung=$a$5:$h$1000
rồi copy lại đoạn code này
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$B$2" Then
Range("vung").Find(CDate(Target), , xlValues, xlWhole).Select
End If
End Sub

 

[SA_DQ]

#0: Khi mình nhập dữ liệu cần tìm vào Cell (B2) thì con trỏ sẽ tự động chuyển đến dữ liệu cần tìm trong vùng mình muốn tìm (cột A)

#5: Nếu em muốn tìm cho cả mảng dữ liệu vd như từ cột A tới cột H thì sao hả bác.

(/ậy xin hỏi bạn từ cột 'A' đến cột 'H' này TĐ (tương đương) với [B2] hay TĐ với cột 'A' ở bài đầu vậy bạn?

 

[ndu96081631]

Bác ndu96081631 ơi! Nếu em muốn tìm cho cả mảng dữ liệu vd như từ cột A tới cột H thì sao hả bác.
Thanks

Range("A:A") là tìm trong nguyên cột A
Vậy Range("A:H") là tìm từ cột A đến cột H, trong đó bao gồm luôn cell B2 mà chúng ta gõ giá trị tìm
Để tránh cell B2, bạn có thể đặt vùng tìm thế này

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  If Target.Address = "$B$2" Then
    [COLOR=#0000cd][B]Range("A3:H60000")[/B][/COLOR].Find(CDate(Target), , xlValues, xlWhole).Select
  End If
End Sub

Tức khi gõ giá trị tìm vào cell B2, nó sẽ xem trong vùng A3:H60000 có giá trị tìm này hay không, nếu có thì "nhảy đến", không có thì thôi, không làm gì cả
-----------------------------

Giả sử cần tìm từ A5:H1000 bạn tạo thêm 1 name: vung=$a$5:$h$1000

Cũng chẳng cần đặt thêm biến làm gì cho mất công, vì bạn chỉ dùng duy nhất 1 lần

 

[minhkhanh1908]

Tương đương với cột A bạn a. Nếu không phải là tìm ngày mà là tìm dữ liệu khác như họ tên, số liệu ... thi sao bác nhỉ

 

[ndu96081631]

Tương đương với cột A bạn a. Nếu không phải là tìm ngày mà là tìm dữ liệu khác như họ tên, số liệu ... thi sao bác nhỉ

Với dữ liệu ngày tháng thì nó rắc rối thôi chứ còn dữ liệu dạng khác thì.. khỏe ---> Thay CDate(Target) thành Target.Value hoặc Target.Text là được rồi
Thí nghiệm xem!

 

[nguyenkhanhylpt]

Không hiểu sao mình làm như hướng dẫn rồi ma không thấy nhúc nhích gì!!

 

[gakon_Office]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
Range("A3:H60000").Find(Target.Value, , xlValues, xlWhole).Select
Range("A3:H60000").Find(Target.Value, , xlValues, xlWhole).Select.Color = 5
End If
End Sub

Xin hỏi các thầy em muốn tại địa chỉ ô tìm thấy màu chữ và màu nền đổi sang màu khác thì viết code thế nào ạ?
Em không hiểu nên viết như trên nó báo lỗi. Nhờ các thầy sửa cho em với ạ!