Excel VBA質問箱 IV

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

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


6974 / 13646 ツリー ←次へ | 前へ→

【42028】平均点を算出する関数を繰り返す方法 VBA初心者 06/8/29(火) 23:53 質問[未読]
【42030】Re:平均点を算出する関数を繰り返す方法 かみちゃん 06/8/30(水) 0:07 回答[未読]
【42034】Re:平均点を算出する関数を繰り返す方法 VBA初心者 06/8/30(水) 7:24 お礼[未読]
【42035】Re:平均点を算出する関数を繰り返す方法 かみちゃん 06/8/30(水) 7:33 発言[未読]

【42028】平均点を算出する関数を繰り返す方法
質問  VBA初心者  - 06/8/29(火) 23:53 -

引用なし
パスワード
   同じような質問が出ているかと思いますが、どれも上手く使えないので質問します。
テストの平均点(国語・算数・理科など)をE列からG列までいれて、その平均点をH列に返すのは
ActiveCell.FormulaR1C1 = "=SUM(RC[-3]:RC[-1])"
でできるとおもうのですが、クラスの人数分入力している行全てに反映させるにはどうすればいいですか?(☆の部分)
Do Untilを使えばいいのでしょうか?
教えてください。お願いいたします。

  (列) A    B   C  D  E   F   G   H 
(行)  クラス 名前     国語 算数 理科 平均点 
1   1組  田口      90  85  75  ☆
2   2組  佐藤      85  79  86  ☆
3   3組  市川      77  91  80  ☆
4   4組  山田      95  80  82  ☆
5   5組  野田      65  56  70  ☆

【42030】Re:平均点を算出する関数を繰り返す方法
回答  かみちゃん  - 06/8/30(水) 0:07 -

引用なし
パスワード
   こんにちは。かみちゃん です。

> 入力している行全てに反映させるにはどうすればいいですか?

すべての行に対して一括して数式を設定するには、以下の方法でできます。

Sub Macro1()
 Range("B2", Cells(Rows.Count, 2).End(xlUp)).Offset(, 6).FormulaR1C1 = "=SUM(RC[-3]:RC[-1])"
End Sub

この例では、B2セルからB列の最終行のセルまでの各行の6列右(つまりH列)に
数式を設定するものです。

【42034】Re:平均点を算出する関数を繰り返す方法
お礼  VBA初心者  - 06/8/30(水) 7:24 -

引用なし
パスワード
   ▼かみちゃん さん:
早速のご回答、どうも有難うございます。
下記の構文を入れて実行してみました。
私のやり方がおかしいのか、タイトル行のところまで、反応してSUM関数が入ってしまいました。
重ねての質問で大変申し訳ないのですが、田口の平均点をActiveCellとしてDo で繰り返しを行おうとしたらどうすればいいのでしょうか。
宜しくお願いいたします。


>こんにちは。かみちゃん です。
>
>> 入力している行全てに反映させるにはどうすればいいですか?
>
>すべての行に対して一括して数式を設定するには、以下の方法でできます。
>
>Sub Macro1()
> Range("B2", Cells(Rows.Count, 2).End(xlUp)).Offset(, 6).FormulaR1C1 = "=SUM(RC[-3]:RC[-1])"
>End Sub
>
>この例では、B2セルからB列の最終行のセルまでの各行の6列右(つまりH列)に
>数式を設定するものです。

【42035】Re:平均点を算出する関数を繰り返す方法
発言  かみちゃん  - 06/8/30(水) 7:33 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>私のやり方がおかしいのか、タイトル行のところまで、反応してSUM関数が入ってしまいました。
>田口の平均点をActiveCellとしてDo で繰り返しを行おうとしたらどうすればいいのでしょうか。

ActiveCellとしてDo で繰り返しをする必要はありません。
提示したコードは、「田口」という値がB2にあり、かつ、平均点がH列に表示する例です。
この提示条件でない場合は、提示内容を再度説明していただくか、もしくは、
提示内容にあわせて試してみてください。
こちらでは、タイトル行にSUMは出ません。

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