phamvanan88
Thành viên mới
- Tham gia
- 15/10/14
- Bài viết
- 23
- Được thích
- 0
Nhờ các bác hỗ trợ, hiện em có dùng VBA để lọc tìm dữ liệu, em có dùng lệnh để xử lý giá trị ô tính, thì em gặp lỗi giá trị trong ô mặc dù bằng nhau nhưng khi đọc trực tiếp đưa vào hàm so sánh thì nó trả ra kq so sánh là sai; trong khi gán biến trung gian rồi mới so sánh thì cho ra kết quả đúng. Vậy các bác chỉ giúp em lỗi ở đâu ah, có những ô tính khác thì em so sánh trực tiếp nó vẫn cho kq đúng, nhưng có ô tính lại trả kq sai.
'giá trị ở 2 ô ShTT.Cells(i, arrTT(5)) và ShDT.Cells(i, arrDT(5)) là bằng nhau;
Sheet3.Range("I1") = ShTT.Cells(i, arrTT(5)) '
Sheet3.Range("I2") = ShDT.Cells(i, arrDT(5))
' TH1: đọc trực tiếp giá trị trong ô để so sánh, kq trả ra false
If Sheet3.Range("I1").Value = Sheet3.Range("I2").Value Then
Sheet3.Range("J1") = "true"
Else
Sheet3.Range("J1") = "false"
End If
' TH2: gán giá trị qua biến trung gian để so sánh, kq trả ra true
temp1 = ShTT.Cells(i, arrTT(5))
temp2 = ShDT.Cells(i, arrDT(5))
If temp1 >= temp2 Then
Sheet3.Range("J2") = "true"
Else
Sheet3.Range("J2") = "false"
End If
'giá trị ở 2 ô ShTT.Cells(i, arrTT(5)) và ShDT.Cells(i, arrDT(5)) là bằng nhau;
Sheet3.Range("I1") = ShTT.Cells(i, arrTT(5)) '
Sheet3.Range("I2") = ShDT.Cells(i, arrDT(5))
' TH1: đọc trực tiếp giá trị trong ô để so sánh, kq trả ra false
If Sheet3.Range("I1").Value = Sheet3.Range("I2").Value Then
Sheet3.Range("J1") = "true"
Else
Sheet3.Range("J1") = "false"
End If
' TH2: gán giá trị qua biến trung gian để so sánh, kq trả ra true
temp1 = ShTT.Cells(i, arrTT(5))
temp2 = ShDT.Cells(i, arrDT(5))
If temp1 >= temp2 Then
Sheet3.Range("J2") = "true"
Else
Sheet3.Range("J2") = "false"
End If