Các bác giúp em đoạn code này nữa nhé.thanks

[khoavu87]

em loay hoay mãi mà ko làm đc.Bác nào giúp nhiệt tình nhé.thanks

 

[sealand]

Tối thư 7 ngồi nhà, lên mạng muốn xem bạn cần gì nhưng không sao xem được (Mình dùng Excel 2003)

 

[haituan]

Re:

Bạn chỉnh lại chút code là được thôi mà bạn.
M ko biểt về lập trình nhiều lắm. Thử nghịch chút thôi! bạn tham khảo nhé!!!

Sub locso()
Dim rng As Range
For Each rng In ActiveSheet.Range("E9:E20")
If rng.Value >= 4 Then
rng.Offset(, 4).Value = 0.38
ElseIf rng.Value >= 2 Then
rng.Offset(, 4).Value = 1
Else
rng.Offset(, 4).Value = 6.4
End If
Next
End Sub

Bonne chance!!!

 

[khoavu87]

ồ rất cảm ơn anh,vậy mà em loay hoay mãi ko đc.

 

[ndu96081631]

Bạn chỉnh lại chút code là được thôi mà bạn.
M ko biểt về lập trình nhiều lắm. Thử nghịch chút thôi! bạn tham khảo nhé!!!

Sub locso()
Dim rng As Range
For Each rng In ActiveSheet.Range("E9:E20")
If rng.Value >= 4 Then
rng.Offset(, 4).Value = 0.38
ElseIf rng.Value >= 2 Then
rng.Offset(, 4).Value = 1
Else
rng.Offset(, 4).Value = 6.4
End If
Next
End Sub

Bonne chance!!!

Cái gì có thể viết thành công thức thì khi chuyển sang VBA ta cũng viết y chang vậy là gọn nhất (khỏi cần For)
Viết thế này đây:

Sub locso()
  With Range("E9:E20")
    .Offset(, 1).Value = "=IF(RC[-1]>=4,0.38,IF(RC[-1]>=2,1,6.4))"
    .Value = .Value
  End With
End Sub