IT未経験の転職ガイド

IT未経験
転職ガイド

TechAcademy受講ガイド

プログラミング
スキル習得

マイプロテインってどんなブランド?【おすすめな理由を徹底解説】

マイプロテイン
完全利用ガイド

GronG(グロング)のプロテインは評判が良い?【この記事を読めば購入に失敗しません】

グロング
完全利用ガイド

Pick up!

働き方

 
社会人の「つまらない」を抜け出す方法を解説【行動の意味を考える】

社会人の「つまらない」を抜け出す方法を解説【行動の意味を考える】

2022/02/18
 
【徹底解剖】テックアカデミーのフロントエンドコースの情報まとめ

【徹底解剖】テックアカデミーのフロントエンドコースの情報まとめ

2021/09/16
 
【初心者必見】VBAで業務効率化を実現するまでのロードマップ【6つの手順で実現】

VBAで業務効率化を実現するまでのロードマップ【6つの手順で実現】

2021/04/13

筋トレ・サプリ

 
マイプロテインってどんなブランド?【おすすめな理由を徹底解説】

マイプロテインってどんなブランド?【おすすめな理由を徹底解説】

2021/04/16
 
【GronG/グロング】スタンダードとベーシックの違いは?【おすすめが決定】

【GronG/グロング】スタンダードとベーシックの違いは?【おすすめが決定】

2022/06/15
 
【1番おすすめのホエイプロテインが決定】勝手に点数評価して比較しました

【1番おすすめのホエイプロテインが決定】勝手に点数評価して比較しました

2021/05/15

エンタメ

 
【徹底解剖】アローバースを理解するための完全ガイド【見どころをまとめました】

アローバースを理解するための完全ガイド【見どころをまとめました】

2021/04/26
 
【トム・ハーディ】おすすめ映画5作品

【トム・ハーディ】おすすめ映画5作品

2019/03/09
 
【どんな役でもこなす俳優マーク・ウォールバーグ】おすすめ映画17選

【どんな役でもこなす俳優マーク・ウォールバーグ】おすすめ映画17選

2020/03/22

コラム

 
【入院前に必ず読んでください】病室での生活を快適にする便利グッズを紹介【体験談あり】

病室での生活を快適にする便利グッズを紹介【体験談あり】

2021/05/24
 
入院時におすすめのWi-Fiレンタルサービスを紹介

入院時におすすめのWi-Fiレンタルサービスを紹介

2021/07/20
 
【健康に良いおすすめの入浴剤は?】入浴剤を悩みに沿ったおすすめ10選

【健康に良いおすすめの入浴剤は?】入浴剤を悩みに沿ったおすすめ10選

2020/03/16

新着&プロフィール

【Excelマクロ】VBAによるピボットテーブルのフィールド設定方法

【Excelマクロ】VBAによるピボットテーブルのフィールド設定方法

この記事では、Excelマクロ、VBAを活用したピボットテーブルの自動化の中でも、特にフィールドの設定方法について、紹介しています。

 

Excelマクロの利用を始める方は、まず以下の記事をご覧ください。

 

また、VBAでのピボットテーブルの作成方法については、以下の記事をご覧ください。

 

それでは、本題に入っていきます。以下のような表があるとします。

表

こちらの表でピボットテーブルを作成し、以下の状態だとします。

ピボット作成画面

 

補足

前提として、VBAを使わない場合もそうですが、ピボットテーブルを操作するときは、ピボットテーブルのどこかを選択している必要があります。上記の表の場合は、A3を選択している状態です。以降は、A3を選択している前提で進めます。

 

ちなみに、A3を選択するためのコードは以下の通りです。

    ' ピボットテーブルのセルを選択
    Sheets("ピボットテーブル").Select
    Cells(3, 1).Select

 

補足は以上で、本題に戻ります。ピボットテーブルのフィールド設定は「フィルター」「列」「行」「値」のどれかを指定します。

 

今回の例では、以下のような設定をするとします。

フィルター → 学年

列 → クラス

行 → 名前

値 → 国語

 

前提として、このピボットテーブルの名前は「ピボット1」です。ピボットテーブルの名前の確認方法は以下より確認下さい。

 

ピボット1にVBAでフィールドを設定するには、以下のようなコードとなります。

Sub フィールド設定()
    ' フィールド設定
    With ActiveSheet.PivotTables("ピボット1")
        ' フィルター設定
        .PivotFields("学年").Orientation = xlPageField
        
        ' 列設定
        .PivotFields("クラス").Orientation = xlColumnField
        
        ' 行設定
        .PivotFields("名前").Orientation = xlRowField
        
        ' 値設定
        .PivotFields("国語").Orientation = xlDataField
    End With
End Sub

 

上記のコードを実行すると以下のようになります。

マクロ実行後のピボット画面

以上、VBAでピボットテーブルのフィールドを設定する方法でした。

 

ピボットテーブルでフィルターを設定する方法(作成中)

ピボットテーブルの値を設定する方法まとめ(作成中)

 

以下、VBAを学ぶのにおすすめの書籍となっています。ぜひ参考にしてください。