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ベストアンサー
- 回答日時:
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で判断。
以上。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Sheet1の出荷日と品名が並んだ表からSheet2の品名別出荷日別の個数一覧表を作っています。 オ 3 2022/12/01 23:54
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 前回質問の続きになりますが、下記マクロでシート1からシート2の抽出項目セルB3「りんご」とセルC2「 2 2022/12/02 17:37
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) AdvancedFilterについての質問 2 2022/07/02 22:58
- Visual Basic(VBA) 最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列「10月28日」が上書きされて 3 2022/12/05 20:32
- Visual Basic(VBA) C3とC4のセルに、Visual basicで実行した時入力した値をC3に表示させ、その後に、C3に 1 2023/07/14 09:43
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Visual Basic(VBA) EXCELのVBAについて 2 2023/07/05 17:17
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
よくある 『 第○(1・2・3・4・...
-
月の第一週とは
-
週2回のペースって だいたい何...
-
6月の第2 第4火曜日は何日...
-
曜日のなぞ
-
今週とは何曜日から何曜日まで...
-
燃えるゴミの日は何曜日ですか?
-
VBA。複数のChangeイベントをま...
-
毎週同じ曜日にラブホに行くと...
-
日本語問題 昨日は何曜日ですか...
-
毎○曜日って、使いますか?
-
アンケートなどの1日1回の投...
-
HttpClientを利用してのサービ...
-
apacheでPerl CGIが作動せず、5...
-
cgiから別のcgiへの変数...
-
perlのcgiで、変数の中身を表示...
-
CGIの結果をHTMLの一部に貼り付...
-
Pythonのstatsmodelsでカルマン...
-
エクセルで相対パスの書き方を...
-
ファイル書込時にPermission de...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
月の第一週とは
-
よくある 『 第○(1・2・3・4・...
-
エクセルで毎月第2週日の水曜日...
-
毎○曜日って、使いますか?
-
燃えるゴミの日は何曜日ですか?
-
週2回のペースって だいたい何...
-
土曜日の26時って何曜日の何時...
-
[Excel] ある日の曜日が当月の"...
-
6月の第2 第4火曜日は何日...
-
週休3日制で土日の他にもう一日...
-
VBA。複数のChangeイベントをま...
-
Excelで第一〇曜日を求める方法...
-
ユーザー定義の(aaa)
-
一年の第何週目であるかを判断...
-
c言語の質問です。 ある月のカ...
-
今週とは何曜日から何曜日まで...
-
日本語問題 昨日は何曜日ですか...
-
指定曜日にMsgBox表示は可能で...
-
Consolidateメソッドの引数のSo...
-
Excel VBA 第〇△曜日の場合休日...
おすすめ情報