←前へ

シミュレーション作成実習７

７．ＶＢＡを使いコマンドボタンを活用する。

　　＜目的＞　ＶＢＡの記述方法とその利用法について知る。

+　左画面から、以下に紹介している「ＶＢＡを使いコマンドボタンを活用する。」マニュアルのA４版PDFファイルをダウンロードできます。

　ご利用下さい。

　実習１で作成した進行波ファイルにコマンドボタンを付ける。

　実習１の課題を終えて作成したＥｘｃｅｌファイルを用意してください。（用意できない場合は

ここからＤｏｗｎｌｏａｄしてください。）

　この実習では以下の４っつボタンをこのファイルに付けます。

①Ｒｅｓｅｔボタンを付け、ボタンでリセットできるようにします。

②縦波のスイッチボタンを付け、横波と同時に表示したり横波だけを表示したりできるようにします。

③ＳＴＯＰボタンとＳＴＡＲＴボタンを付け自動でタイマーが動くようにします。

　その前に「開発」タブが表示されているか確認してください。

[開発] タブが表示されていない場合は、

　[ファイル] タブから、[オプション] の [リボンのユーザー設定] 画面を表示させて、 [メインタブ] の下の [開発] チェックボックスをオンにします。

（１）Ｒｅｓｅｔボタンを付ける。

１．「開発」⇒「挿入」⇒ActivXコントロールの中から四角の（ｺｯﾏﾝﾄﾞﾎﾞﾀﾝ）を選択後、画面のように適当な場所にｺﾏﾝﾄﾞﾎﾞﾀﾝを貼り付けます。

２．ｺﾏﾝﾄﾞﾎﾞﾀﾝ上で右クリックしプロパティ画面の Ｃａｐｔｉｏｎ に「Ｒｅｓｅｔ」と入力します。

　文字が全部表示されない時はｺﾏﾝﾄﾞﾎﾞﾀﾝを広げて大きくしてください。

３．次は、このコマンドボタンを押したとき、何をするのか（命令）をＶＢＡで記述します。

　この命令を書き込む場所を（ＶＢＡエディタ）と言い、このエディタを表示させるには、

　①「Ｒeset］ボタンの上で左Ｗクリックします。（開発⇒ＶisualＢasicでも表示できる）

　②出てくるエディタには左画面のように、

Private　sub　CommandButton1＿Click（）

End　Sub

と表示されているので、CommandButton1をクリックしたときの命令文はこの２行の間に記述します。

命令文は　Ｒａｎｇｅ（”Ａ２”）＝０　と半角英数で記述します。（大文字小文字は関係ない）

これは、カウントを記述するセル番地がＡ２なのでＡ２セルに０（ゼロ）を代入せよ　と言う意味です。

　デザインモードになっているのでこのままでは動きません。

　左の画面のように、「開発」⇒「デザインモード」をクリックしデザインモードを解除します。

　これで動くようになりました。ボタンをクリックしてみて下さい。Ａ２セルの値が０になりましたか？

（２）縦波のスイッチボタンを付ける。

　まず、「Ｒｅｓｅｔ」ボタンの時同様にしてＥ２８セルの左にコマンドボタンを貼り付ける。

　次に、左画面のようにボタンのプロパティのＣａｐｔｉｏｎを「縦波」にして縦波のスイッチボタンを作る。

最後に、このコマンドボタンを押したとき、何をするのか（命令）をＶＢＡで記述します。

　①「Ｒeset］ボタンの上で左Ｗクリックします。

　②出てくるエディタには左画面のように、

Private sub CommandButton2_Click（）

End　Sub

の行間に

　　　Private　sub　CommandButton2＿Click（）

　　　　If Range("E28") = "ON" Then

　　　　 Range("E28") = "OFF"

　　　　 Else

　　　　 Range("E28") = "ON"

　　　　End If

　　　End　Sub

という命令文を英数半角で記述します。（大文字小文字は関係ない）

この意味は、

　もし、Ｅ２８セルに　ＯＮ　と書かれていたら、

　　　Ｅ２８セルに　ＯＦＦ　と書き、

　　　そうでなければ

　　　Ｅ２８セルに　ＯＮ　と書け

という意味です。これをＩＦ文といい、条件にを満たしているかどうか判断し処理させる命令文です。

　書き終わったら、デザインモードを終了させてください。ボタンを押してみて下さい。Ｅ２８セルにＯＮ、ＯＦＦが交互に現れますか？

　最後の仕上げです

「縦波」がＯＮ／ＯＦＦと切り替わってもこのままでは縦波は表示されたままです。したがってこのＥ２８の変化に合わせてグラフ上の縦波が現れたり消えたりするようにＭ列に次のように細工をします。

Ｍ２セルにはすでに０（ゼロ）が入っているが、このセルに

＝ＩＦ（Ｅ２８＝”ＯＦＦ”，１０００，０）

という関数式を記述し、Ｍ３～Ｍ２７までコピーする。

これで、「縦波」ボタンを押すたびにグラフ上の縦波が現れたり消えたりするようになる。

ここで一度上書き保存して置いて下さい。

（３－１）Ｓｔｏｐ　ボタンを作成する。

　これからＶＢＡで動く自動Ｔｉｍｅｒを作りますが、自動Ｔｉｍｅｒはループ（Ｌｏｏｐ）と言う命令文を使います。このＬｏｏｐはぐるぐる回り続けるものでです。したがってまずはのＬｏｏｐに割り込んでＳＴＯＰさせるブレーキを作ってから始めないと止められなくなってしまいます。（無限ループ）最悪の場合は電源を切らないと止まりません。

　（３－１）ではこのＬｏｏｐ命令に割り込める「Ｓｔｏｐ」ボタンを作ります。

　まず、今までと同じように「開発」⇒「挿入」⇒ActivXコントロールの中からｺﾏﾝﾄﾞﾎﾞﾀﾝを選択し「Reset」ボタンの横に貼り付け、右クリックのプロパティの Captin を「Ｓｔｏｐ」としボタンを作成します。

　次にボタン上で左ＷクリックをしてＶＢＡエディタ画面を表示すると、

まずは今までと同じように　

　Private Sub CommandButton3_Click()

　End Sub　

と出るが今回はＬｏｏｐに割り込む機能を持たせるために下の図の様に「ＭｏｕｓｅＤｏｗｎ」機能を持ったＳｕｂを使う。

Private Sub CommandButton3_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

End Sub

　最後に、下の画面を見ながら読んでください。出てきた

Private Sub CommandButton3_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

End Sub

の間に

Private Sub CommandButton3_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

停止＝True

End Sub

エディタの先頭に　

Private　停止　as　Boolean

と記述します。この「Private　停止　as　Boolean」は非常に大切で、このシートでは　停止　という記号は論理記号でその宣言をしているのです。ここで宣言がなされた記号は優先的にLoopに割り込めることになります。ですからこれがなされている記号を使わないと割り込みが上手くいかずSTOPできなくなってしまうのです。

　これで停止ボタンを押すと　停止　と言う記号（変数）がTrueとなり、Loopの中に書かれている　停止　という記号の中身も　True　と変われるようになるのです。

　この　停止　記号を見ながらLoopしていたTimerは　停止　記号がTrueになった途端そこで止まるという仕掛けを組んでおけばそこでＬｏｏｐはStopするのです。

　ではいよいよ自動TimerのStartボタンんの作成です。ここで念のためもう一度上書き保存をしておきましょう。

（３－２）Ｓｔａｒｔ　ボタンを作成する。

　これからＶＢＡで動く自動Ｔｉｍｅｒを作りますが、自動Ｔｉｍｅｒはループ（Ｌｏｏｐ）と言う命令文を使います。このＬｏｏｐはぐるぐる回り続けるものでです。したがってまずはのＬｏｏｐに割り込んでＳＴＯＰさせるブレーキを作ってから始めないと止められなくなってしまいます。（無限ループ）最悪の場合は電源を切らないと止まりません。

　（３－２）ではこのＬｏｏｐ命令に割り込める「Ｓｔｏｐ」ボタンを作りますが、作ってすぐに動かしてはいけません。

　必ずＢａｃｋuｐ（上書き保存）を取ってから行なってください。また、Ｓｔｏｐボタンを押しても止まらない時（暴走）の対処方法（後述）を読んでから行ってください。