|
▼sakura さん、皆さん、おはようございます。
>試してみました。
>とちゅうで計算が終わってしまいました。
>たぶん説明不足だったのだと思います
>
>
>ちなみに
>G H I J K
> ( ここから上に値が変わりながら日々書き足されていく)
160 6,000 -1,000 -5,000 (ここは-437-160=-597)←401行
>89 9,000 -2,000 0 (ここは-437)
>122 5,000 -1,000 1,000 (ここは-559+122=-437)
>222 15,000 -8,000 -2,000 -559
>357 14,000 -12,000 -12,000 -337
>144 8,000 -6,000 -4,000 20
>164 8,000 -7,000 164(始まりの値)←407行
↑この表に対して、私が投稿したコードを何も変更せずに実行すれば、
>とちゅうで計算が終わってしまいました。
となりますよ!!
上記の表の先頭行が401行だとすると、「164(始まりの値)」という値が入っている
せるは、K407ですよね?
よって、マクロによって、設定するセル範囲は、K401〜K406ということに
なりますね?
前回のコードの
>With Range("k401:k403")
を
With Range("k401:k406")
に変更して下さい。
最終行が事象によって変わる場合があるのなら、
With Range("k401", Cells(Rows.Count, 11).End(xlUp).Offset(-1, 0))
このように変更して下さい。
|
|