Microsoft Word - VBA基礎(6).docx

Size: px

Start display at page:

Download "Microsoft Word - VBA基礎(6).docx"

たつやいなくら
5 years ago
Views:

あるクラスの算数の平均点と理科の平均点を読み込み総点を計算するプログラムを考えてみましょう一クラスだけ読み込む場合は test50 のようなプログラムになりますプログラムの流れとしては非常に簡単です Sub test50() a = InputBox(" バナナ組の算数の平均点を入力してください ") b = InputBox(" バナナ組の理科の平均点を入力してください ")

1 あるクラスの算数の平均点と理科の平均点を読み込み総点を計算するプログラムを考えてみましょう一クラスだけ読み込む場合は test50 のようなプログラムになりますプログラムの流れとしては非常に簡単です Sub test50() a = InputBox(" バナナ組の算数の平均点を入力してください ") b = InputBox(" バナナ組の理科の平均点を入力してください ") MsgBox " バナナ組の総点は " & a + b & " です " このプログラムは 1 つのクラスだけを対象にしていますがクラスが増えた場合にはどのようなプログラムになるでしょう例えばバナナメロンアップルオレンジピーチ組の全部に対して同様な操作を行う場合を考えます test51 がそのプログラムです Sub test51() a = InputBox(" バナナ組の算数の平均点を入力してください ") b = InputBox(" バナナ組の理科の平均点を入力してください ") MsgBox " バナナ組の総点は " & a + b & " です " a = InputBox(" メロン組の算数の平均点を入力してください ") b = InputBox(" メロン組の理科の平均点を入力してください ") MsgBox " メロン組の総点は " & a + b & " です " a = InputBox(" アップル組の算数の平均点を入力してください ") b = InputBox(" アップル組の理科の平均点を入力してください ") MsgBox " アップル組の総点は " & a + b & " です " a = InputBox(" オレンジ組の算数の平均点を入力してください ") b = InputBox(" オレンジ組の理科の平均点を入力してください ") MsgBox " オレンジ組の総点は " & a + b & " です " a = InputBox(" イチゴ組の算数の平均点を入力してください ") b = InputBox(" イチゴ組の理科の平均点を入力してください ") MsgBox " イチゴ組の総点は " & a + b & " です " a = InputBox(" ピーチ組の算数の平均点を入力してください ") b = InputBox(" ピーチ組の理科の平均点を入力してください ") MsgBox " ピーチ組の総点は " & a + b & " です "

2 このプログラムを見ると同じ操作ですがクラスの名前だけが違っていますこのような同じ操作を繰り返す場合には操作をひとまとめにして別のプログラムとして独立させそれを呼び出すことで同じ計算ができますそのように書き換えたプログラムが test52 です test52 を実行してみると test51 と同じ動きをします Sub test52() Call proc53(" バナナ ") Call proc53(" メロン ") Call proc53(" アップル ") Call proc53(" オレンジ ") Call proc53(" ピーチ ") Call proc53(" レモン ") Sub proc53(fruts As String) a = InputBox(fruts & " 組の算数の平均点を入力してください ") b = InputBox(fruts & " 組の理科の平均点を入力してください ") MsgBox fruts & " 組の総点は " & a + b & " です " test52 はどのような動きをしているのでしょう test52 には単に Call proc53( xxx ) と書かれています Call という命令は別のところで定義されているプログラムを呼び出しなさいという命令ですこの場合には proc53 というプログラムを呼び出しています proc53 はすぐ下にあります proc53 はこれまでのプログラムの書き方と少し異なりますどの点かというとこれまでは () 内に何も書きませんでしたがこのプログラムでは fruts as String とまるで変数の定義のような書き方がしてあります実際にこれは変数の定義です fruts という文字変数を定義していますこの fruts という変数に何が入るかというと test52 で記述されていたクラスの名前 ( フルーツ名 ) が入りますつまりこのカッコ内の変数は呼び出す側から呼び出される側へのデータの受け渡しに使われますこのような変数を引数 ( ひきすう ) と呼びます fruts の部分を呼び出す際の変数に置き換えてみると test51 と同じ命令になりますこのようなプログラムの書き方は大きなプログラムを書く場合にしばしば使います逆にこれまでのようにプログラム全体を 1 つのプログラム (Sub End sub) 内に書くことは稀ですなぜならプログラムが複雑になってくるとデータの流れをわかりやすく記述することが難しくなるためですそのためプルグラム全体の流れを主プログラムに書きそこから各部品 ( 副プロシージャ ) を呼び出す形式をとりますこれにより主プログラム設計者は全体の流れだけを作り副プロシージャ設計者は各機能プログラムを担当するこ

3 とで分担作業が可能になりますこれはまるで大きな製品を作る際の分業に似ています例えば車一台を作る場合でも各部品は多くの部品メーカーが作りますそして車メーカーは最後の組み立て部分だけを行います車メーカーは規格仕様のデータを部品メーカーに渡すだけです各部品メーカーは同じような部品であれば他社の車の部品もデータさへ揃えば作ることも可能ですこのように分業化するだけでなくいろいろな場面で同じような操作を行うことがありますので副プロシージャを用意しておけば様々な別のプログラムでも使うことができます使い方は下記の通りです Call xxxxx( yyyy ) xxxxx という別のプロシージャを呼び出すその際に引数として yyyy というデータを引き渡す Sub xxxxx(zzzz As wwww) 呼び出された際に zzzz という変数に yyyy というデータが入る次に a,b,c の数値を渡して 3 倍した値を計算する場合を考えてみます Sub proc54() Dim c As Double Dim x As Double Dim y As Double Dim z As Double a = 3# b = 5# c = 7# MsgBox "a=" & a & " b=" & b & " c=" & c MsgBox "x=" & x & " y=" & y & " z=" & z Call proc55(a, b, c, x, y, z) MsgBox "a=" & a & " b=" & b & " c=" & c MsgBox "x=" & x & " y=" & y & " z=" & z Sub proc55(d As Double, e As Double, f As Double, l As Double, m As Double, n As Double) MsgBox "proc55 では d=" & d & " e=" & e & " f=" & f MsgBox "proc55 では l=" & l & " m=" & m & " n=" & n l = 3 * d m = 3 * e n = 3 * f MsgBox "proc55 では d=" & d & " e=" & e & " f=" & f MsgBox "proc55 では l=" & l & " m=" & m & " n=" & n

Proc54 を実行すると下の順にメッセージボックスが現れます上の 2 つは Call proc55(a,b,c,x,y,z) 実行前の変数の値を表示していますこの段階では a,b,c には値を代入しましたが x,y,z には値を代入していませんので全部ゼロです次にプログラムは Call proc55(a,b,c,x,y,z) の呼び出しにより制御が proc55 へ移ります上の 2

4 Proc54 を実行すると下の順にメッセージボックスが現れます上の 2 つは Call proc55(a,b,c,x,y,z) 実行前の変数の値を表示していますこの段階では a,b,c には値を代入しましたが x,y,z には値を代入していませんので全部ゼロです次にプログラムは Call proc55(a,b,c,x,y,z) の呼び出しにより制御が proc55 へ移ります上の 2 つのウィンドウは proc55 の最初の状態を表示しています proc54 で呼び出された前と同じ状態であり適切に引数の受け渡しが行われていることがわかります計算が行われた後のデータが上の 2 つのウィンドウです最初はゼロであった l,m,n に d,e,f の 3 倍の値が代入されていますこの後に制御は proc54 へ戻ります上の 2 つは proc54 へ戻った直後の状態です proc55 で設定された値が適切に引き渡されています引数を用いてデータのやり取りを行う場合は呼び出す側 (proc54) と呼び出される側 (proc55) で変数名が同じである必要はありません変数の型が同じであれば引き渡しができます proc54 と proc55 では (a,b,c,x,y,z) がそれぞれ (d,e,f,l,m,n) に対応していますこのように引数を用いることでデータの受け渡しができます

5 引数には配列を指定することもできますその例が proc56 です Sub proc56() Dim daisho(100) As Integer Dim i As Integer For i = 1 To 10 daisho(i) = Cells(i, 1) Next i Call proc57(daisho()) For i = 1 To 10 Cells(i, 2) = daisho(i) Next i Sub proc57(daisho() As Integer) Dim k As Integer Dim j As Integer Dim temp As Integer For k = 1 To 9 For j = k + 1 To 10 If (daisho(k) > daisho(j)) Then temp = daisho(k) daisho(k) = daisho(j) daisho(j) = temp End If Next j Next k このプログラムはエクセルのシート上の A1 から A10 へ代入されている整数値を小さい順に並べ B1 から B10 へ出力するプログラムですこのプログラムではデータの引き渡しに配列変数が使われています呼び出す側では Call proc57(daisho()) と記述されています Call 文やサブプロジージャ名を記述する方法は同じですが引数の部分が少し違っています変数であればそのまま書けばよかったのですが配列の場合には配列の () の部分に何も記載されていませんこれは配列全体を渡すことを意味しておりこの配列は最初にサイズを決めていますのでわざわざ指定する必要はありませんまた呼び出される側でも daisho() と記載されており配列の大きさは定義されていませんこれも呼び出し側で決めているのでここで記述する必要がないからです引数によるデータの受け渡しは実際のデータをやりとしているのではなく記憶されているメモリー上の位置を教え合っているだけですこれにより同じ位置でのデータを処理していますそのため配列でもメモリー上の位置がわかれば型が同じですので呼び出し側と同じように扱うことができます

6 これまでの sub XXX() end sub のような独立したプログラムと同じような機能を持つもので Function プロシージャというものがありますこれはまさに関数です例えば VBA の組み込み関数 ( 標準で準備されている関数 ) の cos( ) と書くと-1 が示されます Function プロシージャというのはまさに関数でユーザーが自由に作ることのできる関数です特徴としては値を返すことができるという点で呼び出し方は下記のようになります A=Function 名 ( 引数 ) 引数を渡してその結果が戻り値として A に代入されます proc58 を実行してみてください Sub proc58() Dim x As Single Dim a As Single Dim b As Single a = InputBox(" 数値を代入してください ") b = InputBox(" 数値を代入してください ") x = func59(a, b) MsgBox x Function func59(c As Single, d As Single) As Single func59 = c * d End Function このプログラムは 2 つの数値を入力してその積を計算します積の計算の部分だけ Function プロシージャとして独立したプログラムになっています呼び出し側はサブプロシージャとは異なり x=func59(a,b) と記述されておりまるで func59 が数値のように書き表されていますこれは先に示した cos() 関数のような使い方ですつまり引数 a,b を使って func59 で計算された結果が x に代入されるという意味ですつまり呼び出し方は関数名を直接指定してサブプロシージャと同様に引数を使ってデータを渡します Function 側を見てみると記述の方法がサブプロシージャとは異なりますまず最初の定義が Function になっていますそして引数の記述方法は同じですがそれに続いて As Single とまるで変数を定義するように記述されています確かに呼び出し側を見てみると変数のような使い方をされますので関数の戻り値の型を決める必要がありますそのためこのような定義になりますそしてもう一つ異なる点は func59=c*d の部分です変数として func59 はどこにも定義されていません Function プロシージャの場合プロシージャ名がそのまま変数になりますそして戻り値として返したい値をプロシージャ名と同じ変数へ代入することで自動的に値が返ります

7 別の変数に代入する形で呼び出しましたが変数または数値と同じように扱うことも可能です Sub proc60() Dim a As Single Dim b As Single a = InputBox(" 数値を代入してください ") b = InputBox(" 数値を代入してください ") MsgBox func59(a, b) proc60 では別の関数である MsgBox の引数として func59 を直接指定しています結果は先ほどと同じですこのように Function プロシージャは値を一つだけ返すことができ変数や数値そのものとして扱うことができるのでわざわざ別に変数を定義する必要がない点が特徴です複数返すことはできませんのでサブプロシージャを使ってくださいサブプロシージャや Function プロシージャの呼び出しは何回でも可能でこれらからさらに別のサブプロシージャや Function プロシージャを呼び出すことが可能ですただしループ化しないよう気を付けてくださいこれらを用いることにより複雑なプログラムの明確化ができ更にはプロジェクトとして分担して作成することができるようになります

Microsoft Word - VBA基礎(2).docx

Microsoft Word - VBA基礎(2).docx 変数 test1 を実行してみてください結果はメッセージボックスに 100 と表示されるはずです Sub test1() a = 10 このプルグラムでは a という文字がつかわれています MsgBox の機能はこの命令に続くものを画面に表示することで MsgBox a * a すつまり a*a を表示していますプログラムでは * は掛け算を意味しますので画面に 100 が表示されたということは