В раскрывающемся списке Excel все параметры отображаются в одной строке как одна опция, разделенная запятой

Question

Я создал выпадающий список через VBA. иногда он показывает все варианты, как на одном варианте. иногда переключение между листами решает проблему, иногда нет! Вот код:

Dim arr1(8) As String
    arr1(0) = "EURUSD"
    arr1(1) = "GBPUSD"
    arr1(2) = "USDCHF"
    arr1(3) = "USDJPY"
    arr1(4) = "USDCAD"
    arr1(5) = "AUDUSD"
    arr1(6) = "NZDUSD"
    arr1(7) = "XAUUSD"

With Range("C" & 1).Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(arr1, ",")
End With

Я ценю любую помощь в этом вопросе.

Answer 1

Похоже, что настройка List Separator ( Панель управления | Региональные параметры ) отличается от Comma (,). Например, если вы установили языковой стандарт для Германии, то я думаю, что ваш разделитель списка будет Semicolon (;). В VBE введите ?Application.International(xlListSeparator), чтобы быстро проверить, какой у вас List Separator.

. Если вы делаете это вручную на вкладке Data, используйте правильный List Separator. Например, YES;NO

Если вы делаете это через VBA, тогда используйте Application.International(xlListSeparator)

. В вашем коде замените Formula1:=Join(arr1, ",") на Formula1:=Join(arr1, Application.International(xlListSeparator))