О пользовательских списках сортировки

[eeigor]

Ну, вот: всё-таки "несколько списков", не взирая на имя AddCustomList.
Это и был вопрос. Спасибо.
Алгоритм "угадывания" очень прост и проблем не вызвал.

Код Выделить Развернуть


If HasUnoInterfaces(ListArray, "com.sun.star.sheet.XSheetCellRange") Then
    oRange = ListArray
    nRows = oRange.Rows.Count
    nCols = oRange.Columns.Count

    If IsMissing(ByRow) Then
        ByRow = False Or nCols > nRows
    End If

[eeigor]

Следует добавить, что через интерфейс пользователя "Списки сортировки" (Sort Lists) можно скопировать список-дубликат с листа, и он будет принят, но в Excel при добавлении дубликата возникает ошибка.

Остался невыясненным вопрос с максимальной длиной списка.
В Excel при ручном вводе длина составляет 255 символов, при копировании с листа - примерно (!) 2000 символов (где-то 1950-2000). Как работает механизм усечения (truncate) в Excel осталось невыясненным. В LO Calc тоже как-то работает... Но то, что при копировании с листа допустимая длина списка резко возрастает, это знать полезно.
Однако большие списки сортировки создавать нецелесообразно, а надо хранить их на листе и вычислять порядковый номер элемента списка, чтобы подставить его в дополнительный столбец диапазона данных. По дополнительному столбцу и надо сортировать (пример тут).