Excel VBA質問箱 IV

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

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


64333 / 76732 ←次へ | 前へ→

【16980】Re:処理の繰り返しを教えてください。
回答  初心者 E-MAIL  - 04/8/17(火) 23:44 -

引用なし
パスワード
   返信遅くなりました。

.Offset(1).Select
.Formula = "=RC[-2]-RC[-1]"
の前の"With ActiveCell"でActiveCellを省略しています。
何度も同じコマンドを使う時、With〜で省略できるそうです。
その場合、"end with"を最後に入れます。

▼takenoko さん:
>ご解答ありがとうございました。
>参考にさせていただきうまく機能いたしました。
>今回のことで質問なのですが
>With ActiveCell
> .Offset(1).Select
> .Formula = "=RC[-2]-RC[-1]"
>のところでなぜピリオドから始まっているのでしょうか?
>あまり知識がないもので非常に不思議に思っているのですが
>もしお時間がありましたらご指導お願い致します。
>
>
>▼初心者 さん:
>>こんばんわ。こんなのでどうでしょう??
>>
>>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 
>>>              がありこのようにレコードが数十行あります。
>>>
>>>隣の項目に付加価値(=売上高ー材料原価)を売上高の列に数字があるだけ
>>>マクロで計算させたいのです。つまり売上高、材料原価が空欄になるまで
>>>計算をさせたいのです。ただし、列数は変わりませんが毎回レコード数は変動します。
>>>何か良い案がありましたらご指導お願いいたします。
>>>
>>>
>>>
1 hits

【16941】処理の繰り返しを教えてください。 takenoko 04/8/16(月) 21:42 質問
【16943】Re:処理の繰り返しを教えてください。 初心者 04/8/16(月) 22:57 回答
【16975】Re:処理の繰り返しを教えてください。 takenoko 04/8/17(火) 21:56 質問
【16977】Re:処理の繰り返しを教えてください。 IROC 04/8/17(火) 22:30 回答
【16980】Re:処理の繰り返しを教えてください。 初心者 04/8/17(火) 23:44 回答
【16946】Re:処理の繰り返しを教えてください。 Asaki 04/8/16(月) 23:14 回答
【16950】Re:処理の繰り返しを教えてください。 IROC 04/8/17(火) 8:44 回答
【16976】Re:処理の繰り返しを教えてください。 takenoko 04/8/17(火) 22:30 質問
【16982】Re:処理の繰り返しを教えてください。 Asaki 04/8/17(火) 23:52 回答
【17016】Re:処理の繰り返しを教えてください。 takenoko 04/8/18(水) 20:46 お礼

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