将固定值动态应用于数据透视表中的计算字段

Question

我有以下Excel电子表格：

在 C列中，您可以在 B列中看到sales中的products。在 A列中，您可以找到B列中每个brand的相应products。

基于这些数据，我创建了以下数据透视表：

在我的数据透视表中，我使用以下公式创建了一个名为sales per day的计算字段：

这让我非常了解我需要的结果但是你可以看到我输入了天数 （在这种情况下为360）作为固定数字< / strong>进入计算字段的功能。

但是，我希望不以固定费率输入此数字，并在我的数据透视表中使其灵活，以便用户更改{strong>单元格F1 中的数字{ {1}}它会自动正确应用于数据透视表。

你知道如何解决这个问题吗？
我可以使用辅助列吗？

很抱歉只提供德语版的数据透视表说明。

Answer 1

将此代码放入工作表的私人代码表（右键单击，查看代码），而不是公共模块代码表。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub

    If Target.Address = "$F$1" And CBool(Len(Target.Value2)) Then
        On Error GoTo safe_exit
        Application.EnableEvents = False
        If IsNumeric(Target.Value2) Then
Debug.Print Target.Address
            Me.PivotTables("PivotTable1"). _
               CalculatedFields("sales per day").StandardFormula = _
               "=sales/" & Target.Value2
        End If
    End If

safe_exit:
    Application.EnableEvents = True

End Sub

您可能需要调整一些识别名称。现在，每当您在F1中键入新的数值时，数据透视表就会计算出每天的销售额＆＃39;字段将有一个新的公式。