Libreoffice calc - 如何将相同的值写入范围

Question

I know how to 'select' a range in LO (7.2.4.1) Calc BASIC....

ThisComponent.CurrentController.ActiveSheet.getCellRangeByName("D1:H6")

But how to write a value, eg "1", into that range using BASIC?

myRange = ThisComponent.CurrentController.ActiveSheet.getCellRangeByName("D1:H6")
myRange.Value = 1

Gives an "property or method not found" error. But I can't find any properties or values to go after Range to allow me to do what I want. Flailing around and trying

myRange.setValue = 1
myRange.writeValue = 1
myRange.setString = "1"

and numerous other variants don't work either.

Would really appreciate the solution. Thanks.

Answer 1

You can edit the value of an individual cell, but not the entire range. You will have to iterate over all the cells in the range one at a time, changing the value of each of them.

Sub Set1ToD1H6
    myRange = ThisComponent.CurrentController.ActiveSheet.getCellRangeByName("D1:H6")
    For i = 0 To myRange.getRows().getCount()-1
        For j = 0 To myRange.getColumns().getCount()-1
            myRange.getCellByPosition(j, i).setValue(1)
        Next j
    Next i
End Sub

But since the read-write operation to a cell is comparable in time to the read-write operation to a whole range, it is preferable to use another method - to prepare data in an array and write from it to a range in one operation:

Sub Set1ToRange
    myRange = ThisComponent.CurrentController.ActiveSheet.getCellRangeByName("D1:H6")
    dataOfRange = myRange.getData()
    For i = LBound(dataOfRange) To UBound(dataOfRange)
        For j = LBound(dataOfRange(i)) To UBound(dataOfRange(i))
            dataOfRange(i)(j) = 1
        Next j
    Next i
    myRange.setData(dataOfRange)
End Sub

The .getData() and.setData() methods work on numeric range values. To work with text strings (and numbers), use .getDataArray() and.setDataArray() , for working with cell formulas use .getFormulaArray() and.setFormulaArray()