Благодарю за код. Выделяю столбец С, запускаю следующий код, но что то не работает это в Libre offise. Так понимаю что для столбца С значение 2. Может я что то не так записал или чего то не дописал.
REM ***** BASIC *****
Option VBASupport 1
Sub Vremya
oSheet=ThisComponent.Sheets(0)
i=0
While oSheet.getCellbyPosition(2,i).value <> 0
oSheet.getCellbyPosition(2,i).value=oSheet.getCellbyPosition(2,i).value/60
i=i+1
wend
End Sub
Однако похоже решение нашёл. пройдя по ссылке
https://www.excel-vba.ru/chto-umeet-excel/kak-bystro-umnozhitrazdelitslozhitvychest-iz-mnozhestva-yacheek-odno-i-to-zhe-chislo/понял что существует специальная вставка, где значение можно поделить или умножить. И вот записал такой работающий код.
REM ***** BASIC *****
sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem --------------выделяем свободную ячейку--------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$D$6"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ---------------записываем в выделеную ячейку число 60-------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StringName"
args2(0).Value = "60"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())
rem -------------------выбираем опять ячейку ---------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$D$6"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())
rem -----------------------копируем содержимое ячейки в память-----------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
rem -----------------------переходим к ячейке С1-----------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "ToPoint"
args6(0).Value = "$C$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args6())
rem --------------------------Выделяем столбец С до конца данных--------------------------------------------
dim args7(0) as new com.sun.star.beans.PropertyValue
args7(0).Name = "By"
args7(0).Value = 1
dispatcher.executeDispatch(document, ".uno:GoDownToEndOfDataSel", "", 0, args7())
rem ----------в выделеные ячейки вставляем новое значение (время разделённое на 60)---------------------------------------------------
dim args8(5) as new com.sun.star.beans.PropertyValue
args8(0).Name = "Flags"
args8(0).Value = "V"
args8(1).Name = "FormulaCommand"
args8(1).Value = 4
args8(2).Name = "SkipEmptyCells"
args8(2).Value = false
args8(3).Name = "Transpose"
args8(3).Value = false
args8(4).Name = "AsLink"
args8(4).Value = false
args8(5).Name = "MoveMode"
args8(5).Value = 4
dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args8())
rem -------------------переходим в ячейку где записывали число 60---------------------------------------------------
dim args9(0) as new com.sun.star.beans.PropertyValue
args9(0).Name = "ToPoint"
args9(0).Value = "$D$6"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args9())
rem ------------------удаляем с ячейки данные----------------------------------------------------
dispatcher.executeDispatch(document, ".uno:ClearContents", "", 0, Array())
rem --------------------переходим в ячейку С1--------------------------------------------------
dim args11(0) as new com.sun.star.beans.PropertyValue
args11(0).Name = "ToPoint"
args11(0).Value = "$C$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args11())
end sub
Конечно это более долгий путь, но зато он мне понятен и есть результат. Возможно думаю и более рациональное решение. Но пока учусь.