Calc: ArrayFormulaLocal ?

[rami]

Или есть уже что-то готовое для этого?

В контексте обсуждения "как узнать используемые разделители" я готовых решений не знаю (кроме упомянутой библиотеки  Tools)

Если бы автор вопроса сформулировал его так, как мы постоянно просим: "есть массив диапазонов, нужно получить их адреса в виде простой строки вида "A1:A5; A9:A15; A20:A25", мне бы никогда не пришла мысль искать разделители в настройках, для решения такой задачи есть "уже (давно) что-то готовое" — сервис "com.sun.star.table.CellRangeAddressConversion", в этом случае не нужно знать ничего о разделителях. Но eeigor выбрал не самое оптимальное решение и завёл нас в интересные дебри разделителей.


В примере двойной щелчок по "чекбоксу" (ячейки в столбце A) устанавливает или снимает "птичку", а также обновляет диаграмму и подпись диапазонов под ней. (Кнопку под диаграммой убрал)

[eeigor]

и завёл нас в интересные дебри разделителей

Сам того не ведая... (ибо новичок в LO), но сижу довольный... интересными дискуссиями.
rami, про метод CellRangeAddressConversion слышал, и ваш пример разберу обязательно.

Зд. много и других занимательных веток.

[sokol92]

Добрый день! Не знаю, представляет ли интерес следующий макрос, который выводит все имена функций, разделители, использующиеся в формулах в стандартном и локализованом виде. Еще может быть, на мой взгляд, полезна функция getMappings сервиса "com.sun.star.sheet.FormulaOpCodeMapper".

Код:

Sub ShowFormulaOpCodes
  Dim oFormula, DataArray, v1, v2, i as Long, arr2
  oFormula=CreateUnoService("com.sun.star.sheet.FormulaOpCodeMapper")
  
  v1=oFormula.getAvailableMappings(6, &H07fffffff)   ' FormulaLanguage: 6=API
  v2=oFormula.getAvailableMappings(3, &H07fffffff)   ' FormulaLanguage: 3=NATIVE
  
  Redim DataArray(Ubound(v1)+1)
  DataArray(0)=Array("Name", "LocalName", "OpCode")              ' Headers
 
  For i=0 To Ubound(v1)
    redim arr2(2)
    arr2(0)=v1(i).Name
    arr2(1)=v2(i).Name
    arr2(2)=v1(i).Token.OpCode
    DataArray(i+1)=arr2    
  Next i
  
  ShowDataArray DataArray
End Sub

' Show DataArray in new Calc document
Sub ShowDataArray(DataArray)
  Dim oDoc, oSheet, oRange
  oDoc = StarDesktop.loadComponentFromURL( "private:factory/scalc", "_blank", 0, Array() )
  oSheet = oDoc.getSheets().getByIndex(0)
  oRange=oSheet.getCellRangeByPosition(0,0,Ubound(DataArray(0)),Ubound(DataArray),0)
  oRange.SetDataArray DataArray
End Sub

[rami]

представляет ли интерес следующий макрос, который выводит все имена функций, разделители, использующиеся в формулах в стандартном и локализованом виде

В принципе, можно использовать этот сервис для получения разделителей, но для решения рассмотренной в теме задачи это слишком велосипедно, а для чего ещё трудно представить.

Еще может быть, на мой взгляд, полезна функция getMappings сервиса "com.sun.star.sheet.FormulaOpCodeMapper".

Можно узнать OpCode, что дальше?

[mikekaganski]

Не знаю, представляет ли интерес следующий макрос, который выводит все имена функций, разделители, использующиеся в формулах в стандартном и локализованом виде. Еще может быть, на мой взгляд, полезна функция getMappings сервиса "com.sun.star.sheet.FormulaOpCodeMapper".

Это, конечно, интересный сервис, но к сожалению, для разделителей списка он не слишком полезен - именно из-за того, что в каноническом представлении "имя" этого разделителя совпадает с именем разделителя столбцов в массиве. Поэтому нельзя просто определить, какая из ";", возвращённая getAvailableMappings, относится к чему (если только не предполагать, что разделитель списка идёт раньше разделителя столбцов массива, что, кмк, является деталью реализации и не гарантировано). Тем более не получится использовать getMappings с ";" - потому что неясно, для какой из них оно вернёт результат.

[sokol92]

Коллеги, спасибо за ответы!
У нас в практике MS Excel были задачи, для которых наличие подобного опубликованного сервиса позволило бы существенно упростить решение.