選択セルの１行、１列を削除するマクロの実験 LibreOffice Calc Basic

選択セルの１行、１列を削除するマクロの実験　LibreOffice Calc Basic

• マクロの保存場所　マイマクロ

 

 

Sub Delete_Row()
'removeByIndex(インデック番号, 削除する行数、列数)
'保存場所　マイマクロ
Dim selectRnum As Long

    '選択されている行番号
            selectRnum=thiscomponent.CurrentSelection.RangeAddress.StartRow
    '選択セル一行を削除
         ThisComponent.CurrentController.Activesheet.Rows.removeByIndex( selectRnum, 1)
End Sub

Sub Delete_column()
'removeByIndex(インデック番号, 削除する行数、列数)
'保存場所　マイマクロ
Dim selectRnum As Long

    '選択されている列番号
            selectRnum=thiscomponent.CurrentSelection.RangeAddress.StartColumn
    '選択セル一列削除
         ThisComponent.CurrentController.Activesheet.Columns.removeByIndex( selectRnum, 1)
End Sub

 

コメント 1

Ed Meds Online Discount Paypal <a href=https://cheapcialisir.com/#>buy cialis online using paypal</a> Cialis Quand <a href=https://cheapcialisir.com/#>where to buy cialis online forum</a> Can U Buy Clomid On Line
by Janinsessy (2020-04-22 15:00)