【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

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

**デフォルトの名無しさん** · 2010/03/11(木) 09:47:52

Cell.formula = "2010/3/11"
Cell.numberformat = 36

**デフォルトの名無しさん** · 2010/03/11(木) 10:15:22

>>436
Cell.Value = DateSerial (2010, 3, 1)

DateSerial関数のパラメータは年、月、日の順。
そのままだと謎い数字が出てくるだけなので、
セルの書式を、日付のものに変更して。

**mu-mu** · 2010/03/12(金) 09:10:44

>>437
>>438
さんくすこ
書式をいじいじすればいいんですね。

**デフォルトの名無しさん** · 2010/03/12(金) 14:51:03

>>436
日付のデータって、見た目は YYYY/MM/DD だけど、格納されてるのは
OpenOffice.org が対応してる年月時間を順列にした整数なの。
0～9999999999999999999999 みたいな数で 1100年１月1日から2100年の12月31日までを管理するって感じ。

**デフォルトの名無しさん** · 2010/03/20(土) 15:12:57

=CONCATENATE(A1:B2)
という風に範囲指定で文字列を連結したいのですが、できますか？

**デフォルトの名無しさん** · 2010/03/21(日) 00:15:24

マクロ関数定義するならこんな感じかな

Function ConcatRange(oData) As String
Dim sRet As String
For i = 1 to UBound(oData, 1) step 1
For j = 1 to UBound(oData, 2) step 1
sRet = sRet & CStr(oData(i, j))
Next
next
ConcatRange = sRet
end Function

**デフォルトの名無しさん** · 2010/03/21(日) 00:34:34

>>442
できました！ありがとうございます

**デフォルトの名無しさん** · 2010/05/24(月) 21:18:33

OOoBasicではVBAのようにクラスモジュールは作れないんでしょうか？

**デフォルトの名無しさん** · 2010/05/24(月) 21:47:31

yes, you can

**デフォルトの名無しさん** · 2010/05/24(月) 21:51:14

>>445
すいませんどうやればいいんでしょうか？
ヘルプ見てもググッても見つからないのですが・・・

**デフォルトの名無しさん** · 2010/05/25(火) 17:16:32

>>446
というかできない

**デフォルトの名無しさん** · 2010/06/16(水) 00:14:31

クラスモジュールにしたいコードの先頭に
option vbaSupport 1
option compatible
option classModule
をつければクラスモジュールとして使えます
ただこの3つの違いがわかりません
誰か知ってる人いませんか

**デフォルトの名無しさん** · 2010/06/22(火) 17:32:48

>>448
Option Compatible について
ttp://api.openoffice.org/servlets/ReadMsg?list=dev&msgNo=9399

**デフォルトの名無しさん** · 2010/06/22(火) 17:47:13

コードを見ると VBASupport 1 にすると Compatible も自動的にオンになる
最近のバージョンなら区別しなくていいみたい

**デフォルトの名無しさん** · 2010/09/08(水) 17:29:41

外部データへのリンクだと文字化けするので、ソースから読み込みしてシートに書き込みたいのだけど
正規表現で株主優待情報だけ抽出するには、この先どうしたらいいですか？

Sub FileAccess
Dim oFileAccess As Object
Dim sURL As String
Dim oInputStream As Object
Dim vData As Variant
Dim sLine As String, sDataLine As String

sURL = "http://biz.yahoo.co.jp/stockholder/search?detail=1766"
oFileAccess = createUnoService("com.sun.star.ucb.SimpleFileAccess")
oInputStream = CreateUnoService("com.sun.star.io.TextInputStream")
oInputStream.setEncoding( "EUC-JP" )

If oFileAccess.exists(sUrl) Then
vData = oFileAccess.openFileRead(sUrl)
oInputStream.setInputStream(vData)
While NOT oInputStream.isEOF()
sLine = oInputStream.readLine()
sDataLine = sDataLine & sLine & Chr(10)
WEnd
oInputStream.closeInput()
End if

txt(sDataLine)
End Sub

**デフォルトの名無しさん** · 2010/09/08(水) 17:32:55

尖閣諸島問題で中国大使館に抗議するｵﾌ
http://yuzuru.2ch.net/test/read.cgi/offmatrix/1283926084/
1: 2010/09/08 15:08:04 21BrBr5lsd
日時は9月12日､日曜日予定
場所は中国大使館前

**デフォルトの名無しさん** · 2010/11/05(金) 14:40:59

ヘッダーに画像をセットしたのですが、リンクされてしまいます。
このように書きました。

StyleFamilies = objDocument.StyleFamilies　
PageStyles = StyleFamilies.getByName("PageStyles")
DefPage = PageStyles.getByName("Default")
DefPage.HeaderOn = True
DefPage.HeaderBackGraphicURL =D:\xxxx.bmp ’画像ファイルのパス

メニューで言うと次の場所になります。
書式→ページ→ヘッダー→詳細
ファイル---表示ボタンを押下しファイルを選択。

ここのリンクのチェックを外したいのですが、やり方がわかりません。
ご存知の方、教えてください！

**デフォルトの名無しさん** · 2010/11/05(金) 15:03:53

　　　　　|┃三　　　　　　　／￣＼
　　　　　|┃ 　　　　　　　　|　　　　|
　　　　　|┃　　　　　　　　＼＿／　　　　　　　　　
　ｶﾞﾗｯ　|┃ 　　　　　　　 | 　　　　　　　　　
　　　　　|┃　　　　　　　／￣￣￣＼　　　　　　　
　　　　　|┃三　　　　／　 ::＼:::／::::　＼　　　
　　　　　|┃ 　　　／　 <●>::::::<●>　　＼　　　　　　呼んだな？
　　　　　|┃　　　 |　　　　（__人__）　　　　|
　　　　　|┃三　　＼　　　｀ ⌒´　　　　／
　　　　　|┃三　　／￣￣￣￣￣￣￣＼
||＞＞ Libre Office PART1 ＜＜＜||
http://hibari.2ch.net/test/read.cgi/software/1288792911/

**デフォルトの名無しさん** · 2010/11/05(金) 15:30:12

>>453
リンクせずに設定して調べてみると、HeaderBackGraphicURL は空文字列で
該当するテキストオブジェクトの段落の背景に埋め込まれた画像の URL が指定されている

**デフォルトの名無しさん** · 2010/12/21(火) 21:40:17

calcで

天使 ◆uL5esZLBSE · 2011/07/02(土) 21:05:30.50

これ；デリミタっていうんだけどさ、これをつけなきゃエラーになるような
そんな言語使ってる奴ってどうみてもゴミだと思うんだけど

もしかして「；」これ打ち忘れてコンパイルエラー出すのが楽しいの？
そうか、二度と話かけんなよ

死ねよゴミ

**デフォルトの名無しさん** · 2011/07/21(木) 20:56:49.23

宇宙にはデリミタ派とターミネータ派がいて
10億年も戦争を続けており終わる気配すら無い

**デフォルトの名無しさん** · 2012/01/14(土) 13:22:56.51

マクロからフォームのテキストボックスの値を取得して変数に代入したいのですが
その方法が分かりません。

ご存知の方いませんか？

**デフォルトの名無しさん** · 2012/01/26(木) 10:53:37.58

これだと数式として認識せずうまくいきません。

oSheet1.getCellRangeByName("A" & MyRow1).String ="=VLOOKUP(B" & MyRow1 &";'file:///C:/Users/"& myFileDate & "".csv'#$Sheet1.C1:O65536;7;0)"

どうしたらいいのでしょうか？

**デフォルトの名無しさん** · 2012/01/26(木) 11:10:43.19

自己解決

.Stringを.Formulaにしたら、できました＾＾

**デフォルトの名無しさん** · 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代エリート