１１．サンプルプログラムの内容
処理フロー図
前章までに作成したステップ１から３までのプロージャを一連の処理としてまとめれば、「株価チャート作成プログラム」が完成しますが、各ステップ内ではエラーチェックをしていますので、エラーがない場合のみ、次のステップに進む処理フロー図にします。
[標準モジュール]・[Module4]の表示
プロシージャ[標準モジュール]・[Module4]のプロシージャを表示させましょう。
上記フロー図でのVBAの他に、次の通り[２行目]、[１１～14行目]に処理を追加しています。
- Sub サンプル_株価チャート作成()
- ' Application.ScreenUpdating = False
- サンプル_ステップ1
- If pbError = 0 Then
- サンプル_ステップ2
- End If
- If pbError = 0 Then
- サンプル_ステップ3
- End If
- ' Application.ScreenUpdating = True
- Sheets("メニュー").Select
- If pbError = 0 Then
- MsgBox "正常に株価チャートを作成しました"
- End If
- End Sub
- １行目：「Subプロシージャ」の開始
- ２行目：Application.ScreenUpdating = False (コメント行)
- ３行目：サブルーチン[サンプル_ステップ1]の処理
- ４～６行目：エラーがない場合は、サブルーチン[サンプル_ステップ2]の処理
- ７～９行目：エラーがない場合は、サブルーチン[サンプル_ステップ3]の処理
- １０行目：Application.ScreenUpdating = True (コメント行)
- １１行目：シート[メニュー]の選択
- １２～１４行目：エラーがない場合は、「正常終了」のメッセージ表示
- １５行目：「Subプロシージャ」の終了
【Application.ScreenUpdating】
「Application」とはExcel、「ScreenUpdating」とは画面の描画・更新のことです。
上記のままではコメント行のため動作しませんが、['](シングルコーテーション)をはずすと、False(画面更新しない)、True(画面更新する)が有効になります。
最初に「画面が少しちらつくような状態が続いた後に、・・・」と説明しましたが、２・１０行目の[']を外せば、1).ちらつく状態がなくなり、2).処理速度も向上します。
【サブルーチン】
プロシージャは単体で実行するだけでなく、他のプロシージャからも呼び出して実行することができ次のメリットがあります。
- プロシージャを呼び出す側（メインルーチンという）と呼ばれる側(サブルーチンという)に分けることにより、プログラム全体が分かりやすくなる。
- 同じ処理を複数回行う場合、一つのサブルーチン(プロシージャ)にしておけば、同じ処理を複数回書く必要もなく、修正も容易になる。
ここでは、メインルーチン：[サンプル_株価チャート作成]、サブルーチン：[サンプル_ステップ1・2・3]に分けています。
メインルーチンから引数(ひきすう)として値をサブルーチンに渡すこともできますが、この株価チャート作成プログラムでは引数は使用せず、パブリック変数を使っています。
それでは、[標準モジュール]・[実習用_株価チャート作成]を使い実習を行いましょう。
以上で、株価チャート作成プログラムが完成しました。
