Top > OOoBasic > Calc > usedarea

使用範囲 Edit

使用している範囲を取得します。

使用している範囲は,値などが入力されたセルの範囲というわけではなく,セルの枠線,背景色などの書式が設定されている場合にも使用範囲になります。フォントの設定は使用範囲に関与しないようです。

取得 Edit

使用範囲はシート内でのもの以外にセル範囲での使用範囲も取得することができます。

Sub usedarea_1
Dim oSheet As Object
Dim oCursor As Object
Dim oRangeAddress As New com.sun.star.table.CellRangeAddress

  oSheet = ThisComponent.Sheets(0)
  oCursor = oSheet.createCursor()
  oCursor.gotoStartOfUsedArea( False )
  oCursor.gotoEndOfUsedArea( True )
End Sub

これで oCursor がシートでの使用範囲になります。 使用範囲のアドレスを文字列として表示します。

Sub usedarea_2
Dim oSheet As Object
Dim oCursor As Object
Dim oCellRangeAddress As Object
Dim oRangeAddress As New com.sun.star.table.CellRangeAddress

  oSheet = ThisComponent.Sheets(0)
  oCursor = oSheet.createCursor()
  oCursor.gotoStartOfUsedArea( False )
  oCursor.gotoEndOfUsedArea( True )
  oCellRangeAddress = ThisComponent.createInstance( _
                   "com.sun.star.sheet.SheetCellRanges" )
  oCellRangeAddress.InsertByName( "", oCursor )
  MsgBox oCellRangeAddress.getRangeAddressesAsString()
End Sub

使用範囲のアドレスが文字列で表示されます。

まとめ Edit

methods
SbxVOID gotoStartOfUsedArea (
SbxBOOL )
使用範囲の開始位置へ移動する (bool true: カーソルを広げる)
SbxBOOL )使用範囲の終わり位置へ移動する (bool true: カーソルを広げる)

Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes