錦子老師

U2儲存格函數如下，I2為動態數字

=IF(I2<=-4000,"1",IF(I2<=-2000,"2",IF(I2<=-1000,"3",IF(I2>=4000,"4",IF(I2>=2000,"5",IF (I2>=1000,"6",IF(AND(I2>=500,I2<=-500),"","000")))))))

我想轉換成VBA方式來完成，可以怎麼寫呢!

這是網路上一位名為海綿寶寶的專家所寫的VBA原槁。

Sub Macro1()

If Range("I2") <= -4000 Then

Range("U2") = "1"

ElseIf Range("I2") <= -2000 Then

Range("U2") = "2"

ElseIf Range("I2") <= -1000 Then

Range("U2") = "3"

ElseIf Range("I2") >= 4000 Then

Range("U2") = "4"

ElseIf Range("I2") >= 2000 Then

Range("U2") = "5"

ElseIf Range("I2") >= 1000 Then

Range("U2") = "6"

Else

Range("U2") = "'000"

End If

End Sub