【StarSuite Basic/OpenOffice.org Basic】

**ハンカチ仮面** · 2006/10/06(金) 20:04:48

StarBasicまたはOOo Basicプログラミングに興味のある方、
もしくは学習中の方、知識共有の場にしましょう。

参考になる主なリンク
StarSuite 8 Basic プログラミングガイド
http://docs.sun.com/app/docs/doc/819-1332?l=ja
OpenOffice.org 推進サイト
http://ooosupport.good-day.net/ja/documents/faq/
OpenOffice.org日本ユーザー会翻訳プロジェクト BASIC HELP
http://openoffice-docj.sourceforge.jp/tr/translated/basic_help_frame.html
OpenOffice.org本家 API Project
http://api.openoffice.org/
ウィキブックス OpenOffice.org Basic
http://ja.wikibooks.org/wiki/OpenOffice.org_Basic
ウィキブックス OpenOffice.org Calc Basic
http://ja.wikibooks.org/wiki/OpenOffice.org_Calc_Basic
pukiwiki Plus!
http://hermione.s41.xrea.com/pukiwiki

他に追加情報があったら教えてください。

**デフォルトの名無しさん** · 2012/06/07(木) 15:12:26.24

↓のような構造体をVBAサポートモードで動かそうとしているのですが
シンタックスエラー(シンボルが必要)が表示されます。
具体的な解決策をご存知の方いましたら教えてください。

Private Type abc
abc As String
def As Long
ghi As Single
jkl As Double
End Type

**デフォルトの名無しさん** · 2012/07/16(月) 20:45:03.55

Writerをマクロで紙の縦横の変更ってできないのでしょうか？

ThisComponent.getStyleFamilies().getByName("PageStyles").getByName("Standard").IsLandscape

の値が変更できません・・・・
プリンターパラメーターの変更のほうでも余白やもろもろ変えられても、縦横だけは無理っぽいです・・・

Dim oPrintOptions(0) as new com.sun.star.beans.PropertyValue
oPrintOptions(0).Name = "A4"
oPrintOptions(0).value = com.sun.star.view.PaperOrientation.LANDSCAPE
ThisComponent.setPrinter( oPrintOptions )

つかっているのはOpenOffice3.4.0です

**デフォルトの名無しさん** · 2012/08/26(日) 14:58:40.62

すいません、すっごい初心な質問なんですが
総てのシートの総てのセルを対象に
特定の文字列が入っているセルだけを背景色を変える
ってマクロはどう書くんでしょうか？

**デフォルトの名無しさん** · 2012/08/26(日) 16:39:40.28

>>464
条件付書式設定じゃダメなのかい?

**デフォルトの名無しさん** · 2013/05/09(木) 23:15:55.11

初心者です
Calcのシート上で実行している計算をそのままBasicで実行したいと考えています
いろいろ出来ないのですが単純な"OFFSET"ですら動かせていません
（最終的には"INDIRECT"を動かしたい...）

次のサブルーチンをそのまま動かすとセルA1の値が返されるのですが
aArgs(1),aArgs(2)に0以外の値（例えば1)を設定すると値（例えばB1の値)が
返ってきません。なにがいけないのでしょうか？

Sub test
oFunctionAccess = CreateUnoService( _
"com.sun.star.sheet.FunctionAccess" )
oDoc = ThisComponent
oSheets = oDoc.getSheets()
oSheet = oSheets.getByIndex(0)

Dim aArgs(2) As Variant
' OFFSET(A1;0;0)
sFunction = "OFFSET"
oCell = oSheet.getCellRangeByName( "A1" )
aArgs(0) = oCell
aArgs(1) = 0 ' <- 0を1に変えると""が返される
aArgs(2) = 0 ' <- 0を1に変えると""が返される
aResult = oFunctionAccess.callFunction( sFunction, aArgs() )
MsgBox aResult(0)(0)
End Sub

**デフォルトの名無しさん** · 2013/05/09(木) 23:54:47.26

>>466
オフセット指定が aArgs(0) のセル範囲外だといけないらしい
上記の場合、A1 の値しか取得できない

**466** · 2013/05/10(金) 22:09:18.60

>>467
即答ありがとうございます。無事実行できました
単純移植はできないんですね
（考えると"INDIRECT"のパラメータの渡し方は自分には想像できない...）
セルに値を入れてCalcに計算してもらうかCallFunction使わない関数で
作ることにします
ありがとうございました

**デフォルトの名無しさん** · 2013/12/05(木) 16:43:30.15

ユーザー関数を置いた自分のセルの番地を表示するマクロを作りたいです。
関数で表すと =CONCATENATE(ROW(),",",COLUMN())と結果は同じことなのですが
これをユーザー関数のマクロのみで求めることはできますか？

**デフォルトの名無しさん** · 2014/06/01(日) 01:41:21.90

ここ、需要有るの?

**デフォルトの名無しさん** · 2014/06/02(月) 01:06:34.01

あるわけねえだろ
ハンカチ仮面って時代を感じる

**デフォルトの名無しさん** · 2014/07/03(木) 16:32:50.93

calcで定期的に再計算させる処理ってループでsleep使いながら
どこかのセル更新するしかないのかな
タイマっぽい時間管理のシート作ってるけど
CTRL+SHIFT+F9押すのめんどいしシート開いてるだけで更新させたい

**デフォルトの名無しさん** · 2014/07/11(金) 12:38:57.28

sub main
do while true
wait 5000
ThisComponent.calculateAll
loop
end sub

**デフォルトの名無しさん** · 2014/08/14(木) 13:05:43.71

>>473
助かりました！
d(ﾟДﾟ)☆ｽﾍﾟｼｬﾙｻﾝｸｽ☆( ﾟДﾟ)b

**デフォルトの名無しさん** · 2014/08/16(土) 16:35:26.23

http://www.buzzword.jp/img/face10.png

**デフォルトの名無しさん** · 2015/04/09(木) 12:11:33.59

「OSDNによれば、同社の経営方針とDice Holdingsの事業の方向性が大きく離れたためといい、
日本側がブランドを刷新することになった。これに合わせてSourceForge.JPのURLもhttp://osdn.jp/に変更」

OSSサイトの「SourceForge」が改称へ　「OSDN」に - ITmedia エンタープライズ
http://www.itmedia.co.jp/enterprise/articles/1504/08/news105.html
2015年04月08日 14時42分

**デフォルトの名無しさん** · 2016/02/08(月) 14:59:01.62

普通に3.1.1を使い続けてる

**デフォルトの名無しさん** · 2016/03/29(火) 08:55:02.83

サッカーブッシュ日本代表日程ぷあたん（しゅっちょうまいくろ教育長交代）春文執行40代売上差額シュガーチョコ
https://www.youtube.com/watch?v=NDq1QoJY0nY宇ドナルドアナリストパワーストーンコーチングとしまえん
サッカーブッシュ日本代表日程古本屋よしたけしゅっちょうちょこしゅがー
ディーラー税務署天才開発者死亡詰みヨミドクターマイクロサービス不足
サッカーブッシュ日本代表日程ぷあたんシフト光金さかい強制バイト人権侵害問題
春分資源執行ニューヨーク低原価ぼったステーキソルトレイク福岡横浜新橋奴隷課金パチシフト強制バイト問題新潟米センター生残
コスメ２４チャリティー隠れ40代生活保護プレイボーイバイトレードいたりあん接待問題
マスコミKARDローンケーオーサービス不足婚活パーティー寄付金執行原発ビジネス
FBIチャイニーズタイホテル売上事務所ガチャ決算ガチャキャンペーン（販売報道陣過激派組織向携帯最新情報提供終了
校長発言細心注意ノートン産廃エラー(著作権クレーム中国反応融資高額教育費)(中国捕鯨団体40代社員サッカーコメント
高額入学金ヤフウ新橋大学ヤフウ新橋理事長FX経費おじや50代資産ガリバズフィード40代エリート