Результаты Монте-Карло в OpenOffice Calc

Question

У меня есть симуляция, установленная в OpenOffice. Я хочу показать результаты моделирования, например, 100 повторений, но я не могу понять, как это сделать. Очевидно, что если вы просто скопируете результат в ячейку и перетащите ее на 100 строк, все они будут показаны одинаково.

Любой макрос необходим или существует встроенный способ. Ничего из того, что я знаю.

В принципе, эквивалентно http://www.youtube.com/watch?v=tpIhQuxQeNs

Answer 1

Я создал макрос так:

Sub PasteSpecialNoFormula 
dim args3(0) as new com.sun.star.beans.PropertyValue 
args3(0).Name = "SelectedFormat" 
args3(0).Value = 1 
Dim document As Object 
document = ThisComponent.CurrentController.Frame 
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") 

oDesktop = createUnoService("com.sun.star.frame.Desktop") 
oDocument = ThisComponent 
oSheet1 = oDocument.Sheets.getByIndex(0) 
oSheet2 = oDocument.Sheets.getByIndex(0) 

Dim i As Long, n As Long 
n = 1000 
for i = 1 to n 

oFromRange = oSheet1.getCellRangeByName("B464:C464") 
oToCell = oSheet2.getCellByPosition(1,466+i) 

oDocument.CurrentController.Select(oFromRange) 
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array()) 

oDocument.CurrentController.Select(oToCell) 

dispatcher.executeDispatch(document, ".uno:ClipboardFormatItems", "", 0, args3()) 

next i 
End Sub