医用工学概論 Medical Engineering (ME) 3年前期...
Transcript of 医用工学概論 Medical Engineering (ME) 3年前期...
![Page 1: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/1.jpg)
VBA ( Visual BASIC for Application)
を使って、リサージュ曲線を回転させる。
VBA
Microsoft Office (Excel や Word などのソフトウェア)
に組み込まれた
BASIC 言語によるプログラム、マクロ作成ツール。
使えるようになると 非常に便利。
![Page 2: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/2.jpg)
リサージュ曲線を回転させるマクロを含む
エクセルワークシートを作成する。
![Page 3: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/3.jpg)
マクロ 【macro】
ワープロソフトや表計算ソフトなどで、特定の操作手順をプログラムとして記述して自動化する機能。
プログラムの記述に使う言語をマクロ言語という。
よく使う処理をマクロとして保存しておけば、必要なときに簡単に実行できるようになる。
マクロ機能を持ったアプリケーションソフトは、マクロの開発環境や動作環境が用意されている。
できたプログラムは文書ファイルに他のデータと一緒に保存される。
![Page 4: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/4.jpg)
メニューバーの空白領域を右クリックするとVisual Basic メニューバー表示を選択するリストがでるので、Visual Basic をチェックする。
![Page 5: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/5.jpg)
これをクリックすると VBA が出る。
![Page 6: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/6.jpg)
Excel 2016 では、表示タブ を押すと、右端にマクロのVBAアイコンが出る。
![Page 7: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/7.jpg)
VBA Project ウィンドウの Sheet 1 をクリック。
Sheet 1 で動作する マクロ コードを記述する
ウィンドウが現れる。
![Page 8: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/8.jpg)
Sheet とは
エクセルの表形式ファイルは、デフォルトでは(特に編集しなければ)
はじめは、3ページ用意され、各ページに Sheet 1,2,3 と名前が
付いている。表の左下に、ページをめくるためのボタン(タグ)が
あるので、押してみて下さい。
Sheet 1、2、3 に別々のデータやマクロを書き込むことができる。
Sheet の追加、削除、名前の変更は自由に可能。
![Page 9: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/9.jpg)
セルE1 に X amplitude と入力、 F1 に 1 と入力。 (Xの振幅)
セルE2 に X frequency と入力、 F2 に 50 と入力。 (Xの周波数)
セルE4 に Y amplitude と入力、 F4 に 1 と入力。 (Yの振幅)
セルE5 に Y frequency と入力、 F5 に 50 と入力。 (Yの周波数)
![Page 10: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/10.jpg)
Sheet 1 で動作する マクロ コードを記述する。
まず、sub Lissajous () と入力し、キーボードの
Enter キーを押す。 End Sub 文が自動的に記述される。
![Page 11: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/11.jpg)
Sub Lissajous () と
End Sub の間に
このコードを記述する。
![Page 12: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/12.jpg)
コード記入時には、大文字、小文字の区別は不要。
VBAが自動的に大文字が必要な箇所は変換してくれる。
重要な部位のコードは、自動的に青色に変化する。
Sub 関数名() ~ End Sub
Sub は、サブルーチン(プログラムの一部、関数)を記述する範囲を
設定するコード。 関数名は自由に付けられる。
Sub 関数名() と End Sub の間に、実行したいプログラムを書く。
Worksheets ("sheet 1") . Cells ( 1, 6 )
エクセルワークシート の sheet 1 のセル(1,6) の値を指す関数。
Cells は(たて、よこ)の順に座標を記述するので、混乱しないように。
Cells ( i , j ) = 上から i 番目で、左から j 番目のセルの値
![Page 13: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/13.jpg)
xa = Worksheets ("sheet1") . Cells (1, 6)xf = Worksheets ("sheet1") . Cells (2, 6)ya = Worksheets ("sheet1") . Cells (4, 6)yf = Worksheets ("sheet1") . Cells (5, 6)
xa に、セル(1,6)つまりセル F1 に書いた値を入れる。xf に、セル(2,6)つまりセル F2 に書いた値を入れる。ya に、セル(4,6)つまりセル F4 に書いた値を入れる。yf に、セル(5,6)つまりセル F5 に書いた値を入れる。
xa に交流 X の振幅が代入される。xf に交流 X の周波数が代入される。ya に交流 Y の振幅が代入される。yf に交流 Y の周波数が代入される。
類似したコードの繰り返し記述は、コピー (Ctrl C),ペースト (Ctrl V) を使って省力化してください
![Page 14: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/14.jpg)
For xp = 0 To 360 Step 10
Next xp
For ~ Next 文
変数 xp (ここでは、交流 X の位相 phase) を
0°から 360°まで 10°刻みで増加させながら
For と Next の間に記述されたプログラムを
繰り返し実行する文。
![Page 15: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/15.jpg)
For i = 2 To 22
Next i
変数 i (ここではワークシートの たての番号)を、2 から 22 まで 1 づつ増加させながらFor と Next の間のプログラムを繰り返し実行する。(Step文が省略されると 増分は 1 になる。)
t = Worksheets ("sheet1") . Cells (i, 1)
変数 t (ここでは時間(秒))の値が上から i 番目、左から 1 番目つまり カラムA のセルの値になる。
![Page 16: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/16.jpg)
x = xa * Sin ( 2 * 3.14 * xf * t + xp * 3.14 / 180 )y = ya * Sin (2 * 3.14 * yf * t )
Worksheets ("sheet1") . Cells ( i , 2 ) = xWorksheets ("sheet1") . Cells ( i , 3 ) = y
変数 x (交流X)の値を、xa, xf, xp から求め、
変数 y (交流Y)の値を、ya, yf から求める。
求めた x, y の値を、それぞれ
カラムB (左から2番目)と カラムC (左から3番目)
の、上から i 番目のセルに入力される。
![Page 17: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/17.jpg)
For i = 2 To 22
t = Worksheets("sheet1").Cells(i, 1)
x = xa * Sin(2 * 3.14 * xf * t + xp * 3.14 / 180)
y = ya * Sin(2 * 3.14 * yf * t)
Worksheets("sheet1").Cells(i, 2) = x
Worksheets("sheet1").Cells(i, 3) = y
Next i
上記のコードが、xp が 10 づつ増加するごとに実行され、カラムBとカラムCの上から2番目から22番目の数字が変化するたびに、グラフに表示されるリサージュ曲線が変化する。
![Page 18: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/18.jpg)
For xp = 0 To 360 Step 10
MsgBox ("X phase = " & xp)
DoEvents
Next xp
交流Xの位相 xp が 10づつ増加するたびにリサージュ曲線が変化する様子を観察したいが、For ~ Next 文の間に、小休止を入れないとプログラムが瞬時に終了して、観察できない。そこで、 For ~ Next ループの中に、ループを一時停止させるためのMsgBox () 関数 (メッセージボックス) を入れる。
DoEvents は、グラフを再描画させるコマンド(命令)。
![Page 19: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/19.jpg)
MsgBox ("X phase = " & xp)
MsgBox () メッセージボックス関数
For ~ Next 文の中に入れると、ループが1回回るたびに、エクセルワークシート上にメッセージボックスが現れる。その中の OK ボタンをクリックしないと、次のループが回らない。
メッセージボックス内には、文を表示できるので、"X phase = " & xp を表示させる。
" " で挟まれた文字はそのまま表示される。変数 xp を入れると、変数の値が表示される。
&記号は、文字または数字をつなぐ働きを持つ。
![Page 20: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/20.jpg)
作ったプログラム(マクロを含むファイル)の保存方法。Excel の ファイルメニユー 名前をつけて保存を選択。
![Page 21: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/21.jpg)
VBAのマクロを加えたエクセルプログラムは、VBAウィンドウのファイルメニューではなく、
Excelのファイルメニューから保存する。
![Page 22: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/22.jpg)
Excel2007では、Excel97-2003ブック形式のファイルで保存する。
![Page 23: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/23.jpg)
ファイルを保存したら、一度エクセルを終了する。再度、マクロを含むエクセルファイル(ブック)を開く。Excel のセキュリティが高く設定されているとこのような警告が出て、プログラムが開かない。
![Page 24: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/24.jpg)
Excel のセキュリティ を下げる方法。ツール ー マクロ - セキュリティ を選択
![Page 25: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/25.jpg)
Excel のセキュリティレベルを 中 に選択。
![Page 26: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/26.jpg)
再度、作成したExcel ファイル(ブック)を開くとこのようなダイアログがでるので、マクロを有効にする を選択。
![Page 27: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/27.jpg)
Excel 2016 の場合。 Lissajours.xls などのマクロを動かしたい場合は、マクロに対するセキュリティを下げる作業が必要。
左端の ファイル タブ を押し、Excel情報画面を出す。
![Page 28: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/28.jpg)
Excel情報画面の左端に並ぶメニューの一番下の、オプションを クリック。
![Page 29: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/29.jpg)
Excelのオプション画面の左端に並ぶメニューの一番下の、セキュリティセンターを クリック。
![Page 30: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/30.jpg)
Excelのオプション画面の左端メニューの一番下のセキュリティセンターをクリックして、
セキュリティセンターの設定をクリック。
![Page 31: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/31.jpg)
セキュリティセンター画面のマクロの設定をクリックし、すべてのマクロを有効にする の項目にチェックを入れる。
最後に、右下の OK ボタンをクリックする。
そして、一度 Excel を終了させる。
再度Excelを起動するとマクロが作動する。
![Page 32: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/32.jpg)
Excelを再起動したら、Lissajous.xlsを起動させて、マクロが作動するか確認して下さい。
![Page 33: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/33.jpg)
VBAマクロ実行ボタンをクリック
![Page 34: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/34.jpg)
![Page 35: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/35.jpg)
マクロを実行し、メッセージボックスのOKボタンを押して、
リサージュ曲線が回転する様子を観察してください。
OKボタンを押しても曲線が動かない不都合が生じる。
メッセージボックスの位置をマウスで移動させると動く。
![Page 36: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/36.jpg)
メッセージボックスのOKボタンを押しただけでは
リサージュ曲線が回転しない理由は、
エクセルワークシート内のグラフが再描画されない
ため。
ワークシート内の数字などに変更が生じた場合に
ワークシートを再計算 (再描画)するコマンド(命令)
DoEvents
(古いマクロは Calculate と書いてあるのでDoEvevts に修正してください。
を、マクロのプログラムに追加する。
![Page 37: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/37.jpg)
VBAボタンをクリックしてマクロを編集する。
![Page 38: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/38.jpg)
このコードを記述する。
![Page 39: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/39.jpg)
Excel のVBAマクロ実行ボタンをクリック。OKボタンを押すと曲線が再描画されて回転することを確認して下さい。
![Page 40: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/40.jpg)
End Sub の下に
Sub Lissajous2( )
と記述して
Enter キーを押す。
マクロを追加する。
リサージュ曲線が自動的に回転する
マクロ Lissajous2 を作成する。
![Page 41: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/41.jpg)
Sub Lissajous2() の下に End Sub が現れる。
Sub Lissajous2() と End Sub の間に
Sub Lissajous() と同じプログラム(コード)を
記述する。( Sub Lissajous() からコピーして
貼り付けて下さい。)
複数のマクロが連続して表示されるモード
マクロが1つずつ表示されるモード
![Page 42: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/42.jpg)
xp の最大値を 360 に、
xp の増分値を 1 に変更。
DoEvents の下に記述されていた
MsgBox ("X phase = " & xp)
を削除する。
マクロ Lissajous2 の編集を行う。
![Page 43: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/43.jpg)
Excel のVBAマクロ実行ボタンをクリックするとマクロ選択ダイアログ内に新たなマクロ Lissajous2が出る。これを選択。
![Page 44: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/44.jpg)
xp の増分値を1にしたので( step 1 )
(プログラム中の step 1 は、省略できる。
For 文の中で step 文が省略されると
step (増分)は 1 と解釈される。)
自動的にリサージュ曲線が1度刻みで回転する
グラフが出現する。
xpの最大値を 720 にしたら、リサージュ曲線は、
2回転 (360°x 2 ) してプログラムが止まる。
各自、xp の増分や最大値、XとYの振幅、周波数の
値を変えて、描画されるリサージュ曲線の変化を
確認して下さい。
![Page 45: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/45.jpg)
今回作成したマクロは、
必要最低限の機能しか記述していないので、
各自、工夫してマクロコードの改良を試みてください。
例: 自動的にXとYの周波数比が変化していくマクロ、
曲線の色が変化するマクロ、
リサージュの立体的表示を行うマクロ、
など。
![Page 46: 医用工学概論 Medical Engineering (ME) 3年前期 …chtgkato3.med.hokudai.ac.jp/kougi/ME_practice/MEpractice...ya に、セル(4,6)つまりセルF4 に書いた値を入れる。yf](https://reader034.fdocument.pub/reader034/viewer/2022050604/5fabc3597c3812380e7171f9/html5/thumbnails/46.jpg)
VBAを解説した
書籍やホームページ
は多数ある。
臨床検査技師は
数字データを多く扱う
職業なので、
VBAが使えると
非常に仕事が楽になる
場合が多い。