Consolidateメソッドの引数のSource部を自動取得をしたい

Consolidateメソッドを使用したマクロでシート間の値の合計・平均や標準偏差を求めていますが、
曜日別の条件下で多数シートの集計を行いたいのです。
例えば

Sub syuukei()
Worksheets.Add
ActiveSheet.Name="heikin"
Worksheets("heikin").Range("c2:c5").Consolidate _
Sources:=Array("Sheet1!R2C3:R5C3","Sheet6!R2C3:R5C3","Sheet8!R2C3:R5C3"・・・) _
,Function:=xlAverage
End Sub

のようなマクロがある場合、Sources:=以下の統合元範囲を条件(曜日)によって取得するにはどうすれば
よいのでしょうか？各シートには曜日を判断させるためにフラグとして同じセル番地に曜日をいれてあり
ます。なにかよい方法はありませんでしょうか？

No.1 ベストアンサー 回答者： taocat 回答日時： 2004/09/14 21:54

Dim Adrs

Select Case Worksheets(1).Range("A1").Value
　Case "日"
　　　Adrs = "R2C3:R5C3"
　Case "月"
　　　Adrs = "R2C4:R5C4"
　Case "火"

End Select


Sources:= _
　Array("Sheet1!" & Adrs, _
　　　　"Sheet6!" & Adrs, _
　　　　"Sheet8!" & Adrs, ・・・)


てな具合で、変数Adrsに範囲を入れてもできます。
曜日はSheet1のA1で判断。
以上。
　

この回答へのお礼

そうですね。シート名を配列変数に格納するようにすれば
うまくいきました。ありがとうございました。

お礼日時：2004/09/15 11:00