函數公式寫成VBA
|
2063 |
函數公式寫成VBA |
||||
|
實用性 |
●○○ |
難易度 |
●○○○ |
範本檔 |
2062.XLSX |
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