覚える言語はたったの５つ（制御編）

覚える言語はたったの５つ

プログラムを組んでなにかしかの自動実行を行う場合その動作を記述してやる必要があります。このプログラム構造は実はそんなに複雑ではありません。

プログラム言語には大別すると２種類の言語体系が存在します。

ひとつは命令語系です。

これは実際に動作を直接的に指示するもので、いわゆるコマンドたちのことです。

セルに数字を入れたり、コピーペーストしたりがこれらに当てはまります。

ExcelVBAには大量のコマンドがあり、これらをすべて覚えるのはおそらく不可能です。

しかしエクセルにはこれらを自動的に記述、記録してくれるマクロレコーダーがありますので、とりあえず忘れてしまってまったく問題ありません。

さて、本題のもうひとつ制御系です。

制御系の命令は判断、分岐、繰り返し等なので覚えておくのは５つです。

具体的には以下のIF文、FOR NEXT文、DO LOOP文（WHILE,UNTIL）、CALL文ということになります。

分岐　IF文

条件判断で別の作業を分岐させることができます。

文法1）
IF (条件式） THEN
（実行式1）
ELSE
（実行式2）
END IF

文法１は”もし(条件式）が正だったら（実行式１）を実行
違ったら（実行式２）を実行”ということになります。

例）
IF x>=10 THEN
y=1
ELSE
y=2
END IF

例では”もしｘが１０以上だったらｙは１、じゃなかったらｙは２”となります。

文法2）
IF (条件式1） THEN
（実行式1）
ELSE IF (条件式2） THEN
（実行式2）
END IF

文法２は”もし(条件式１）が正だったら（実行式１）を実行
違ったばあいにもし(条件式２）が正だったら（実行式２）を実行”ということになります。
この場合(条件式１）にも(条件式２）にも当てはまらない場合にはどちらも実行しないということができます。

例）
IF x>=10 THEN
y=1
ELSE IF x<=8 THEN
y=2
ELSE
y=3
END IF

例では”もしｘが１０以上だったらｙは１、じゃなくて８以下だったらｙは２、
それでもなったら(x=9)、ｙは３”となります。

ページトップへ

繰り返しその１　FOR文

命令を望んだ回数繰り返し実行します。

文法）
FOR (初期値） TO （最終値）
（実行式）
NEXT

まず(初期値）から１ずつ足していき（最終値）までの回数を"NEXT"までの実行式）を繰り返し行うというものです。

例）
FOR i=1 TO 10
x=5*i
NEXT

例では初期値が１で１０まで繰り返すということになります。
したがってｘの計算結果は順に5,10,15,20・・・・・45,50となります。

ページトップへ

繰り返しその２　DO・・・LOOP /WHILE文

命令を条件が合わなくなるまで繰り返します。間違うまで繰り返しです。

文法１）
DO
（実行式）
LOOP WHILE （評価式）

最低１回はループ内の（実行式）を実行します。

例）
x=2
DO
x=x*x
LOOP WHILE x<40

例の（実行式）では変数ｘに２を代入しそれを二乗した値を改めてｘに代入しています。
（評価式）では４０未満であれば正となります。
したがって結果としては4,8,16,32,64まで繰り返し計算を行い、64が評価されて誤となりますので繰り返しを終了します。

文法2）
DOWHILE （評価式）
（実行式）
LOOP

先ほどとは違い先に評価を行いますのでループ内の（実行式）を実行しないこともありえます。

例）
x=2
DOWHILE x<40
x=x*x
LOOP

ページトップへ

繰り返しその３　DO・・・LOOP /UNTIL文

命令を条件が合うまで繰り返します。正しくなるまで繰り返しです。

文法１）
DO
（実行式）
LOOP UNTIL （評価式）

最低１回はループ内の（実行式）を実行します。

例）
x=2
DO
x=x*x
LOOP UNTIL x>40

例の（実行式）では変数ｘに２を代入しそれを二乗した値を改めてｘに代入しています。
（評価式）では４０以上であれば正となります。
したがって結果としては4,8,16,32,64まで繰り返し計算を行い、64が評価されて正となりますので繰り返しを終了します。

文法2）
DOUNTIL （評価式）
（実行式）
LOOP

先ほどとは違い先に評価を行いますのでループ内の（実行式）を実行しないこともありえます。

例）
x=2
DOUNTIL x>40
x=x*x
LOOP

ページトップへ

別プログラム呼び出し　CALL文　（コール、サブルーチン）

会社の中、家庭の中で作業の分担がそれぞれ分かれているようにプログラムの中でも、あるプログラムから別のプログラムを呼び出し作業をさせてその結果だけを受け取ることができます。この機能は巷に出ているマニュアル本達では結構上級向けとして、説明があったり、なかったりしますが理屈さえわかってしまえば簡単ですし小さなプログラムを【部品】のごとく作って集めて大きなプログラム構成にする方法はおすすめできると思います。

文法）
CALL (サブルーチン名） (引数）

エクセルVBAはすべての１個のプログラムがサブルーチンという単位でまとまっておりすべてに名前を付けるのが規則なっています。それをCALL文とともに指示することで別のプログラムを、自プログラムとして動作させることができます。

(引数）は省略可能です。また複数ある場合は","（カンマ）で区切って並べます。

注意点は引き渡される値の並び順と並んでいる数を間違えてはいけないという点です。

計算結果がとんでもないことになるばかりでなくほとんどの場合エラーが出てプログラム自体が動きません。

例1）
SUB main_program()
r=5
h=10
CALL juryo r,h,w
END SUB

SUB juryo(x,h,w)
area=r*r*3.14
mass=area*h
w=mass*0.00789
END SUB

例１ではメインとなるプログラムで半径と高さを与えて副プログラムをコールすると副プログラムでは重量を計算しメインプログラムに戻ります。

CALL文で橋渡しされた引数の値をメインと副プログラムが共有しますので、メインのwには結果として6.19365を得ることになります。

また、(引数）の名前は順番さえ守れば同じものでなくてもかまいません。値を直接並べることも可能です。次の例をご覧ください。

例2）
SUB main_program()
CALL juryo 5,10,w
END SUB

SUB juryo(x,h,weight)
area=r*r*3.14
mass=area*h
weight=mass*0.00789
END SUB

例2の結果は例１と同じことになります。

いかがでしたか？”文法”なので面倒な部分が往々にしてありますが最低限これがわかればというもののをえりすぐってみました。

ページトップへ

覚える言語はたったの５つ（制御編）