|
Sub obvの計算()
Select Case Range("j403").Value
Case Is > 0
Range("k403").Value = "=k404+g403"
Case Is = 0
Range("k403").Value = "=k404"
Case Is < 0
Range("k403").Value = "=k404-g403"
End Select
Select Case Range("j402").Value
Case Is > 0
Range("k402").Value = "=k403+g402"
Case Is = 0
Range("k402").Value = "=k403"
Case Is < 0
Range("k402").Value = "=k403-g402"
End Select
Select Case Range("j401").Value
Case Is > 0
Range("k401").Value = "=k402+g401"
Case Is = 0
Range("k401").Value = "=k402"
Case Is < 0
Range("k401").Value = "=k402-g401"
End Select
上に記述したように基本的には同じ処理を一つ上のセルでもくり返したいのですが
いろいろためしたのですがエラーになります。全くの初心者で周りにくわしい人もいませんので回答をいただければ幸いです。
|
|