Сравнение без учета регистра в VBA с использованием VisibleItemsList

Question

Я пытаюсь отфильтровать сводную таблицу по заданной строке. Данные в поле сводки (из куба) могут содержать "SOME STRING" или "soME sTrInG", оба представляющие одно и то же.

Так как мне сделать этот код нечувствительным к регистру, чтобы соответствовать любой возможной типизации?

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

Answer 1

Я устанавливаю прописные буквы на все в VBA, используя UCase().Затем я проверяю, все ли сравнения выполняются в верхнем регистре.

Я не помню, работает ли это в сводных таблицах, поскольку я их никогда не использую;но при условии

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

Вы можете хранить переменные, подобные этой, я бы просто использовал UCase().