Question

我正在使用我在互联网上找到的函数来提取切片器的值（连接到表，而不是数据透视表）并将其存储在单元格中。该功能包括添加application.volatile，其效果很好，正如问题Refresh Excel VBA Function Results中所讨论的那样。

问题是，由于易失性功能，我的OpenSolver模型无法运行。因为Excel每次迭代都在进行计算，这使得OpenSolver认为Excel还没有为建模做好准备。

是否有方法在每次切片器更改值时更新单元格的值，而不使用application.volatile？

我已经尝试过使用：

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveWorkbook.Sheets("Dashboard").Range("B7").Formula = _
        ActiveWorkbook.Sheets("Dashboard").Range("B7").Formula
End Sub

和

Private Sub Worksheet_Change(ByVal Target As Range)
        ActiveWorkbook.Sheets("Dashboard").Range("B7").Calculate
End Sub

我用来提取切片器值的函数取自http://www.jkp-ads.com/articles/slicers05.asp：

Public Function GetSelectedSlicerItems(SlicerName As String) As String
    Dim oSc As SlicerCache
    Dim oSi As SlicerItem
    Dim lCt As Long
    On Error Resume Next
    Set oSc = ThisWorkbook.SlicerCaches(SlicerName)
    If Not oSc Is Nothing Then
        For Each oSi In oSc.SlicerItems
            If oSi.Selected Then
                GetSelectedSlicerItems = GetSelectedSlicerItems & oSi.Name & ", "
                lCt = lCt + 1
            End If
        Next
        If Len(GetSelectedSlicerItems) > 0 Then
            If lCt = oSc.SlicerItems.Count Then
                GetSelectedSlicerItems = "maandag"
            Else
                GetSelectedSlicerItems = Left(GetSelectedSlicerItems, Len(GetSelectedSlicerItems) - 2)
            End If
        Else
            GetSelectedSlicerItems = "No items selected"
        End If
    Else
        GetSelectedSlicerItems = "No slicer with name '" & SlicerName & "' was found"
    End If
End Function

Answer 1

如果您希望切片器的值出现在单元格中，您可以使用另一种不涉及VBA的方法，这可能会间接解决您的问题。

创建原始数据透视表的副本，其中没有任何内容，但切片器控制的字段。
将该字段拖到“数据透视表字段”对话框中的“报表过滤器”窗格。
将切片器连接到此新数据透视表中的此字段

很好：现在你有一个数据透视表伪装成数据验证下拉列表。现在，只要有人点击切片器，该数据透视表过滤器就会包含他们点击的东西的名称。

我写了一篇文章，在以下链接中解释了这种方法：

http://dailydoseofexcel.com/archives/2014/08/16/sync-pivots-from-dropdown/

Answer 2

我尝试了一种完全不同的方法，我不需要该函数从切片器中提取值，使 volatile 冗余。相反，我从表中扣除了所选的值。我这样做了如下：

基于作为字符串的日期选择的切片器：星期一，星期二等。我添加了一个具有日期的整数表示的列（星期一= 1，星期日= 7）。然后，我在单元格中使用了以下公式：

=SUBTOTAL(9;AF10:AF200)/SUBTOTAL(2;AF10:AF200)

这段代码首先对所有可见单元格的整数值求和，除以可见单元格的数量（即我计算平均值）。这应始终导致所选日期的整数值。有了这个数字，我再次找到当天的字符串表示。

您可以使用以下公式代替上述公式：

=SUBTOTAL(1;AF10:AF200)

刷新用户定义的函数，无需application.volatile

2 个答案: