vba - VBA 中的数组处理

Question

是否可以使用 Excel 宏动态选择多个值。我所说的动态是指要选择的值的数量应该由用户输入。我的代码是

monthList = monthList & Chr$(34) & "[Time].[Month].&[" _
& Range("Table_Months").Rows(i).Columns(2).Value & "]" & Chr$(34) & ","
Next i
c_mnth = Left(monthList, Len(monthList) - 2)
c_mnth = Right(c_mnth, Len(c_mnth) - 1)
ActiveSheet.PivotTables("PivotTable1").PivotFields("[Time].[Month].[Month]"). _
VisibleItemsList = Array(c_mnth)

通过这段代码我做不到，因为最后变量 c_mnth 将我所有的必填字段作为单个字符串组成，它必须是单个字符串才能执行代码。

Answer 1

这是你正在尝试的吗？（未经测试）

Dim MyAr

'
'~~> Rest of your code
'

c_mnth = Left(monthList, Len(monthList) - 2)
c_mnth = Right(c_mnth, Len(c_mnth) - 1)

MyAr = Split(c_mnth, ",")

ActiveSheet.PivotTables("PivotTable1").PivotFields("[Time].[Month].[Month]"). _
VisibleItemsList = Array(MyAr)