OpenOffice.org : 매크로 도움

Question

OOO CALC에서

열을 복사해야합니다 (전용 값, 버튼에 할당 된 매크로를 사용하여 한 시트에서 다른 시트로 (동일한 워크 시트에서) 형식이 아닙니다.

나는 약간 눈을 round지만 중요한 것은 없었다 :-(

Answer 1

원래 질문에 답하기 위해 :

데이터 배열을 사용하면 큰 범위의 셀에서 더 빠르게됩니다.

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

Target = Steering.getCellRangeByName("M12:AU206").setDataArray(source_data())

Answer 2

좋아, 나는 대답을 구축 할 수 있었고 지금까지 피할 수 있었던 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