|
▼sakura さん、皆さん、こんばんは。
> 上に記述したように基本的には同じ処理を一つ上のセルでもくり返したいのですが
>いろいろためしたのですがエラーになります。全くの初心者で周りにくわしい人もいませんので回答をいただければ幸いです。
セルに数式を入れる場合は、セルの相対参照の特徴を使うと
'=======================================================
Sub test()
With Range("k401:k403")
.Formula = "=IF(J" & .Row & ">0,K" & .Row + 1 & _
"+G" & .Row & ",IF(J" & .Row & _
"=0,K" & .Row + 1 & ",K" & .Row + 1 & "-G" & .Row & "))"
' ↑の連結文字列、この場合は(k401:k403)、
' "=IF(J401>0,K402+G401,IF(J401=0,K402,K402-G401))" となります。
'
End With
End Sub
ループでまわす勉強も大事なのですけど、こんな方法もありと言う事で・・。
|
|