1

すべてのデータを含むピボット テーブルから始めています。データ フィールドの 1 つは、最終的にユーザーに送信したい URL 文字列です。

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

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

どんな助けでも大歓迎です！

4

1 に答える 1

1

私の理解が正しければ、(スライサーを適用した後) ピボットテーブルにリンクが 1 つしか表示されないときにコードを起動する必要があります。

Worksheet_PivotTableChangeSyncこれは、イベントとヘルパー セルで実現できます。

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

ここに画像の説明を入力

次に、ワークシート モジュール (通常のモジュールではない) にこのコードを入力します。

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

ピボットテーブルを 1 つの選択のみにスライスすると、COUNTA 数式は 1 に評価され、Worksheet_PivotTableChangeSyncイベントがトリガーされます。

于 2017-10-26T20:09:48.333 に答える