集計に項目を追加表示したい | |
---|---|
[194690] 集計に項目を追加表示したい- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ 吉田 -(2022/01/26(11:22)) □U R L/ 集計をやりたく、 マクロ記録を実行し、結果をコピー、 範囲の設定だけに手を加えて完成しました。 これで充分なのですが、 当然なのかもしれませんが、 表示された集計結果には、 キーにしている項目と、合計だけしか表示されていません。 キーにはなっていませんが、 キーの様に全てが同じ項目が在ります。 この項目も表示させたいのですが、 方法は在りますでしょうか。 イメージは以下の通りです。 abc 3000 x abc 25000 x abc 820 x xyz 12000 y xyz 1200 y xyz 800 y 上記で「abc」、「xyz」が集計キーです。 そして、「x」、「y」が表示したい項目です。 希望ですが、 abc 28820 x xyz 14000 y の如くに。 excel2003です。 宜しくお願いします。 ++++++++++++++++++++ OS ⇒OTHER Version⇒Excel 2003 ++++++++++++++++++++ |
[194691] Re[1]: 集計に項目を追加表示したい- ■記事引用/メール受信=OFF■ □投稿者/ 吉田 -(2022/01/26(11:34)) □U R L/ 肝心なことを書き忘れました。 現在は初めに書きましたようにマクロ記録で作成しています。 なので現在のコードは、 集計本体は範囲を決めるだけを加えただけで、 マクロ記録そのものです。 ここに、今回お願いした部分を加えるなりどうにかしたいというお願いです。 ダメなら一から全てを作ることになると思っています。 宜しくお願いします。 |
[194692] Re[2]: 集計に項目を追加表示したい- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2022/01/26(12:46)) □U R L/ > > 現在は初めに書きましたようにマクロ記録で作成しています。 > なので現在のコードは、 > 集計本体は範囲を決めるだけを加えただけで、 > マクロ記録そのものです。 > > ここに、今回お願いした部分を加えるなりどうにかしたいというお願いです。 現在のコードを提示していただけますか。 |
[194693] Re[3]: 集計に項目を追加表示したい- ■記事引用/メール受信=OFF■ □投稿者/ 吉田 -(2022/01/26(12:55)) □U R L/ マナ様、早速ありがとうございます。 単純にマクロ記録したままで以下の通りです。 Sub shuukei8() Range("A3:K" & Range("B" & Rows.Count).End(xlUp).Row).Select Selection.Sort Key1:=Range("I4"), Order1:=xlAscending, Key2:=Range("B4") _ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _ xlSortNormal, DataOption2:=xlSortNormal Selection.Subtotal GroupBy:=9, Function:=xlSum, TotalList:=Array(11), _ Replace:=False, PageBreaks:=False, SummaryBelowData:=True ActiveSheet.Outline.ShowLevels RowLevels:=2 End Sub 変更は1行目の範囲指定だけで、 追加したい項目は「B」列に在ります。 宜しくお願いします。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 |
[194694] Re[4]: 集計に項目を追加表示したい- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2022/01/26(13:05)) □U R L/ B列を選択し ジャンプ機能で空白セルを指定 数式を入力:=一つ上のセル こんな感じでどうでしょうか。 期待通りなら、「マクロの記録」を実行。 |
[194695] Re[5]: 集計に項目を追加表示したい- ■ / 記事引用/メール受信=OFF■ □投稿者/ 吉田 -(2022/01/26(13:50)) □U R L/ マナ様、有難うございました。 完成しました。 ジャンプ機能などはこれまで使ったことが無く、 思いもよりませんでした。 また今回、一つ上のセル、というコードも覚えました。 手作業と思っていましたが、 すんなり出来てしまい、 嬉しい限りです。 お世話になりました。 |
このトピックに書きこむ |
---|