0

OpenOffice でシミュレーションをセットアップしました。シミュレーションの結果、たとえば 100 回のレプリケーションを表示したいのですが、その方法がわかりません。明らかに、結果をセルにコピーして 100 行下にドラッグすると、すべて同じ図が表示されます。

マクロが必要か、組み込みの方法があります。どちらも私は知りません。

基本的に、 http://www.youtube.com/watch?v=tpIhQuxQeNsと同等

4

1 に答える 1

-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
于 2012-11-15T02:10:53.833 に答える