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