2017-10-26 6 views
1

私のすべてのデータを持つピボットテーブルから始めます。データフィールドの1つは、最終的にユーザーを送信するURL文字列です。Slicerに基づくピボットテーブルのリンクをコピーするマクロボタン

できるだけ簡単にピボットテーブルを検索するには、ユーザーが検索条件をクリックできるようにいくつかのスライサーウィンドウがあります。私がしたいのは、検索条件に基づいています(ある結果に絞り込まれています)、ピボットテーブルにあるリンクを使って自動的にブラウザを起動するマクロボタンがあります。

ブラウザの起動(またはコピーテキストのみ)がわかりますが、ピボットテーブルに関連付けられているスライサーの選択に基づいてマクロボタンのアクションをプログラムできる方法がありますか?

ご協力いただければ幸いです。

答えて

1

正しく理解していれば、(スライサーを適用した後で)ピボットテーブルに1つのリンクしか表示されていないときに、コードを起動したいと考えています。

Worksheet_PivotTableChangeSyncイベントとヘルパーセルでこれを達成できます。

GのピボットテーブルをセルG2から開始するとします。この数式=COUNTA(G3:G20)をセルG1に入力します(必要に応じて範囲を調整します)。

enter image description here

その後、ワークシートモジュール(ではない通常のモジュール)にこのコードを入力してください。あなたが唯一の選択にあなたのピボットテーブルをスライスするとき

Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable) 
Dim a As Long 
a = Range("G1").Value 
If a = 1 Then 
    'your code for link in cell G3 
Else 
End If 
End Sub 

さて、COUNTA式は1に評価し、Worksheet_PivotTableChangeSyncイベントをトリガします。

関連する問題