具有多选属性的列表框会丢失所选项目

Question

我需要根据具有多选属性 = 1 - fmMultiSelectMulti 的 ListBox 更改数据透视表中的过滤器，但是当我运行在 ListBox 中选择的 VBA 代码项时会丢失选择。

代码如下：

Private Sub BtnAtualizarLiberty_Click()
    With Sheets("Liberty_Data").PivotTables("DinamicaLiberty1").PivotFields("RSCORE_CGV6")
                    .EnableMultiplePageItems = True
                    For Z = 1 To .PivotItems.Count
                        .PivotItems(Z).Visible = False
                        For r = 0 To ListRiscoScoreLiberty.ListCount - 1
                            If ListRiscoScoreLiberty.Selected(r) = True And ListRiscoScoreLiberty.List(r) = .PivotItems(Z).Value Then
                                .PivotItems(Z).Visible = True
                            End If
                        Next
                    Next
                End With
      End Sub

Answer 1

我已经解决了这个问题。我正在用数据透视表数据填充列表框，当我在任何其他数据透视表中更改数据透视字段过滤器时，列表框丢失了所有选定的项目。

所以，现在我正在“手动”填充列表框，我制作了一张名为“过滤器”的表格，并用所有列表框行填充了一列，它已经解决了问题。

抱歉英语不好。