Libreoffice 3.6.3 のﾏｸﾛの使い方：cellの削除の方法このｻｲﾄにcellの削除ｽｸﾘﾌﾟﾄ例があります｡ http://openoffice3.web.fc2.com/OOoBasic_Calc.html#OOoIR2d そ…

人力検索はてな

ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら

Libreoffice 3.6.3 のﾏｸﾛの使い方：cellの削除の方法
このｻｲﾄにcellの削除ｽｸﾘﾌﾟﾄ例があります｡
http://openoffice3.web.fc2.com/OOoBasic_Calc.html#OOoIR2d
その中で､次のｺｰﾄﾞを単に転記して実行しました｡
ｾﾙの削除(列全体が左方向に移動) Sub oDeleteCell
しかし､削除にならず､単なる列挿入のようになってしまいました｡
CellRangeAddressの設定､com.sun.star.sheet.CellDeleteMode.COLUMNS も役立っていないようです｡
こちらのﾏﾆｭｱﾙも列全体の挿入削除だけで､Rangeを指定してその範囲を削除して詰める方法が載っていません｡
http://www.ja-fukuoka.or.jp/blog/archives/2012/05/exceltocalkpdf.php
どのようにすればよろしいのでしょうか｡
Libreofficeのﾏｸﾛの使い方が記載されているｻｲﾄがありましたら､お教えください｡

●質問者: hathi
●ｶﾃｺﾞﾘ:ｺﾝﾋﾟｭｰﾀ
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

▽1 ● oil999
●0ﾎﾟｲﾝﾄ

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

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

hathiさんのｺﾒﾝﾄ
この方法でやったのですが､削除にならず､単なる列挿入のようになってしまいました｡ 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 これでは､うまくできませんでした｡

▽2 ● fiwa
●200ﾎﾟｲﾝﾄ

ﾍﾞｽﾄｱﾝｻｰ

質問文にあるｽｸﾘﾌﾟﾄ例のﾒｿｯﾄﾞが間違っています｡
最後から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

fiwaさんのｺﾒﾝﾄ
少し訂正しました｡ CellRangeAddressの範囲だけ詰める場合は､CellDeleteMode.LEFTみたいですね｡

hathiさんのｺﾒﾝﾄ
ありがとうございました｡黒の地の中に示されている記述で､思う位置(範囲)を左詰めできました｡ Sheet.removeRange(CellRangeAddress, com.sun.star.sheet.CellDeleteMode.LEFT)