
タイトル通りなのですが詳細を書きます。
sheet1からsheet100まで全く同じフォーマットの集計
シートがあります。
シートを甲乙丙の3種類に分類するため、各シートのA1セル
、B1セル、C1セルの何れかに数字の「1」を入れてフラグを
立てています。
A2以下のセルには関数等で計算された数値があります。
ここでA1のセルに「1」が入力されているシートのみの数値を
甲合計シート、B1のセルに「1」が入力されているシート
のみの数値を乙合計シートにという感じで串刺し算で求め
たいのですが、SUMIFではうまくいきませんでした。
甲合計シートのA2セルに関数がおかしいのは承知で
=SUMIF(Sheet1:Sheet100!A2,A1=1,Sheet1:Sheet100!A2)
と入力してもダメでした。
当方VBAは全く知らないのですが、条件付の串刺し算は
関数では実現できないのでしょうか?
VBAでなら可能というのであれば、その方法を教えて
いただけませんか?
No.1ベストアンサー
- 回答日時:
VBAならわかるのでサンプルを書いてみました。
「集計シート」という名前のシートを追加してから
このマクロ(と呼ぶんでしょうか?)をやってみてください。
Sub 集計()
Dim xlSheet As Worksheet
Dim 集計シート As Worksheet
Set 集計シート = ThisWorkbook.Sheets("集計シート")
集計シート.Range("A1:C1").Value = 0
For Each xlSheet In ThisWorkbook.Worksheets
If xlSheet.Name <> "集計シート" Then
If xlSheet.Range("A1").Value = "1" Then
集計シート.Range("A1").Value = _
集計シート.Range("A1").Value + _
Application.WorksheetFunction.Sum(xlSheet.Range("A2:A100"))
ElseIf xlSheet.Range("B1").Value = "1" Then
集計シート.Range("B1").Value = _
集計シート.Range("B1").Value + _
Application.WorksheetFunction.Sum(xlSheet.Range("A2:A100"))
ElseIf xlSheet.Range("C1").Value = "1" Then
集計シート.Range("C1").Value = _
集計シート.Range("C1").Value + _
Application.WorksheetFunction.Sum(xlSheet.Range("A2:A100"))
End If
End If
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Excel(エクセル) シート参照を含む数式を連続コピー 3 2022/12/10 11:42
- Excel(エクセル) Excelで特定の文字列を判定し計算する数式を教えて下さい。 1 2022/05/01 12:04
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
- Excel(エクセル) エクセルシートの合計の変動 5 2022/04/05 15:56
- Excel(エクセル) 前の(左隣の)シートを連続参照するように、あとから変更したい 1 2023/02/22 00:51
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの複数シートの保護を...
-
別シート参照のセルをシート毎...
-
エクセルVBAでパスの¥マークに...
-
特定のシートの削除を禁止した...
-
シート番号からシート名を取得する
-
EXCEL:同じセルへどんどん足し...
-
シートの保護のあとセルの列、...
-
Excelで金銭出納帳。繰越残高を...
-
エクセルでファイルを開いたと...
-
複数シートの色付きセルがある...
-
エクセル 計算式も入っていない...
-
前の(左隣の)シートを連続参...
-
エクセルで前シートを参照して...
-
エクセルで前のシートを連続参...
-
エクセルのシート名をリスト化...
-
VBAでシートコピー後、シート名...
-
シートを追加・名前を次月に変...
-
エクセルで毎回1枚目のシートを...
-
エクセルVBA 串刺し計算の際、...
-
シート名ではなく、相対位置で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの複数シートの保護を...
-
Excelで金銭出納帳。繰越残高を...
-
別シート参照のセルをシート毎...
-
前の(左隣の)シートを連続参...
-
エクセルで前シートを参照して...
-
エクセルでファイルを開いたと...
-
エクセル 計算式も入っていない...
-
エクセルで前のシートを連続参...
-
Accessのスプレッドシートエク...
-
特定のシートの削除を禁止した...
-
EXCEL:同じセルへどんどん足し...
-
エクセルVBAでパスの¥マークに...
-
シートの保護のあとセルの列、...
-
Excel、同じフォルダ内のExcel...
-
エクセルのシート名をリスト化...
-
シート番号からシート名を取得する
-
Excelのシートを、まとめて表示...
-
EXCELで1ヶ月分の連続した日付...
-
excelでシート毎の最終更新日を...
-
エクセルで毎回1枚目のシートを...
おすすめ情報