我想循环浏览 PageField 中的选定项目。我可以使用以下代码遍历每个数据项(在我的情况下是字母):
Dim PT As PivotTable
Set PT = ActiveSheet.PivotTables(1)
Dim Letter As PivotItem
For Each Letter In PT.PivotFields("Alphabet").PivotItems
'Code for each letter of the alphabet
Next Letter
但是,如果我在 PageField 中只选择了几个不连续的动态字母(A、J、P、S、X),我如何将循环限制为这些字母?
最佳答案
像这样:
Dim PT As PivotTable
Set PT = ActiveSheet.PivotTables(1)
Dim Letter As PivotItem
For Each Letter In PT.PivotFields("Alphabet").PivotItems
if letter.visible then
'Code for each letter of the alphabet
end if
Next Letter
关于VBA 'For Each' 所选项目,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/24142292/