ブログの説明

学校に通わないで学んだことを記しています。間違っているところが何かありましたらご指摘下さると幸いです。コメントに対する返信が遅れる可能性があります。その場合は申し訳ありません。

このブログではサイドバーに広告を表示しています。このブログ内の投稿記事を検索するには右上の拡大鏡のアイコンを、アーカイブやラベル付けから投稿記事を閲覧するには左上の三重線のアイコンをクリックして下さい。

数式の表示にはMathJaxを利用させていただいています。数式の表示のためにJavaScriptが有効である必要があります。そうでない場合、訳の分からないLatexのコードが表示されます。幾何学図形やチャートの表示にはHTML5 CanvasやGoogle Chartを使用しています。その表示のためにもJavaScriptが有効である必要があります。

LibreOffice 6 Calcでフォーム（ダイアログ）を作成してマクロで表示

ここで用いたLibreOfficeのバージョンと設定
LibreOffice 6.1
LibreOfficeの「ツール」-「オプション」-「LibreOffice」の「詳細」で「Java実行環境を使用」にチェックが入っていること。「インストール済みのJava実行環境(JRE)」が表示されていること。

LibreOffice 6.1 Calcにはデータを入力したり表示したりするのに使うことができるフォームが用意されている。そしてそのフォームはダイアログと呼ばれている。今回はそのダイアログを作成し、それを表示させたり閉じたりするマクロをLibreOffice Basicを使って実装してみる。

フォームコントロールの作成

  1. LibreOffice Calcを起動。
  2. トップメニューで「表示」-「ツールバー」-「フォームコントロール」という順に選び、フォームコントロールのツールバーを表示させる。
  3. フォームコントロールのツールバーの中から「ボタン」（プッシュ・ボタン）を選び、スプレッドシートの適当な場所にプッシュ・ボタンを作成して配置する。
  4. 作成されたプッシュ・ボタンの上でマウスの右クリックメニューを表示させ、その中から「コントロール」を選ぶ。
  5. 「属性 プッシュボタン」というダイアログが表示されるので、「全般」タブ内にある「タイトル」の項目を「ダイアログ表示」に変える。
  6. トップメニューで「ファイル」-「保存」を選んで変更内容を保存する。

スプレッドシート上でのプッシュ・ボタンの作成とその属性の設定はこれで終わり。

ダイアログを作成

「閉じる」というコマンド・ボタンだけを持つ単純なダイアログを作成する。

  1. LibreOffice Calcのトップメニューで「ツール」-「マクロ」-「ダイアログの管理」を選ぶ。
  2. そうすると「LibreOffice Basicマクロの管理」というダイアログが開く。「ダイアログ」というタブを選び、ダイアログに表示されている.odsファイル（今開いているスプレッドシート名）を選ぶ。
  3. 「新規作成」ボタンを押して「Dialog1」を作成し、「編集」ボタンを押す。
  4. そうすると統合開発環境(IDE)が起動し、ダイアログの雛形が表示されるはず。
  5. ツールバーの中から「ボタン」（コマンド・ボタン）を選び、ダイアログの雛形の中の適当な位置に適当な大きさのコマンド・ボタンを作る。
  6. そのコマンド・ボタンが選択されている状態ではその属性一覧がプロパティ・ウィンドウに表示されているはず。その中の「全般」タブを選び、その名前を「CommandButton_closeDialog」と入力し、そのタイトルを「閉じる」と入力する。
  7. トップメニューの「ファイル」-「保存」を選んで変更内容を保存する。

ダイアログの作成とコマンド・ボタンの作成とその属性の設定はこれで終わり。

ダイアログを表示するマクロ（LibreOffice Basicのコード）を記述

  • スプレッドシート中に配置した「ダイアログ表示」ボタンが押されるとダイアログが表示される。
  • ダイアログ中にある「閉じる」ボタンが押されるとそのダイアログが閉じる。

これらの働きを持つマクロ（LibreOffice Basicコード）を記述する。

  1. LibreOffice Calcのトップメニューで「ツール」-「マクロ」-「マクロの管理」-「LibreOffice Basic」という順に選び、「LibreOffice Basic マクロ」というダイアログを開く。
  2. 「マクロの記録先」の一覧から今表示しているスプレッドシートを意味する.odsファイルを選び、「新規作成」を押して「Module1」を加える。

    統合開発環境(IDE)のウィンドウのほうでは、「ツール」-「モジュールの選択」を選び、「LibreOffice Basicマクロ管理」というダイアログを開いても「新規作成」ボタンを押してModule1を追加することができる。

  3. そうすると統合開発環境(IDE)が起動する。「オブジェクトカタログ」の中にそのModule1が表示されてそれが選ばれていれば、エディタには次のようなコードが表示されるはず。 
    REM  *****  BASIC  *****

Sub Main

End Sub
  4. 次のようなコードをここに付け加える。 
    REM  *****  BASIC  *****

'全ての変数を明示的に宣言
Option Explicit

'oDialogというオブジェクト型変数を宣言
Dim oDialog As Object

'ダイアログを開くサブルーチン
Sub openDialog
   'LoadLibraryメソッドでStandardというライブラリを読み込む  
   DialogLibraries.LoadLibrary("Standard")
   
   'CreateUnoDialog函数でダイアログオブジェクトを生成
   '末尾のDialog1が先ほど作成したダイアログ名
   oDialog = CreateUnoDialog(DialogLibraries.Standard.Dialog1)

   'Executeメソッドでダイアログを開く
   oDialog.Execute()
   
   'Disposeメソッドでリソースを廃棄
   oDialog.Dispose()
End Sub

'ダイアログを閉じるサブルーチン
Sub closeDialog
   'endExecuteメソッドでダイアログを閉じる
   oDialog.endExecute()
End Sub

    コードは上から順番に実行されるのが基本原則。

    Option Explicitは、このモジュールで使用する全ての変数を宣言してから使わなければならないという規則を適用するオプション。こうすることで使用する変数をはっきりさせ、変数を比較的安全に使うことができる。

    サブルーチン（Sub サブルーチン名......End Subブロック）の外側でオブジェクト型変数oDialogを宣言しておく。

    openDialogと名付けたサブルーチン内には、ダイアログを用いるための準備とそのダイアログの表示を行うためのコードを置く。

    DialogLibraries.LoadLibrary("Standard")とoDialog = CreateUnoDialog(DialogLibraries.Standard.Dialog1)はダイアログを使うためのおまじないのようなもの。CreateUnoDialogk()函数の引数の末尾の.Dialog1が先ほど作成したダイアログの名前になっていることに要注意。

    closeDialogと名付けたサブルーチン内には、表示されているダイアログを閉じるためのコードを置く。endExecute()メソッドを使うとダイアログを閉じることができる。

  5. トップメニューの「ファイル」-「保存」を選んでコードを保存する。

LibreOffice Basicでダイアログを使う方法には、LoadDialog()函数を用いたもう一つのおまじないがある。それが次のとおり。

Sub openDialog
   Dim oDialog As Object
   BasicLibraries.LoadLibrary("Tools")
   oDialog = LoadDialog("Standard", "Dialog1")
   oDialog.Execute()
   oDialog.Dispose()

これでコードの作成（コーディング）は終わった。次はこれらのマクロ（サブルーチン）とイベントを関連付ける手順に入る。

ダイアログの「閉じる」ボタンのイベントにマクロを割り当てる

  1. 統合開発環境(IDE)のオブジェクトカタログの一覧から、または下のほうのタブの中から、先ほど作成したDialog1を選んで表示させる。
  2. 「閉じる」と名づけたコマンド・ボタンを選択した状態にすると、その属性の一覧がプロパティ・ウィンドウに表示されるはず。表示されていなければ、トップメニューの「表示」-「プロパティ」を選んで表示させる。
  3. プロパティ・ウィンドウの「イベント」タブを選び、イベントの中から「マウスボタンを離した時」を見つけてその右端にあるボタンを押す。
  4. そうすると「アクションの割り当て」というダイアログが開く。イベントの中で「マウスボタンを離した時」が選択されているのを確認し、「マクロ」ボタンを押す。
  5. そうすると「マクロセレクター」というダイアログが開く。ライブラリの一覧から先ほど作成したModule1を選ぶ。
  6. マクロ名の一覧の中からcloseDialogを選び、OKを押す。
  7. 割り当てられたアクションに「Standard.Module1.closeDialog」と表示されていることを確認してOKボタンを押す。
  8. イベントの「マウスボタンを離した時」の項目にマクロ名が割り当てられたことを確認する。
  9. トップメニューの「ファイル」-「保存」を押して保存し、統合開発環境(IDE)を閉じる。

「閉じる」ボタンのイベントにマクロ（LibreOffice Basicコード）を割り当てることがこれでできた。

「ダイアログ表示」ボタンのイベントにマクロを割り当てる

  1. フォームコントロールというツールバーで「デザインモード」を押し、デザインモードにする。
  2. 「ダイアログ表示」ボタンの上でマウスの右クリック・メニューを表示させ、その一覧から「コントロール」を選ぶ。
  3. 「属性 プッシュ・ボタン」ダイアログの「イベント」タブを選び、その中から「マウスボタンを離したとき」という項目の右端にあるボタンを押す。そうすると「アクションの割り当て」というダイアログが開く。
  4. イベントとして「マウスボタンを離したとき」という項目が選ばれていることを確認して「マクロ」というボタンを押す。
  5. 「マクロセレクター」というダイアログが開くので、そこに表示されているライブラリの一覧から先ほど作成したModule1を選ぶ。
  6. そうすると「マクロ名」として先ほど作成したサブルーチン名が表示されるはず。そのうちの「openDialog」を選ぶ。そしてOKを押す。
  7. 「アクションの割り当て」ダイアログでは、イベントとそれに割り当てられたマクロ名が確認できるはず。そしてOKを押す。
  8. 「属性 プッシュボタン」ダイアログの「イベント」タブ内の「マウスボタンを離した時」の項目には、ライブラリStandardと、モジュール名Module1と、マクロ名openDialogが指定されたことが分かるはず。
  9. 「属性 プッシュボタン」ダイアログを閉じ、トップメニューで「ファイル」-「保存」を選んで変更内容を保存する。

これで完成。デザインモードを解除してスプレッドシート上の「ダイアログ表示」ボタンを押し、ダイアログが表示されることを確認する。そしてダイアログ中の「閉じる」ボタンを押してダイアログが閉じることを確認する。

関連記事

コメント

コメントを投稿

このブログの人気の投稿

LATEXで数式：指数と順列などで使う添数・添字

累乗（べき乗）で使われる指数（べき）など、右上に添えられる数や文字や記号はキャレット記号を用いて次のように表記することができる。添えられる数や文字や記号が複数に及んだり数式になる場合はそれらを{}で囲う必要がある。ちなみに、・は\cdotを、÷は\divを、≠は\neqをそれぞれ用い、分数は\frac{}{}で乗根は\sqrt[]{}で表すことができる。スペースを有効にするには\をスペースの前に付ける。 aのn乗 \( a^n \) a^n \( a^3 = a \cdot a \cdot a \) a^3 = a \cdot a \cdot a \( a^{m+n} \) a^{m+n} 指数法則 \( a^0 = 1 \ (a \neq 0) \) a^0 = 1 \ (a \neq 0) 指数法則 \( a^{\frac{1}{n}} = \sqrt[n]{a} \) a^{\frac{1}{n}} = \sqrt[n]{a} 指数法則 \( a^{\frac{m}{n}} = \sqrt[n]{a^m} \) a^{\frac{m}{n}} = \sqrt[n]{a^m} 指数法則 \( a^{-\frac{m}{n}} = \frac{1}{\sqrt[n]{a^m}} \) a^{-\frac{m}{n}} = \frac{1}{\sqrt[n]{a^m}} 指数法則 \( a^m a^n = a^{m+n} \) a^m a^n = a^{m+n} 指数法則 \( \frac{a^m}{a^n} = \frac{1}{a^{n-m}} \ (m < n) \) \frac{a^m}{a^n} = \frac{1}{a^{n-m}} \ (m < n) 指数法則 \( (a^m)^n = a^{mn} \) (a^m)^n = a^{mn} 指数法則 \( (ab)^n = a^n b^n \) (ab)^n = a^n b^n 指数法則 \( \left(\frac{a}{b}\right)^n = \frac{a^n}{b^n} \) \left(\frac{a}{b}\right)^n = \frac{a^n}{b^n} 指数法則 \( \frac{a^m}{a^n}
続きを読む

10の補数と9の補数と2の補数と1の補数

10進数と10の補数 10進法の四則演算に慣れている人なら算術的な直感で分かるのが10の補数。 算盤 そろばん を使っている人は10の補数と5の補数を出力する函数を会得しているかもしれない。 例えば、2に対して10の補数はいくつかと問われればそれは8だと分かるし、6に対して10の補数はいくつかと問われればそれは4だと分かるし、5に対して10の補数はいくつかと問われれば5だと直感的に分かる。 また、3に対して5の補数はいくつかと問われればそれは2だと分かるし、2に対して5の補数はいくつかと問われれば3だと分かる。 10の補数とは、ある自然数に対してそれにいくつの自然数を加えれば10になるのかという問いに答えたもの。自然数とは、ここでは0, 1, 2, 3, 4, 5, 6, 7, 8, 9のこと。 ある自然数xに対する10の補数yは次のように計算することによって答えることができる。 \[ y = 10 - x \] 10進法の位取り記数法では、桁上がり（位上がり）が起こる数が10であるので、ある数にあといくつ足すと桁上がりが起こるかを理解していることは、その四則演算においてとても重要な暗記事項になっている。 10進法の四則演算に慣れた人の頭の中には次のような函数または対応表があるのかもしれない。 \[ f(x) = 10 - x \] xは引数。「xに対する10の補数」を出力してくれる函数f(x)。 10の補数の対応表 10進数 10の補数 0 10 1 9 2 8 3 7 4 6 5 5 6 4 7 3 8 2 9 1 10 0 補数のこの対応表を見ると、数値を小さい順から並べた昇順と数値を大きい順から並べた降順との写像（マッピング）関係に見える。 10の補数と桁上がり 例えば、\( 6 + 7 = \)を計算するとき、人は6または7の補数を瞬時に思い浮かべ、加える数がそれを上回っている場合に桁上がりが起こると即座に認識するはず。つまり、6に対する10の補数である4を思い浮かべ、その4より大きい7から4を引いた数である3と10を足し合わせて答えを計算するかもしれない。 \[ \begin{align*} 6 + 7 &=
続きを読む

Visual Studio 2019にはC++のためのフォームデザイナーがない件

イメージ
Visual Studio 2019を利用してC++でWindowsフォームアプリを作成しようと「新しいプロジェクトの作成」で「Windowsデスクトップアプリケーション」を選んでみたものの、フォーム・デザイナーが見当たらないことに気が付いた。ユーザー・インターフェイスはソースコードを直接いじれということか。これは厳しい。 C++を諦めてC#でフォームをデザインしろというのが常識的な対処法になるのかもしれないが、それでもC++で作る必要があるという隙間需要を考慮し、今回はこの問題に対処する二通りの対処法をインターネット上で見つけることができたので紹介したいと思う。 Visual Studio Installerでは、「.NETデスクトップ開発」と「C++によるデスクトップ開発」にチェックを入れてインストールしておいたのだけれど、これだけではデフォルトで「ビルドツールC++/CLIサポート」がインストールされないようだ。これを追加インストールする必要がまずあった。その手順は次のとおり。 対処法１ コードを追加する方法 Visual Studio Installerをまず起動した。 「インストール済み」のVisual Studio **** 2019に対して「変更」を選んだ。 「ワークロード」タブで「.NETデスクトップ環境」と「C++によるデスクトップ環境」の両方にチェックが入っていることを確認した。 「個別のコンポーネント」タブを選び、「C++/CLI」として検索した。そうするとビルドツールのC++/CLIサポートの一覧が表示された。 この執筆時点では「v142ビルドツール(14.27)のC++/CLIサポート」がどうやら最新版のように見えたのでこれにチェックを入れた。 そうしておいてからそのダイアログ・ボックス右下の「変更」ボタンを押した。 これでダウンロードとインストールが自動的に行われるので、しばらくの間待つ。 インストールが完了したが、「警告あり」と表示されてしまった。「問題の表示」によればMicrosoft.VisualStudio.AspNetDiagnosticPack.Msiのインストールに失敗したらしい。ここではこの問題には対処せず、無視して次の手順に進んだ。 Visual Studio Installerを終了
続きを読む