![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
品名 7列ごとの固まりが毎週ごとに右の列に送られる状態になります。週ごとに列が増えていく画像のような表があります。それの各行の集計についてです。
X4~AD42=SUM(INDEX(INDIRECT("RC38:RC177",0)*(MOD(COLUMN(INDIRECT("A1:EJ1"))-1,7)=COLUMN(A1)-1),0))
以前に画像のような「レイアウト」で行の合計をするために、作って頂いた関数ですが、AL列からのものでした。それが、AE列に変更することになり、修正したのですがエラーになって合計してくれません。どのように変更したらよいでしょうか。教え頂けませんか、よろしくお願いします。
なお、RC38がA列から38列目ではと思い、AEは後戻りした列と思って「RC31」にしてみましたが、できませんでした。その他色々とやってみましたが、エラーです。
下記のマクロで合計を以降していた
Range("AE1:AK45").Value = Range("Q1:W45").Value
その週を以降したもの その週の合計
Range("AE1:AK45").Insert Shift:=xlToRight
シフトしたため空白ができていた(つまり、AL~の合計になっていた)
今後修正が必要なため、随時修正してゆく予定です
下記のようにしたら、空白がなくなった。このような修正で合計の以降がAE~になった。
Range("AE1:AK45").Insert Shift:=xlToRight
Range("AE1:AK52").Value = Range("Q1:W52").Value
その週を以降したもの その週の合計
どのセルに入っていたのかについて、総合計(X4~AD45)のそれぞれに入ります。4行目のX4~AD4からを数式としてコピぺをしたら下記のように変化します。
COLUMN(A1)-1),0))のA1のところが、=A1~G42のように変化しています。その他は、変化しません。
X~AD列
4行 X4=A1 Y4=B1 Z4=C1 AA4=D1 AB4=E1 AC4=F1 AD4=G1
5行 X5=A2 Y5=B2 Z5=C2 AA5=D2 AB5=E2 AC5=F2 AD5=G2
6行 X6=A3 Y5=B3 Z6=C3 AA6=D3 AB6=E3 AC6=F3 AD6=G3
↓
45行 X45=A42 Y45=B42 Z45=C42 AA45=D42 AB45=E42 AC45=F42 AD45=G42
RC38がALと考えるのであればAL~AR列にその週の以降したものが入る
現在はAE~に変えられたが、合計がALからで、AEからになっていない関数になってしまっている。
毎日の仕入れは、C列~I列に記録すると、週ごとと・累計に入るようになる。その後マクロでAE列からに順次増えてずれていくようになる。
1週目が入れば、2・3・4週目・・・・というように、増えて行くのでRC177が20週程度の列になるということだと思います。(範囲ということだと思います)
動かないのは、X~AD列が動かず固定してここに増えていったものの合計が表示されるのです
![「Excel関数 集計についての関数につい」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/2/405111_57400ae85affe/M.png)
No.1ベストアンサー
- 回答日時:
で
=SUMIF(INDEX($3:$3,31):INDEX($3:$3,140),"A",INDEX(4:4,31):INDEX(4:4,140))
を提示済み
マクロが分かるなら、数式をマクロで書き直すだけのこと
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) マクロだと数式が表示される 2 2022/09/10 14:48
- Excel(エクセル) 週毎の集計 2 2023/08/04 16:56
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Excel(エクセル) エクセル 関数について質問です。 2 2022/10/03 11:14
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
- Visual Basic(VBA) 2つのシートの任意のセルの番号が一致したら、一致した行をコピーする VBA 2 2023/06/19 20:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
一行おきにコピーするマクロが...
-
Excelの非表示列も含めてコピー
-
エクセルで表示された値だけ行...
-
[Excel VBA]空白セル以外に連番...
-
エクセル マクロ 貼り付け先が...
-
エクセルで空白以外のセルの値...
-
Excel 条件に従いセル移動するには
-
シート保護の状態で行の追加を...
-
日報に自動で矢印線をひきたい
-
エクセルのマクロ、AVERAGEIFを...
-
エクセルVBA 並び替え セルの...
-
Excel VBAで日にちを入力して線...
-
マクロで値がある列までコピー
-
エクセルで反転コピー
-
【マクロ】IF複数条件の上限に...
-
エクセル VBA 指定の範囲内をコ...
-
マクロ初心者です、小数点6桁で...
-
特定の桁数を抽出
-
エクセルの関数について(日付で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
一行おきにコピーするマクロが...
-
【マクロ】セルに関数を入れる...
-
Excelの非表示列も含めてコピー
-
シート保護の状態で行の追加を...
-
エクセルの関数について(日付で...
-
エクセルで表示された値だけ行...
-
エクセルで空白以外のセルの値...
-
エクセルで行挿入した際、自動...
-
エクセル VBA 指定の範囲内をコ...
-
エクセル マクロ 貼り付け先が...
-
特定の桁数を抽出
-
Excel VBAで日にちを入力して線...
-
[Excel VBA]空白セル以外に連番...
-
エクセルVBA 複数列をコピーす...
-
最終行から上10行をコピーする...
-
エクセルで反転コピー
-
エクセルのマクロ、AVERAGEIFを...
-
【マクロ】IF複数条件の上限に...
-
同一列内の複数条件 カウント
おすすめ情報