オプションボタンを使用して書式設定自動レポート
このヒントを使用すると、レポートユーザーは、オプションボタンを使用していくつかのピボットテーブル形式から選択し、ピボットテーブルを自動的に更新できます。 (ユーザーがピボットテーブルツールバーに移動して毎回1つを選択しなくても、レポート形式の設定がある場合に便利です)
ステップ1:
ピボットテーブルレポートワークシートの任意の場所にオプションボタン(または複数)を配置し、「レポート形式1」、「レポート形式2」などの名前を付けます…
これを行うには、[表示]> [ツールバー]> [フォーム]に移動し、[オプションボタン]を選択します
ツールボックスからレポートにドラッグします。
ステップ2:
「ツール>マクロ>マクロ」に移動してマクロを作成し、「Format2」、「作成」などの名前を入力します
次のVBコードを入力するか、切り取って貼り付けます。 (注:ピボットテーブルの任意の場所を右クリックして[テーブルオプション]を選択し、[名前]フィールドを確認して、ピボットテーブルにデフォルト名の「PivotTable1」のラベルが付いていることを確認します。それ以外の場合は、置き換える必要があります。以下のコードのピボットテーブル名と、ピボットテーブルの名前):
サブフォーマット2()
‘Format2 Macro ActiveSheet.PivotTables( “PivotTable1″)。PivotSelect “”、xlDataAndLabel、True ActiveSheet.PivotTables( “PivotTable1″)。Format xlReport6 Cells.Select With Selection .HorizontalAlignment = xlGeneral .VerticalAlignment = xlBottom .WrapText = False .Orient 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext End With With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False ReadingOrder = xlContext End With Cells.Select Selection.Columns.Autofit Range( “A1″)。Select End Subこれと同じコードを使用してさまざまな形式のマクロを作成でき、変更する必要があるのは「形式xlReport6」だけです。約15のレポート形式から選択できます。 「xlReport(number)」を1から15に変更するだけです。
上記のコードは、レポートがフォーマットされた後、列を自動的に自動調整し、テキストを中央揃えにします。
ステップ3:
オプションボタンを右クリックしてマクロをオプションボタンに割り当て、[マクロの割り当て]を選択して、作成したマクロを選択するだけです。オプションボタンごとにこれを実行します。これで完了です。これで、ユーザーがオプションボタンをクリックすると、ピボットテーブルは、マクロで使用されたフォーマットオプションに基づいたフォーマットに自動的に更新されます。いくつかのレポートスタイルをテストして、ニーズに合ったものを確認し、それらをマクロとオプションボタンに割り当てます。
あなたのユーザーは感謝し、非常に感銘を受けるでしょう!
幸運を!
〜CJ