使用VisibleItemsList在VBA中进行不区分大小写的比较

Question

我想做的是根据给定的字符串过滤数据透视表。数据透视字段中的数据（来自多维数据集）可能包含"SOME STRING"或"soME sTrInG"，它们都表示相同。

那么如何使此代码不区分大小写以匹配任何可能的键入？

variable = "Some STRING"
ActiveWorksheet.PivotTables("table1").PivotFields( _
        "[foo].[boo].[goo]").VisibleItemsList = Array( _
        "[foo].[boo].&[" & variable & "]")

Answer 1

我使用UCase()对VBA中的所有内容强制使用大写。然后，确保进行的比较都是大写。

我不记得它是否可以在数据透视表中使用，因为我从不使用它们。但假设

var1 = "HEY"
var2 = UCase(ThisWorkbook.Sheets("Sheet1").cells(1,1).value2)

您可以存储类似我将仅使用UCase()的变量。