IT未経験の転職ガイド

IT未経験
転職ガイド

TechAcademy受講ガイド

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

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

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

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

グロング
完全利用ガイド

Pick up!

働き方

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

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

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

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

2022/10/19
 
【初心者必見】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でのピボットアイテム数とデータの取得方法

この記事では、VBAでのピボットアイテムの取得方法について紹介しています。

 

これからVBAを使い始めるという方は以下の記事をご覧ください。

 

ピボットアイテムについて

まず初めにピボットアイテムについてです。

ピボットアイテムとは・・・ピボットテーブルのフィールドに属するデータ

 

例えば以下のようなピボットテーブルがあるとします。このピボットテーブルの列には名前という項目が設定されています。

ピボットアイテム解説用


上記画像の赤枠の「名前」フィールドのデータ、青の「性別」フィールドのデータ、紫の「国語」フィールドのデータがピボットアイテムです。

 

VBAによるピボットアイテムの取得方法

一例として、「性別」フィールドのピボットアイテムを取得します。

    ' 「ピボット1」の「性別」フィールドを指定
    With ActiveSheet.PivotTables("ピボット1").PivotFields("性別")
        
        ' ピボットアイテムの数を確認
        MsgBox .PivotItems.Count
        
        Dim num As Long
        For num = 1 To .PivotItems.Count
            ' ピボットアイテムを確認
            MsgBox .PivotItems(num)
        Next
    End With

このコードの手順は以下の通りです。

①ピボットテーブルのフィールドを指定

②ピボットアイテムの数を確認

③ピボットアイテムのデータを確認

 

①ピボットテーブルのフィールドを指定

前提は、ピボットテーブルのシートをアクティブにしていること、ピボットテーブ名が「ピボット1」あることです。

 

ピボットテーブル名の確認方法は以下の記事をご覧ください。

 

②ピボットアイテムの数を確認

次にメッセージボックスを利用して、ピボットアイテムのデータ数を確認しています。

 

数は「.Count」で確認することが可能です。結果は以下の通り、「女」と「男」の2となります。

ピボットアイテム数

 

③ピボットアイテムのデータを確認

最後にピボットアイテムのデータを確認します。ここではFor文を利用しています。For文については以下の記事をご覧ください。

(作成中)

 

注意点としては、配列のインデックス番号は0から数えますが、ピボットアイテムは1から数えます。

 

そのため、1~ピボットアイテム数を繰り返します。結果は以下の通り「女」と「男」を表示しています。

ピボットアイテム表示

ピボットアイテム表示

以上、ピボットアイテム数とデータの取得方法でした!

 

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