Tìm kiếm chính xác trong VBA

[sondongho83]

Xin chào mọi người.
Mình đang tìm hiểu VBA. Không hiểu xao lệnh tìm kiếm lạikhông cho ra kết quả chính xác trong đoạn code sau:
Trên trang bảng tính sheet1 của Excel , Giá trị các ô:A1=120; A2=2122 ; A3=2222 ; A4 =122 .
Code như sau: (sheet1 đang active)
tk=122

nd=500

Range(“A1:A5”).Find(tk).Activate
ActiveCell.Offset(0, 1).Value = nd
<font size="3">Nhưng chạy kết quảlà : tại ô B2= 500 (đáng lẽ phải là B4=500)
Có cách nào để tìm đúng giá trị “122” không? Mọi người chỉdùm mình với.</font>

View more random threads:

• [GIÚP ĐỠ] Tự động tạo bảng dữ liệu từ bảng có sẵn trong Excel
• Cách tính tổng theo vùng động
• Anh chị cho em hỏi lỗi #VALUE
• Anh chị giúp dùm em vì công việc
• xin giúp đỡ về điều kiện của sheet trong excel ạ...
• Nhờ các a/c giúp em hàm evaluate trong name manager
• Data validtion thay đổi theo giá trị ô trên googlesheets
• chuyển đổi dữ liệu máy chấm công sang file chấm công
• Hỏi về tình khoảng thời gian giữa 2 ngày tháng cụ thể
• Không biết đặt tiêu đề gì: symbol hình tròn thay đổi theo giá trị ô

[kimthua33]

Xin chào mọi người.</font></font>
Mình đang tìm hiểu VBA. Không hiểu xao lệnh tìm kiếm lạikhông cho ra kết quả chính xác trong đoạn code sau:
Trên trang bảng tính sheet1 của Excel , Giá trị các ô:A1=120; A2=2122 ; A3=2222 ; A4 =122 .
Code như sau: (sheet1 đang active)
tk=122

nd=500

Range(“A1:A5”).Find(tk).Activate
ActiveCell.Offset(0, 1).Value = nd
Nhưng chạy kết quảlà : tại ô B2= 500 (đáng lẽ phải là B4=500)
Có cách nào để tìm đúng giá trị “122” không? Mọi người chỉdùm mình với.

bạn thử xem, tôi cũng ko biết nó có chính xác ko

<font size="3"><font color="#000000">Range(“A1:A5”).Find(tk,,,1).Activate

[bevoll]

Xin chào mọi người.</font></font>
Mình đang tìm hiểu VBA. Không hiểu xao lệnh tìm kiếm lạikhông cho ra kết quả chính xác trong đoạn code sau:
Trên trang bảng tính sheet1 của Excel , Giá trị các ô:A1=120; A2=2122 ; A3=2222 ; A4 =122 .
Code như sau: (sheet1 đang active)
tk=122

nd=500

Range(“A1:A5”).Find(tk).Activate
ActiveCell.Offset(0, 1).Value = nd
Nhưng chạy kết quảlà : tại ô B2= 500 (đáng lẽ phải là B4=500)
Có cách nào để tìm đúng giá trị “122” không? Mọi người chỉdùm mình với.

Find Method mà viết kiểu đó đâu có được
TÌM CHÍNH XÁC thì phải thế này:

Range("A1:A5").Find(tk, , xlValues, xlWhole)

Thằng em màu đỏ mang ý nghĩa TÌM CHÍNH XÁC đấy
Thêm nữa, trường hợp tìm không thấy mà vẫn cố tình Activate thì sẽ lỗi. Ta thường có cách viết "chắc bắp" thế này:

Sub Test()
  Const nd = 500, tk = 122
  <font color="#ff0000">Dim rFind As Range

  <font color="#ff0000">Set rFind = Range("A1:A5").Find(tk, , xlValues, xlWhole)

  If Not rFind Is Nothing Then rFind.Offset(0, 1).Value = nd
End Sub

[seongang]

bạn thử xem, tôi cũng ko biết nó có chính xác ko

<div class="bbcode_container">
<div class="bbcode_description">Code:

</div>
</div>
cảm ơn ban nhiêu nhé

[Binhboong92]

Cảm ơn ban ndu nhiều nhé