Tag: 的循环

Count如果在不同的工作簿范围内

我一直试图找出这个问题的根源很长一段时间，但无济于事。 我正在计算在另一个工作簿中出现特定文本的实例数（在这种情况下，实例是“42.1”，工作簿名称将包含在Filename1中）。 出于某种原因，当我直接在表单中执行countif时，会得出正确答案（应该是2）。 但是每当我运行下面的代码，它给了我3。 所有的引用都显示OK，因为我手动调用另一个工作簿中的每个值，并且没有问题。 能否请你帮忙 ？ 请注意CounttIfV，它基本上等价于应用函数CountIf和I可以互换使用。 'manually define the latest S&OP input file filename = Application.GetOpenFilename Shapes("DisplayFilename").TextFrame.Characters.Text = filename 'activate the S&OP Workbook Filename1 = Split(filename, "\")(UBound(Split(filename, "\"))) Workbooks.Open (Filename1) Workbooks(Filename1).Activate 'define the correct S&OP worksheet regardless of the date For Each ws_mould In ActiveWorkbook.Worksheets If ws_mould.Name Like "*Mould*" Then Worksheets(ws_mould.Name).Activate active_ws = […]

如何使用数据模型遍历筛选项目并隐藏Excel数据透视表中的项目？

我一直在使用VBA中的普通数据透视表，但是最近我在数据透视表中使用了我真正喜欢的数据模型（主要是“区分计数”）发现了一些function。 我有一个正常的数据透视表中的一些代码，过滤表的logging“喜欢”一个string，它完美的作品。 如何使用数据模型将此代码转换为数据透视表？ With ActiveSheet.PivotTables("Metrics").PivotFields("Reference number") .Orientation = xlPageField .Position = 1 .EnableMultiplePageItems = True For i = 1 To .PivotItems.Count If .PivotItems(i).Name Like "*oran*" Then .PivotItems(i).Visible = False End If Next i End With 以下是我录制macros时所创build的代码，并select要在数据模型下手动显示的项目： ActiveSheet.PivotTables("Metrics").PivotFields("[RawData].[Status].[Status]"). _ VisibleItemsList = Array("[RawData].[Status].&[apple_434]", _ "[RawData].[Status].&[banana_689]", _ "[RawData].[Status].&[orange_1346]", _ "[RawData].[Status].&[orange_1454]") 这是我的方向，但我有一些麻烦访问VisibleItemsList数组： With ActiveSheet.PivotTables("Metrics").PivotFields("[RawData].[Status].[Status]") For i = 0 To […]