VBA'For Each'选定项目

Question

我想循环浏览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),我该如何将循环限制为这些字母？

Answer 1

像这样:

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