2016-07-28 7 views
-1

私は、リフレッシュごとに行番号を変更するピボットテーブルを持っています。それの近くで(次の列)、ピボットテーブルの一部ではないピボットテーブルデータを使用する計算列を作成しました。Excel 2013で計算カロムとピボットテーブルサイズの範囲を合わせるには

私はすべての値を計算するためにピボットテーブルのサイズを変更するために、私の計算カラムから最後のセルをドラッグしています。

計算カラムを自動的にピボットテーブルサイズに合わせる方法はありますか?

方法があり、VBAコードに依存する場合は、数式のように挿入してマクロとして実行しないオプションがありますか?おかげさまで

+0

数式を数式に追加するだけです。たとえば、10,000データであると予想し、数式を「10,000」行に入れます。 '' ''を表示するか、ピボットデータがない場合は空白を表示します。 – L42

+0

私はそれが私にとって良い解決策だと思うが、私はこの公式に慣れていない、今まで私がやったことは非常に簡単である。私は列Cと列Dとそのすべてを分ける。 100個のセルに対してどのように編集し、 "N/A"セルの結果を表示しないのですか? –

+0

この場合、計算されたフィールドをPTに挿入するだけです。 – pnuts

答えて

0

ワークシートコードにこのルーチンを追加します。先頭にOption Explicitが有効になっています。

Private Sub Worksheet_Calculate() 
    Application.EnableEvents = False 
    Dim CalcCol As String, FirstRow As Long, LastRow As Long 
    CalcCol = "A" 'Write the column name here 
    FirstRow = Me.PivotTables(1).TableRange2.Cells(1,1).Row 
    LastRow = Me.PivotTables(1).TableRange2.Cells(Me.PivotTables(1).TableRange2.Rows.count,1).Row 

    Me.Range(CalcCol & FirstRow).Formula = 'your formula as a string here 
    Me.Range(CalcCol & FirstRow & ":" & CalcCol & LastRow).FillDown 
    Application.EnableEvents = True 
End Sub 
+0

私は何か間違っているかもしれないが、何も変わらないかもしれません。 L42ユーザーのように提案? –

関連する問題