行を挿入するマクロの実験 LibreOffice Calc Basic

行を挿入するマクロの実験　LibreOffice Calc Basic

• 
  
•  

Sub insert_Row5()
    '現在のセルの行を基準に行を５つ挿入する
    Dim sRowIndex,sSheetIndex As Long
    on error goto errorH
    '選択セルの行,シート番号
        sRowIndex=ThisComponent.CurrentController.Selection.CellAddress.Row
        sSheetIndex=ThisComponent.CurrentController.Selection.RangeAddress.sheet
            'msgbox sRow & chr(10) & sSheetIndex
    '5行挿入
        ThisComponent.Sheets(sSheetIndex).getRows().insertByindex(sRowIndex,5)
    Exit Sub
    'エラー処理
    errorH:
        msgbox "選択行が複数か正しくありません！"
End Sub

 

タグ：行の挿入