■ VBAについて（４回目）
今回は、代表的なステートメントを説明します。
１．Ifステートメント
ある条件を調べてその結果によって処理を切り替える
「もし何々なら何々する」とういことです。
If 条件 Then
処理１
Else
処理２
End If
条件がTrue（真）の時、処理１を行います。
条件がFalse（偽）の時、処理２を行います。
（例）
何月(tuki)の時に日付(hi)を入れる処理です。
If tuki = 2 Then
hi = 28
Else If tuki = 1 or 3 or 5 or 7 or 8 or 10 or 12
Then
hi = 31
Else
hi = 30
End If
End If
２．for nextステートメント
変数に設定した回数のみ同一処理を繰り返します。
for 変数 to 終了値 step 増加値
処理
nest 変数
２−１．動作
１．「変数」に「初期値」を代入します。
２．「変数」が「終了値」を越えていなければ「処理」を
１回実行します。
「変数」が「終了値」を越えていれば処理を終了します。
３．「処理」を実行した後に「増加値」を「変数」に加算する。
４．２．に戻る。
２−２．step 増加値を省略すると変数には１が加算されます。
（例）
何月(i)の時に日付(hi)を入れる処理をfor nextでする
処理です。
for i = 1 to 12 step 1
If i = 2 Then
hi = 28
Else If i = 1 or 3 or 5 or 7 or 8 or 10 or 12
Then
hi = 31
Else
hi = 30
End If
End If
next
３．do loopステートメント
for nextステートメントはカウンタ変数の値をもとに繰り返し回数をきめました
しかし、do loopステートメントは、ある条件が成立するまで処理を
繰り返します。
３−１．２通りの方法があります。
１．前判断処理
do while 条件
処理
loop
do until 条件
処理
loop
２．後判断処理
この処理は「条件」が「処理」の後にあるので１回は「処理」を
行います。
do
処理
loop while 条件
do
処理
loop until 条件
（例）
何月(i)の時に日付(hi)を入れる処理をdo loopでする
処理です。
１．前判断処理
i = 1
do until i = 13
If i = 2 Then
hi = 28
Else If i = 1 or 3 or 5 or 7 or 8 or 10 or
12 Then
hi = 31
Else
hi = 30
End If
End If
i = i + 1
loop
２．後判断処理
i = 1
do
If i = 2 Then
hi = 28
Else If i = 1 or 3 or 5 or 7 or 8 or 10 or
12 Then
hi = 31
Else
hi = 30
End If
End If
i = i + 1
loop until i = 13
===================================================================
◆
実践テクニック、Accessで作るクラサバシステム ◆
再挑戦するも挫折する方が多いのですが、このメルマガでもう一度挑戦しています
編集・構成：高橋浩
提供・発行：ティウェア
http://www.1tware.com/index.html
Access2000+MSDE2000、Access2002+MSDE2000、Access2003+MSDE2000で
作る販売管理ソフト、クライアントサーバーシステムを構築
※当メールマガジンに掲載された記事を許可なく転載することを禁じます。
===================================================================
実践テクニック、Accessで作るクラサバシステム（隔週 火曜日発行中）
ＳＥが１０年以上の開発ノウハウを惜しみなく完全公開！
|