Code so sánh giá trị trả về kết quả theo điều kiện. Nhờ các Anh xem giúp

[thaiduy123456]

Em xin chào các anh, nhờ các Anh giúp::
Em muốn viết 1 dòng lệnh để làm việc sau:
- So sánh từng tự các giá trị trong 1 cột với tất cả các giá trị trong cột khác (khoảng cách cộng dồn) nếu lớn hơn giá trị cột ban đầu sẽ trả về giá trị trước đó (giá trị nhỏ hơn gân nhất)
- Với dòng lệnh bên dưới
Nhờ các Anh xem giúp xem có sai sót chỗ nào và cần sửa như thế nào ạ. Cám ơn mọi người.

Sub Macro1()
Dim i, j, k, m, n As Integer
m = Cells(22, 23).Value
n = Cells(22, 19).Value
For i = 25 To 25 + m Step 1
For j = 25 To 25 + n Step 1
If Cells(25, 23).Value > Cells(j, 20).Value Then
Cells(i, 15).Value = Cells(j + 1, 21).Value
Else
Cells(i, 15).Value = Cells(j, 21).Value
End If
Next j
Next i
End Sub

 

[Hoàng Tuấn 868]

Em muốn làm việc sau:
- So sánh từng tự các giá trị trong 1 cột với tất cả các giá trị trong cột khác (khoảng cách cộng dồn) nếu lớn hơn giá trị cột ban đầu sẽ trả về giá trị j-1
- Với code ben dưới
Nhờ các cao thủ giúp xem sai sót chỗ nào và cần sửa ntn ạ. Cám ơn mọi người

Sub Macro1()
Dim i, j, k, m, n As Integer
m = Cells(22, 23).Value
n = Cells(22, 19).Value
For i = 25 To 25 + m Step 1
For j = 25 To 25 + n Step 1
If Cells(25, 23).Value > Cells(j, 20).Value Then
Cells(i, 15).Value = Cells(j + 1, 21).Value
Else
Cells(i, 15).Value = Cells(j, 21).Value
End If
Next j
Next i
End Sub

Bạn nên bỏ từ cao thủ và không nên viết tắt thì khả năng được trợ giúp sẽ rất cao.

 

[thaiduy123456]

dạ, do em cũng mới tham gia nhờ các Anh chỉ dẫn. Thank Anh

 

[Hoàng Tuấn 868]

dạ, do em cũng mới tham gia nhờ các Anh chỉ dẫn. Thank Anh

Nếu từ nào tiếng Việt đã có thì cố gắng tận dụng.

 

[thaiduy123456]

Mục đích của em là so sánh các giá trị trong cells(i,23) với tất cả các giá trị trong phạm vi dữ liệu cột 20 (cells(j,20) để trả về giá trị nhỏ hơn gần nhất.
Sub Macro1()
Dim i, j, k, m, n As Integer
m = Cells(22, 23).Value
n = Cells(22, 19).Value
For i = 25 To 25 + m Step 1
For j = 25 To 25 + n Step 1
If Cells(i, 23).Value > Cells(j, 20).Value Then
Cells(i, 15).Value = Cells(j + 1, 21).Value
Else
Cells(i, 15).Value = Cells(j, 21).Value
End If
Next j
Next i

End Sub

Nhờ mọi người xem và cho ý kiến giúp E. Cám ơn mọi người

 

[Hoàng Tuấn 868]

mục đích của e là so sánh các giá trị trong cells(i,23) với tất cả các giá trị trong phạm vi dữ liệu cột 20 (cells(j,20) để trả về giá trị nhỏ hơn gần nhất.
Sub Macro1()
Dim i, j, k, m, n As Integer
m = Cells(22, 23).Value
n = Cells(22, 19).Value
For i = 25 To 25 + m Step 1
For j = 25 To 25 + n Step 1
If Cells(i, 23).Value > Cells(j, 20).Value Then
Cells(i, 15).Value = Cells(j + 1, 21).Value
Else
Cells(i, 15).Value = Cells(j, 21).Value
End If
Next j
Next i

End Sub

Nhờ mọi người xem và cho ý kiến giúp E. Cám ơn mọi người

Tiếc quá, đang định viết cho bạn code mới thì thấy đến bài này vẫn còn viết tắt nên đành thôi, bạn chịu khó chờ bạn khác giúp vậy, thông cảm nhé.

 

[thaiduy123456]

Em viết tắt chỗ nào vậy Anh. Cái phần bên dưới là code. Anh có thể chỉ rõ giúp được không. Do em cũng mới lần đầu đăng lên hỏi.

 

[Hoàng Tuấn 868]

Em viết tắt chỗ nào vậy Anh.

Bạn xem phần bôi đậm bài #6 nhé.