So-net無料ブログ作成
検索選択
LibreOffice 4.1.1.2 ブログトップ

モジュールの追加 LibreOffice CalcBasic [LibreOffice 4.1.1.2]

モジュールの追加 LibreOffice CalcBasic

LibreOfficeCalcBaic_module.png

マクロの管理→モジュール→新規作成

 


LibreOffce Calc アドオン カレンダーを試す。 [LibreOffice 4.1.1.2]

LibreOffce Calc アドオン カレンダーを試す。

add-on_calendar_1.jpg

アドオンの入手とインストール

ttp://extensions.libreoffice.org/extension-center/calendar-for-calc/releases/4.0.1

↑で  pycalendar-4.0.1.oxt をクリックしてDL Firefoxの場合LibreOffice で開くを選択add-on_calendar_2.jpg

 拡張機能マネジャーが開きインストール

add-on_calendar_3.jpg

利用方法

add-on_calendar_4.jpg

ツール→アドオン→calendar

日付をダブルクリックで、選択セルに日付が入力される。

 

注意事項

拡張機能マネージャーで Python calender for Calc 4.01 を選択し、オプションで表示形式を変えても再起動後、警告がでて初期に戻る.(変更したまま表示されているが)

初期、yyyy-mm-dd 

add-on_calendar_5.jpg

add-on_calendar_6.jpg

間違いがあるかも?

追記

YYYY/MM/DD(AAA)にすればOKみたい

 

 


LibreOffce Calc Basic シートイベント ダブルクリックで行、列番号取得する実験 [LibreOffice 4.1.1.2]

LibreOffce Calc Basic シートイベント ダブルクリックで行、列番号取得する実験

calc_basic_DClick_1.jpg

手順

シートイベント用マクロの作成 ダブルクリック用

sub D_click()
 dim row as long
 dim column as long
'行番号取得 行番号はゼロから
    row = ThisComponent.CurrentController.getSelection().getRangeAddress().StartRow
'列番号取得 列番号はゼロから
    column= ThisComponent.CurrentController.getSelection().getRangeAddress().StartColumn
'メッセージボックスに表示、分かりやすく取得した番号+1
    msgbox "Row 行は " &  row+1 & chr(13) & "Column 列は " & Column +1
End Sub

calc_basic_DClick_5.jpg

 

シート名の所で右クリック、シートイベント選択

calc_basic_DClick_2.jpg

ダブルクリック イベントを選択し、マクロを選択

calc_basic_DClick_3.jpg

calc_basic_DClick_4.jpg

calc_basic_DClick_6.jpg

 

今日はここまで

 


LibreOffice Basic (マクロ)を試してみた。Msgboxの実験 [LibreOffice 4.1.1.2]

LibreOffice Basic (マクロ)を試してみた。Msgboxの実験

まだまだ手探り状態なので、取り合えずMsgBoxの「はい」「いいえ」ボタンの戻り値を調べてみた。

Sub msgbox2
Dim modorichi As Integer
modorichi = MsgBox("MsgBoxの実験" & chr(13) & "「はい」「いいえ」の戻り値を調べる" ,4+256+32,"Msgbox2" )
msgbox "押されたボタンの戻り値は " & modorichi & "です。"

End sub

Msgbox2はMsgBoxのタイトルバーに表示する文字
chr(13)は改行 VBAならvbVRLF

「はい」の戻り値   6
「いいえ」の戻り値  7

LibreOfice Msgbox_02.jpg

マクロの実行 ステップオーバー(イン)(1行ずつ実行)Shift+F8

 

参考資料

www.ja-fukuoka.or.jp/pdf/libre/ExceltoCalc.pdf 

 

 

 

 


LibreOffice 4.1.1.2 ブログトップ