Top > OOobbs2 > 11

OOobbs2/11 Edit

  • サマリ: 複数のセルに一度に同じ数値を書き込む
  • 環境: Calc
  • 状態: 解決
  • 投稿者: くま?
  • 投稿日: 2006-11-24 (金) 11:02:11

質問 Edit

特定のセルL2:L12に特定の数値7を一度に書き込みたいのですが、

	        oDoc = ThisComponent
		oSheets = oDoc.getSheets()
		oSheet = oSheets.getByIndex(0)
               oCell = oSheets.getCellRangeByName("L2:L12")
               oCell.Value = 7

とするとエラーがでます。

回答 Edit

  • セル範囲オブジェクトには Value プロパティがありません。

その前に、

oCell = oSheets.getCellRangeByName("L2:L12")
              A ここでエラーが出ます。

Value プロパティがないため、

  1. セル範囲のアドレスからセル数を調べて順にセルにアクセスして埋める
  2. オートフィルを使う
  3. DataArray を使う

などがあります。

1. セル範囲のアドレスからセル数を調べて順にセルにアクセスして埋める

Sub Main
  oDoc = ThisComponent
  oSheets = oDoc.getSheets()
  oSheet = oSheets.getByIndex(0)
  oCellRange = oSheet.getCellRangeByName("A2:A12")
  aRangeAddress = oCellRange.RangeAddress
  nCol = aRangeAddress.EndColumn - aRangeAddress.StartColumn
  nRow = aRAngeAddress.EndRow - aRangeAddress.StartRow
  For i = 0 To nCol
    For j = 0 To nRow
      oCellRange.getCellByPosition( i, j ).Value = 7
    Next j
  Next i
End Sub

セルのアドレス を参照。

2. オートフィルを使う

Sub Main
  oDoc = ThisComponent
  oSheets = oDoc.getSheets()
  oSheet = oSheets.getByIndex(0)
  oCellRange = oSheet.getCellRangeByName("A2:A12")
  oCellRange.getCellByPosition(0,0).Value = 7
  oCellRange.fillSeries( _
      com.sun.star.sheet.FillDirection.TO_BOTTOM, _
      com.sun.star.sheet.FillMode.SIMPLE, _
      com.sun.star.sheet.FillDateMode.FILL_DATE_DAY, _
      0, 7 )
End Sub

http://api.openoffice.org/docs/common/ref/com/sun/star/sheet/XCellSeries.html#fillAuto 参照

3. DataArray を使う

Sub Main
  oDoc = ThisComponent
  oSheets = oDoc.getSheets()
  oSheet = oSheets.getByIndex(0)
  oCellRange = oSheet.getCellRangeByName("A2:A4")
  oCellRange.DataArray = array(array(7),array(7),array(7))
End Sub
  • はにゃ?? 2006-11-24 (金) 11:34:54

感想,コメント,メモ Edit

  • 早速教えていただきありがとうございました。またよろしくお願いします。 -- くま? 2006-11-27 (月) 09:24:06


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