OpenOffice でシミュレーションをセットアップしました。シミュレーションの結果、たとえば 100 回のレプリケーションを表示したいのですが、その方法がわかりません。明らかに、結果をセルにコピーして 100 行下にドラッグすると、すべて同じ図が表示されます。
マクロが必要か、組み込みの方法があります。どちらも私は知りません。
OpenOffice でシミュレーションをセットアップしました。シミュレーションの結果、たとえば 100 回のレプリケーションを表示したいのですが、その方法がわかりません。明らかに、結果をセルにコピーして 100 行下にドラッグすると、すべて同じ図が表示されます。
マクロが必要か、組み込みの方法があります。どちらも私は知りません。
私は次のようにマクロを作成しました:
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