Использование диапазона в макросе Calc, который определяется выделенными ячейками, а не абсолютной ссылкой на ячейку

Question

Простой запрос: у меня есть таблицы калькуляции с несколькими таблицами данных, которые необходимо отсортировать по значениям, которые я определил (этот UserDefIndex полностью установлен)? Я надеюсь найти способ написать макрос, который будет выполнять этот вид для ячеек, которые я выделил, в отличие от абсолютного адреса ячейки

. Я пробежался по каждой из них, однако номенклатура простослишком тупой, и мне трудно разобраться в коде

• http://www.debugpoint.com/2015/07/get-the-selection-cell-and-range-address-using-macro-in-libreoffice/
• http://www.pitonyak.org/oo.php

• https://opensource.com/article/18/2/variables-data-types-libreoffice-basic

  sub sorts_stats rem ---------------------------------------------------------------------- rem определяем переменные dim документа как объект dim диспетчер как объект

  rem ---------------------------------------------------------------------- rem получить доступ к документу document = ThisComponent.CurrentController.Frame dispatcher = createUnoService ("com.sun.star.frame.DispatchHelper")

  rem---------------------------------------------------------------------- затемните args1 (0) как новый com.sun.star.beans.PropertyValue args1 (0) .Name = "ToPoint" args1 (0).Value = "$ A $ 3: $ D $ 18"

  dispatcher.executeDispatch (document, ".uno: GoToCell", "", 0, args1 ())

Как определить область выделенных ячеек, в отличие от "$ A $ 3:$ D $ 18 ", так как размер диапазона будет варьироваться?

Answer 1

Вы можете выбрать диапазон вручную, а затем получить диапазон выбора

Doc = ThisComponent
Sheet = Doc.Sheets(0)
rng = Doc.CurrentSelection