A 回答 (7件)
- 最新から表示
- 回答順に表示
No.5
- 回答日時:
VLOOKUPとINDIRECTを使います。
とりあえずA列にシート名を羅列しているとしますね。
実際はどこでもいいです。
その隣のB列(これも実際はどこでもいいですが)にそのシートの小計を抽出する式を入れます
小計の値が入ってる列が分からないのでZとします。
COLUMN(Z1)というのはZの列番号を取得するので、列がCなら3を直接書いてもいいです。
B1=VLOOKUP("小計",INDIRECT(A1&"!A:Z"),COLUMN(Z1),FALSE)
これで、小計と入力されているセルをA1に書いてあるシート名のシートのA列から探し出し、その行の(A列〜Z列の中で)Z番目のセルに表示されているデータを取得します。
これを、シートの数だけ作り、SUMで合計すれば総合計となります。
No.4
- 回答日時:
小計行を明細行の前(先頭)に持って行ければ簡単ですが、デザイン的に無理ですか?
No.1
- 回答日時:
こんにちは!
「串刺し計算」をやりたい!というコトのようですが、
全てのSheetのレイアウトが同じ(全てのSheetの「小計」のセル番地が同じ)でないと
できないと思います。
そこでVBAになりますが一例です。
「総合計」を表示したいセルはシート見出しの一番最後にあり、
「種類ごと」の「小計」と入っているセルの右となりに求めたい数値(小計)が入力してある!とします。
総合計を表示したいセルは最後のSheetの B20セルと勝手に決めています。
まず、シート見出しにある最後のシート見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'この行から//
If Target.Address = "$B$20" Then '←総合計入力セルを指定 ★
Cancel = True
Call Sample1
End If
End Sub 'この行まで//
次に先ほどコードを入力した画面の
メニュー → 挿入 → 標準モジュール → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)
「総合計」シートのB20セルをダブルクリックしてみてください。
(コード内にも記載していますが、B20セルは実際のセル番地に変更してください)
Sub Sample1() 'この行から//
Dim k As Long, c As Range, myVal As Variant
For k = 1 To Worksheets.Count - 1
Set c = Worksheets(k).Cells.Find(what:="小計", LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
myVal = myVal + c.Offset(, 1)
End If
Next k
Selection = myVal
End Sub 'この行まで//
これで「総合計」シートのB20セルをダブルクリックしてみてください。
おそらく各シートの「小計」セルの右側数値の合計が表示されるはずです。
※ 各シートの「小計」と入力されているセルは一つしか存在しない!
という前提です。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル VBAでセル内容を別の列の最下行に転記したい 2 2022/11/29 08:47
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- Excel(エクセル) 【エクセル】文中に別シートのセルの内容を自動入力したい 6 2022/11/17 11:30
- Visual Basic(VBA) VBAマクロでシートコピーした新シートにコピー元シートとの計算式の入れ方を教えて下さい。 5 2022/11/20 09:48
- Visual Basic(VBA) ExcelのVBAを使い、複数シートの同一箇所を、同一条件にて一括でソルバーを回す方法について 1 2022/04/23 11:49
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Excel(エクセル) 条件に合った数値の合計を表示させたい関数と条件指定の方法 3 2023/05/13 16:07
- Excel(エクセル) Excel シート複数 金額日計表と日付 簡単にシートコピーしたら前日の残高と日付を変更させたい 1 2022/07/15 22:10
- Excel(エクセル) エクセルの数式について ブック内の別シートの値の含まれたセルの個数を集計したい 全シート一覧のシート 1 2022/07/21 19:28
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル初心者です 関数の入れ...
-
Microsoft1Officeの互換ソフト...
-
Excel ピボットテーブルで日付...
-
エクセル関数を教えてください
-
【マクロ】その時、その時で変...
-
【マクロ】読取専用のファイル...
-
LOOKUP関数を使えばいいのでし...
-
エクセル 白黒印刷で白線を印刷...
-
【関数】先頭だけにある、半角...
-
【関数】適切な文字数の数字を...
-
Excelのチェックボックスの使い...
-
エクセルでの作業計算方法について
-
Excelのpivotについて質問です
-
WPS OFFICEでの縦書きについて
-
時間によってファイル名が変わ...
-
エクセルのセルに同じ大きさの...
-
Aというブックの1というシート...
-
エクセルの順位別一覧表の自動...
-
西暦や和暦の表示をyyyymmdd表...
-
【マクロ】エクセルにかいてあ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報