• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• fiwa2012/11/11 22:22:07

  満足200pt

  質問文にあるスクリプト例のメソッドが間違っています。
  最後から2行目のinsertCellsのところを、removeRangeに、COLUMNSをLEFTに書き換えてみて下さい。

  Sub oDeleteCell 
  Dim Doc As Object 
  Dim Sheet As Object 
  Dim CellRangeAddress As New com.sun.star.table.CellRangeAddress 
  Dim iStart as integer 
  Dim iRows as integer 
  Dim iSheetindex as integer 
  iSheetindex = 0 
  iStart = 0 
  iRows=3 
  Sheet =ThisComponent.getSheets().getByIndex(iSheetindex) 
  CellRangeAddress.Sheet = iSheetindex 
  CellRangeAddress.StartColumn = 0 
  CellRangeAddress.StartRow = iStart 
  CellRangeAddress.EndColumn = 2 
  CellRangeAddress.EndRow = iStart + iRows-1 
  Sheet.removeRange(CellRangeAddress, com.sun.star.sheet.CellDeleteMode.LEFT)
  End Sub
  

  参考
  セルと範囲 - Apache OpenOffice Wiki

  スター

  • 

    2件のコメントを見る

  • fiwa 2012/11/11 23:39:55

    少し訂正しました。
    CellRangeAddressの範囲だけ詰める場合は、CellDeleteMode.LEFTみたいですね。

    スター

  • hathi 2012/11/12 08:55:27

    ありがとうございました。
    黒の地の中に示されている記述で、思う位置（範囲）を左詰めできました。
    Sheet.removeRange(CellRangeAddress, com.sun.star.sheet.CellDeleteMode.LEFT)

    スター

その他の回答

• oil9992012/11/11 15:08:13

  0pt

  Cellの削除(列全体が左方向に移動)

  http://openoffice3.web.fc2.com/OOoBasic_Calc.html#OOoIR2d

  スター

  • 

    1件のコメントを見る

  • hathi 2012/11/11 17:24:37

    この方法でやったのですが、削除にならず、単なる列挿入のようになってしまいました。
    Sub oDeleteCell
    Dim Doc As Object
    Dim Sheet As Object
    Dim CellRangeAddress As New com.sun.star.table.CellRangeAddress
    Dim iStart as integer
    Dim iRows as integer
    Dim iSheetindex as integer
    iSheetindex = 0
    iStart = 0
    iRows=3
    Sheet =ThisComponent.getSheets().getByIndex(iSheetindex)
    CellRangeAddress.Sheet = iSheetindex
    CellRangeAddress.StartColumn = 0
    CellRangeAddress.StartRow = iStart
    CellRangeAddress.EndColumn = 2
    CellRangeAddress.EndRow = iStart + iRows-1
    Sheet.insertCells(CellRangeAddress, com.sun.star.sheet.CellDeleteMode.COLUMNS)
    End Sub
    これでは、うまくできませんでした。

    スター

この質問へのコメント

質問の情報

登録日時

2012-11-11 14:54:36

終了日時

2012-11-12 08:56:52

回答条件

1人5回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…匿名質問者112日前
• 不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者112日前
• 日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者17時間前
• 共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者117時間前
• 内定してほしいポケモンはいますか？匿名質問者18時間前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ