G列に名前、0列に点数があります。
ピボットテーブルで
名前, 平均/点数, 個数/点数
と横に表記したいのですが、
名前, 平均/点数,
個数/点数
と2行分かれて表記されます。
マクロは以下です。どこをどう変更したらよいでしょうか。
'ピボットテーブル作成
Dim pvt As PivotTable
Dim rngData As Range
Set rngData = ActiveSheet.Range("A1").CurrentRegion
Sheets.Add
Set pvt = _
ActiveWorkbook.PivotCaches.Add( _
SourceType:=xlDatabase, _
SourceData:=rngData). _
CreatePivotTable(TableDestination:=Range("A3"))
With pvt
.PivotFields("名前").Orientation = xlRowField
.PivotFields("点数").Orientation = xlDataField
pvt.DataFields(1).Function = xlAverage
With pvt
.PivotFields("名前").Orientation = xlRowField
.PivotFields("点数").Orientation = xlDataField
pvt.DataFields(1).Function = xlCount
End With
End With
'
No.1ベストアンサー
- 回答日時:
'ピボットテーブル作成
Dim pvt As PivotTable
Dim rngData As Range
Set rngData = ActiveSheet.Range("A1").CurrentRegion
Sheets.Add
Set pvt = _
ActiveWorkbook.PivotCaches.Add( _
SourceType:=xlDatabase, _
SourceData:=rngData). _
CreatePivotTable(TableDestination:=Range("A3"))
With pvt
.PivotFields("名前").Orientation = xlRowField
.PivotFields("点数").Orientation = xlDataField
.PivotFields("点数").Orientation = xlDataField
.DataFields(1).Function = xlAverage
.DataFields(2).Function = xlCount
.datafields(1).caption = "平均/点数"
.datafields(2).caption = "個数/点数"
.datapivotfield.orientation = xlcolumnfield
End With
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- C言語・C++・C# C言語 プログラミング 4 2022/05/22 11:53
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Excel(エクセル) マクロか関数で処理したいのですが、教えて頂けませんか。 8 2022/10/31 15:18
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) Excel_マクロ_現在開いているシートにマクロを実行したいです 1 2023/02/14 23:54
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
名前を呼ばずに「すみません」...
-
複雑なシフト表から1日ごとの...
-
人名にあまりふさわしくない名...
-
男の名前で ゆうや ゆうた ゆう...
-
みなさん、恋人のLINEの名前は...
-
名前を呼ばれる方と、名前を呼...
-
「ねぇ」って呼ばれると不快で...
-
Hの最中に違う女の名前を言わ...
-
ジャージのズボンで裾を絞って...
-
AV女優の名前教えてください
-
マイページとは?どこにありま...
-
急に名前を呼ばれなくなった 職...
-
AV女優の名前教えて
-
知らない外国人から突然、LINE...
-
今LINEの名前をフルネームで登...
-
DNAの化学名って何ですか?
-
AV女優の名前教えて
-
私の名前は莉奈(りな)です あ...
-
「失礼ですが・・・」と名前を...
-
彼氏が「君」っていいます
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複雑なシフト表から1日ごとの...
-
名前を呼ばずに「すみません」...
-
彼氏が「君」っていいます
-
電話をかけてきて、社名だけで...
-
「失礼ですが・・・」と名前を...
-
名前の表札がないマンションの...
-
Hの最中に違う女の名前を言わ...
-
彼氏が良く、「◯◯(私の名前)」...
-
マイページとは?どこにありま...
-
境界性人格障害者のターゲット...
-
今LINEの名前をフルネームで登...
-
日本人の何人に1人ぐらいが、 ...
-
みなさん、恋人のLINEの名前は...
-
名前を呼ばれる方と、名前を呼...
-
女子に聞きたい。 異性に名前は...
-
メールで彼女の名前を打ち間違えた
-
人名にあまりふさわしくない名...
-
パソコン名をどうしていますか?
-
私が「なんて呼んだらいい?」と...
-
AV女優の名前教えて
おすすめ情報