Top > OOobbs2 > 151

OOobbs2/151 Edit

  • サマリ: Calcの小計をBasicで実行する方法について
  • 環境: Calc
  • 状態: 解決
  • 投稿者: 佐々木 杏?
  • 投稿日: 2008-11-03 (月) 10:23:39

質問 Edit

本ページのCalcのコードの中で、小計を出すコードがありますが、シートの表データの形はどのようなものなのでしょうか。 自分で作った表で実行するとエラーになるのですが、ちなみに自分の表は 以下のような表です。

notnotextprice
11aaa1,000
21aaa1,500
31aaa1,200
42bbb11,500
52bbb21,600
62bbb11,250

この表でtno毎のpriceの小計をだしたのですが。 よろしくお願いします

回答 Edit

  • シート上で上記の表が左上にあるとき (左上から A1)

期待している結果は次のような感じでしょうか?メニューからデータ - 小計を選択、グループに tno を計算する値に price を指定したときと同じ結果になるようにしてあります。

notnotextprice
11aaa1,000
21aaa1,500
31aaa1,200
1 Sum3700
42bbb11,500
52bbb21,600
62bbb11,250
2 Sum4350
Grand Total8050
Sub SubTotal_1a
 oSheet = ThisComponent.getSheets().getByIndex(0)
 
 ' 列の条件設定
 oSubTotalCol = CreateUnoStruct("com.sun.star.sheet.SubTotalColumn")
 oSubTotalCol.Column = 3
 oSubTotalCol.Function = com.sun.star.sheet.GeneralFunction.SUM
 
 oDesc = oSheet.createSubTotalDescriptor(True)
 oDesc.addNew(Array(oSubTotalCol), 1)
 
 oDesc.BindFormatsToContent = False
 
 oSheet.applySubTotals(oDesc, True)
End Sub
  • はにゃ? 2008-11-06 (木) 20:16:31
  • はじめまして、はにゃさん 見事に出来ました。ありがとう御座いました。またよろしくお願いいたします。 -- 佐々木 杏 2008-11-07 (金) 16:51:08
  • 佐々木杏です。この件は解決済みでお願いいたします。 -- 佐々木 杏 2008-11-07 (金) 16:59:24
  • 解りました。ありがとうございました。また、質問させていただきます。 -- 佐々木 杏 2008-11-08 (土) 09:13:46

感想,コメント,メモ Edit

  • 佐々木杏です。この件は解決済みでお願いいたします。書く場所を間違えていましたか? -- 佐々木 杏 2008-11-07 (金) 17:03:35
  • 書く場所というと・・・、質問者のコメントですしどちらでも。 -- はにゃ? 2008-11-07 (金) 18:09:48


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