Kết quả 1 đến 5 của 5

Chủ đề: Giúp e chỉnh sửa code lọc giá trị âm dương

  1. #1
    hvu45678 Guest

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

    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

  2. #2
    namplh Guest
    Trích dẫn 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
    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à.

  3. #3
    blogxemer Guest
    Trích dẫn 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

  4. #4
    vanthi1991 Guest
    Trích dẫn Gửi bởi quanluu1989
    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

  5. #5
    thuongdo07 Guest
    Trích dẫn Gửi bởi HungQuoc49
    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


    <div class="bbcode_container">
    <div class="bbcode_description">Code:
    </div>
    </div>
    Em cám ơn a . Em nhìn ra được rồi . May quá

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •