1

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

问题是，由于 volatile 函数，我的 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
4

2 回答 2

1

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

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

太好了：现在您有一个伪装成数据验证下拉列表的数据透视表。现在，任何时候有人点击切片器，数据透视表过滤器都会包含他们点击的东西的名称。

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

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

于 2017-04-19T04:00:40.620 回答
0

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

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

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

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

除了上面的公式，您当然也可以使用：

=SUBTOTAL(1;AF10:AF200)
于 2017-04-19T11:45:27.283 回答