Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


62674 / 76732 ←次へ | 前へ→

【18663】Re:結果をもとに処理をくり返すには?
発言  ichinose  - 04/10/4(月) 8:36 -

引用なし
パスワード
   ▼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))

このように変更して下さい。

0 hits

【18635】結果をもとに処理をくり返すには? sakura 04/10/2(土) 15:19 質問
【18636】Re:結果をもとに処理をくり返すには? ちゃっぴ 04/10/2(土) 15:36 回答
【18639】Re:結果をもとに処理をくり返すには? Hirofumi 04/10/2(土) 15:57 回答
【18656】Re:結果をもとに処理をくり返すには? sakura 04/10/3(日) 16:05 お礼
【18658】Re:結果をもとに処理をくり返すには? Hirofumi 04/10/3(日) 17:06 回答
【18643】Re:結果をもとに処理をくり返すには? ichinose 04/10/2(土) 20:26 発言
【18659】Re:結果をもとに処理をくり返すには? sakura 04/10/3(日) 17:08 お礼
【18660】Re:結果をもとに処理をくり返すには? Hirofumi 04/10/3(日) 17:27 発言
【18661】Re:結果をもとに処理をくり返すには? ちゃっぴ 04/10/3(日) 17:40 発言
【18663】Re:結果をもとに処理をくり返すには? ichinose 04/10/4(月) 8:36 発言
【18700】Re:結果をもとに処理をくり返すには? sakura 04/10/6(水) 12:15 お礼
【18672】Re:結果をもとに処理をくり返すには? [名前なし] 04/10/4(月) 22:31 発言
【18698】Re:結果をもとに処理をくり返すには? sakura 04/10/6(水) 12:00 回答

62674 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free