別のシートを参照して計算する方法

質問です。
シート１に数値が入力してあり、そこで計算した結果をシート２に貼り付けるにはどのようにすればいいのでしょうか？

Worksheets("シート２").Cells(3 + g, 3 * c) = _
Worksheets("シート１").Select.WorksheetFunction._
Average(Range(Cells(e, g + 2), Cells(f, g + 2)))

と書いたのですが、上手くいきません。

おそらく
Worksheets("シート１").Select.WorksheetFunction._
Average(Range(Cells(e, g + 2), Cells(f, g + 2)))

の部分がおかしいと思うのですが、どうすればよいでしょうか？
よろしくお願いします。

No.1 ベストアンサー 回答者： myRange 回答日時： 2009/11/14 14:35

>Worksheets("シート１").Select.WorksheetFunction._

>Average(Range(Cells(e, g + 2), Cells(f, g + 2)))

Worksheets("シート１").Select.　が不要です。
そして、Range,Cellsの前にWorksheets("シート１")を付けます

Worksheets("シート２").Cells(3 + g, 3 * c) = _
　WorksheetFunction.Average(Worksheets("シート１").Range(Worksheets("シート１").Cells(e, g + 2), Worksheets("シート１").Cells(f, g + 2)))

これでは長すぎるので、Withステートメントを使って

With Worksheets("シート１")
　Worksheets("シート２").Cells(3 + g, 3 * c) = _
　　　WorksheetFunction.Average(.Range(.Cells(e, g + 2), .Cells(f, g + 2)))
End With

として方が見やすいですね。
以上です。

この回答へのお礼

なるほど、こんなに上手に書けるんですね！
はやくこのようにスラスラとスマートにプログラムが
かけるようになりたいです。
ありがとうございました。

お礼日時：2009/11/14 14:40

No.2 回答者： watabe007 回答日時： 2009/11/14 14:37

>と書いたのですが、上手くいきません。

Cellsに変数を入れる前に実数を入れてコードが正しく動くか確認しましょう。
With Worksheets("Sheet1")
　　Worksheets("Sheet2").Cells(3, 3).Value = _
　　　　WorksheetFunction.Average(.Range(.Cells(3, 4), .Cells(10, 4)))
End With

この回答へのお礼

with　関数を使えばよかったんですね。
勉強になりました。
ありがとうございます。

お礼日時：2009/11/14 14:41