0

OOo Calc で

ボタンに割り当てられたマクロを使用して、あるシートから別のシート (同じワークシート内) に列 (形式ではなく、値のみ) をコピーする必要があります。

少しブラウジングしましたが、重要なものは何も見つかりませんでした:-(

4

2 に答える 2

1

元の質問に答えるには：

データ配列を使用します。これは、セルの広い範囲で大幅に高速になります

Source = ThisWeek.getCellRangeByName("H12:H206")
source_data = Source.getDataArray()

Target = Steering.getCellRangeByName("M12:AU206").setDataArray(source_data())
于 2014-05-29T18:50:22.360 に答える
1

OK、私は答えを構築することができ、OOo Basic の学習を開始しました。これまでは回避できました ;-)

そのままあげます。

Sub UpdateThisWeek

Dim Doc As Object
Dim ThisWeek As Object
Dim Steering As Object
Dim Source As Object
Dim Target As Object
Dim Week as Integer

Doc = ThisComponent
ThisWeek = Doc.Sheets.getByName("This week")
Steering = Doc.Sheets.getByName("Steering")
Week = Steering.getCellByPosition(6,4).Value
Source = ThisWeek.getCellRangeByName("H12:H206")
Target = Steering.getCellRangeByName("M12:AU206").getCellRangeByPosition(Week-19,0,Week-19,194)

Dim i, s
For i = 0 To 194
    s = Source.getCellByPosition(0, i).Value
    If s > 0 Then
        Target.getCellByPosition(0, i).Value = s
    Else
        Target.getCellByPosition(0, i).String = ""
    End If
Next i

End Sub
于 2009-05-12T15:25:43.577 に答える