Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

64445 / 76807

←次へ　｜　前へ→


	【16943】Re:処理の繰り返しを教えてください。

初心者

- 04/8/16(月) 22:57 -


	引用なし

	パスワード

こんばんわ。こんなのでどうでしょう？？

Sub TEST()
　　Cells(2, 3).Select
　　ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
　　
　 Do Until ActiveCell.Offset(, -1).Value = ""

　　With ActiveCell
　.Offset(1).Select
　　.Formula = "=RC[-2]-RC[-1]"

　 End With
　Loop
　
End Sub

▼takenoko さん：
>このページを見つけ、凄い方々がいらっしゃるのだと驚きました。
>私の質問を聞いていただけたら幸いです。
>次のように列項目
>売上高　材料原価　付加価値
>10000　　2000
>20000　　2500
>30000　　3000
>40000　　3000　
>　　　　　　　　　　　　　　がありこのようにレコードが数十行あります。
>
>隣の項目に付加価値（＝売上高ー材料原価）を売上高の列に数字があるだけ
>マクロで計算させたいのです。つまり売上高、材料原価が空欄になるまで
>計算をさせたいのです。ただし、列数は変わりませんが毎回レコード数は変動します。
>何か良い案がありましたらご指導お願いいたします。
>
>
>

0 hits

▼

【16941】処理の繰り返しを教えてください。 takenoko 04/8/16(月) 21:42