Gửi bởi
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
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
Mã:
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