1

MS Excel スプレッドシートを LibreOffice Calc スプレッドシートに変換しようとしています。

Excel ファイルには、ユーザーが選択したセル範囲を反復処理する VBA マクロが含まれています。Visual Basic コードは次のようになります。

For Each Value In Selection
    ' Manipulate Value
Next Value

ユーザーSelectionが手動で選択したワークシート内のセルが含まれています。

だから、私の質問は、Libre Basicでユーザーが選択した範囲のセルにアクセスして、これを再現するにはどうすればよいですか?

4

1 に答える 1

2

セルの値を使用する場合

Sub Learn
    Dim myController as Object, myRange as Object
    Dim Tmp as Integer
    Dim i, j

    myController = ThisComponent.getCurrentController()
    myRange = myController.getSelection().getDataArray()

    'additional info that we can use
    print myRange.AbsoluteName
    print myRange.RangeAddress.StartColumn
    print myRange.RangeAddress.StartRow

    Tmp = 0
    For Each i in myRange
        For Each j in i
            Tmp = Tmp + j
        Next j
    Next i
    print Tmp
End Sub

セルの値を操作する場合は、2 次元配列を使用します

Sub Learn2
    Dim myController as Object, myRange as Object
    Dim newRange(0, 0)
    Dim Tmp as Integer
    Dim i, j, col, row

    myController = ThisComponent.getCurrentController()
    myRange = myController.getSelection().getDataArray()
    Redim newRange(UBound(myRange, 1), UBound(myRange(0), 1))
    row = 0
    col = 0
    For row = 0 to UBound(myRange, 1)
        For col = 0 to UBound(myRange(0), 1)
            newRange(row, col) = myRange(row)(col) * 2
        Next col
    Next row
    myController.getSelection().setDataArray(newRange)
End Sub
于 2013-02-16T10:51:12.440 に答える