OpenOffice.org:помощь с макросом

Question

В ОООо Кальк

Мне нужно скопировать столбец (только ценности, а не формат) с одного листа на другой (на том же листе) с помощью макроса, назначенного кнопке.

Я немного полистал, но ничего существенного не нашел :-(

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