2011年4月25日月曜日

行の削除


  
「行の挿入」の項とは逆に、シートから行を削除するサンプルコードを
記す。この例では、上図のシートの三行目から三行の空白行を削除し
て行を挿入する前の状態に戻す処理を行っている :
  
Sub ExampleDeleteRows()
       Dim objSheet As Object
       objSheet = ThisComponent.CurrentController.Activesheet
       objSheet.Rows.removeByIndex(2, 3)
End Sub
  
結果は下図の通り、元の状態に戻った :
  

  
  
シートから行を削除する場合は removeByIndex メソッドを用いる。
removeByIndex メソッドの書式は下記の通り :
  
removeByIndex(RowNumberLines)
  
RowNumber には削除したい行の行番号を指定する。この例の場合
削除したい行が三行目なので、RowNumberには 2 を指定する。
Lines には削除したい行数を指定する。
removeByIndex メソッドは、戻り値を返さない。

0 件のコメント:

コメントを投稿