Giúp e chỉnh sửa code lọc giá trị âm dương (2 người xem)

[giahuyks93]

Dữ liệu của e là 1 cột bao gôm nhiều các giá trị âm dương . em có viết 1 code nhưng mà kết quả không được như ý . Mong a/c giúp đỡ xem giùm em có sai sót chỗ nào không ạ ?
Như trong file exle thì giá trị lớn nhất trong trị tuyệt đối sẽ là -9 . Mong mọi người xem xét giúp em

 

[quanluu]

Dữ liệu của e là 1 cột bao gôm nhiều các giá trị âm dương . em có viết 1 code nhưng mà kết quả không được như ý . Mong a/c giúp đỡ xem giùm em có sai sót chỗ nào không ạ ?
Như trong file exle thì giá trị lớn nhất trong trị tuyệt đối sẽ là -9 . Mong mọi người xem xét giúp em

Bạn phải bỏ max = -999 ra khỏi vòng for next. Với tìm max như thế này bạn cũng có thể xài ct mà.

 

[HungQuoc49]

Dữ liệu của e là 1 cột bao gôm nhiều các giá trị âm dương . em có viết 1 code nhưng mà kết quả không được như ý . Mong a/c giúp đỡ xem giùm em có sai sót chỗ nào không ạ ?
Như trong file exle thì giá trị lớn nhất trong trị tuyệt đối sẽ là -9 . Mong mọi người xem xét giúp em

Sửa
Bỏ lệnh gán max=-9999
Dùng Abs cho cả cell(i,2) và max để so sánh
Gán giá trị cell(i,2) cho biến max không dùng abs
Gán [A1]=max và chuyển [A1]=max ra ngoài vòng lặp

Sub tra()
Dim max As Long
Dim i As Integer

For i = 5 To 12
'max = -9999
'If Abs(Cells(i, 2)) > max Then
'max = Abs(Cells(i, 2))
'Range("A1") = Cells(i, 2)
If Abs(Cells(i, 2)) > Abs(max) Then
max = Cells(i, 2)
End If
Next
Range("A1") = max
End Sub

 

[giahuyks93]

Bạn phải bỏ max = -999 ra khỏi vòng for next. Với tìm max như thế này bạn cũng có thể xài ct mà.

e nhìn ra sai sót rồi . Em cám ơn a

 

[giahuyks93]

Sửa
Bỏ lệnh gán max=-9999
Dùng Abs cho cả cell(i,2) và max để so sánh
Gán giá trị cell(i,2) cho biến max không dùng abs
Gán [A1]=max và chuyển [A1]=max ra ngoài vòng lặp

Sub tra()
Dim max As Long
Dim i As Integer

For i = 5 To 12
'max = -9999
'If Abs(Cells(i, 2)) > max Then
'max = Abs(Cells(i, 2))
'Range("A1") = Cells(i, 2)
If Abs(Cells(i, 2)) > Abs(max) Then
max = Cells(i, 2)
End If
Next
Range("A1") = max
End Sub

Em cám ơn a . Em nhìn ra được rồi . May quá