[三流君] −−＞ [ＶＢＡで楽しく] −−＞ [バックナンバー一覧]
−−＞ No.022 関数って？Ｓｕｂプロシージャを呼ぶ

関数って？Ｓｕｂプロシージャを呼ぶ

メルマガ発行内容

＜関数って？Ｓｕｂプロシージャを呼ぶ＞

こんにちは、三流プログラマーＫｅｎ３です。

今回は、
Ｓｕｂ関数を呼んでみます。

いつものセリフで、そんなたいしたことじゃないので今回もご安心を。

/*
 * １. Sub プロシージャって？
*/

今まで、なんの説明も無く、
下記のように書いてテストしてもらってました。

Sub test()

    MsgBox "プログラムは、上から下に流れます"
    MsgBox "まんなか、、"
    MsgBox "今日も一日がんばりましょう"
    MsgBox "こんな感じです"

End Sub

Sub プロシージャ名
　・
　・
End Sub

など、名前を付けて、処理をある程度の単位で書いてました。

何言ってんだろうね？
意味わかんねぇ。

まぁ、名前を付けて、End Subまで、と軽めに頭に入れといて。

/*
 * ２．プロシージャを呼ぶ
*/

プログラムは上から下に流れるんだけど、
別のSubプロシージャを呼ぶことが出来ます。

Sub test_main() '関数をCallで呼ぶ

    Call msg01
    Call msg02

End Sub

Sub msg01()    'メッセージを出力する機能

    MsgBox "プログラムは、上から下に流れます"
    MsgBox "まんなか、、"

End Sub

Sub msg02()    'メッセージを出力する機能

    MsgBox "今日も一日がんばりましょう"
    MsgBox "こんな感じです"

End Sub

ポイントは、
Call msg01
で、
test_mainからmsg01へ飛び、
msg01の処理が終了すると（test_mainへ戻り）
次は、Call msg02を呼びます。

なんか変に分断されただけで意味無いよね。
そのまま書かれていたほうが、わかりやすかったよ。

う〜ん、サンプルが良くなかったか、
なれるまでは、ガマンで、
次行くと。

/*
 * ３．値をセットして、Ｓｕｂプロシージャを呼ぶ
*/
Call msg01
と、そのまま呼んでたけど、値を渡して呼ぶことが出来ます。

下記のような計算後、表示するプログラムがありました。
（実際はこんなのないけど）

Sub test022_1()  '計算する

    Dim a As Integer
    Dim b As Integer
    
    a = 10: b = 25      '値をセット
    
    MsgBox "a = " & a & ",b = " & b
    MsgBox "a + b = " & a + b
    MsgBox "a x b = " & a * b

    a = 6: b = 12       '値をセット
    
    MsgBox "a = " & a & ",b = " & b
    MsgBox "a + b = " & a + b
    MsgBox "a x b = " & a * b

End Sub

これを下記のように変更します。
Sub test022_1_main()
    
    Call test022_1_keisan(10, 25)
    Call test022_1_keisan(6, 12)

End Sub

Sub test022_1_keisan(a As Integer, b As Integer)

    MsgBox "a = " & a & ",b = " & b
    MsgBox "a + b = " & a + b
    MsgBox "a x b = " & a * b

End Sub

これも、たいしたことなくて、
Sub test022_1_keisan(a As Integer, b As Integer)
sub 名前 （引数１,引数２）
と宣言して、
呼ぶ側は、
Call test022_1_keisan(10, 25)
と呼びます。
１０と２５の引数が、受け取り側のａとｂに渡され、処理が実行されます。

う〜ん、なんかイマイチなんだよね。

/*
 * ４．長過ぎるプログラムを分割してみる
*/
Sub test6()

    '初期処理
    Dim strNO As String  '値を受け取るため文字型の変数を宣言
    Dim nCON  As Integer 'コンピュータの手１〜３の数値が入る
    Dim nPC   As Integer 'ユーザーさんの手
    Dim strTE(3) As String  '(*1)配列変数を宣言
    Dim strCHK(3, 3) As String '(*5)3*3の配列を宣言する
    
    strTE(1) = "グー"   '(*2)配列にメッセージを代入
    strTE(2) = "チョキ"
    strTE(3) = "パー"

    '(*6)勝負結果を代入
    strCHK(1, 1) = "引き分け": strCHK(1, 2) = "勝ち": strCHK(1, 3) = "負け"
    strCHK(2, 1) = "負け": strCHK(2, 2) = "引き分け": strCHK(2, 3) = "勝ち"
    strCHK(3, 1) = "勝ち": strCHK(3, 2) = "負け": strCHK(3, 3) = "引き分け"

    'ユーザーにグ・チ・パを入力させる
    'InputBoxで入力してもらう
    strNO = InputBox("１.グー ２.チョキ ３.パー", "アナタの手を入力で下さい")

    '入力値の判断、エラーならメッセージを表示させ抜ける
    'If文で1,2,3以外を判断する
    If strNO <> "1" And strNO <> "2" And strNO <> "3" Then
        MsgBox "[" & strNO & "]は不正な入力です"
        Exit Sub  '<--Exit Subを使用してここでプログラムを抜ける
    End If
    
    'コンピュータの手を決定
    Randomize   ' 乱数発生ルーチンを初期化します。
    nCON = Int((3 * Rnd) + 1)  '1 から 3 までの乱数を発生させます。

    '結果判断と表示
    'ユーザーの手を表示する
    nPC = Val(strNO) 'Val関数で数値型に変換する
    MsgBox "あなたの手は" & strTE(nPC) & "です" '(*3)ここでnPC番目を表示
    
    '(*4)同様にコンピュータの手を表示する
    MsgBox "コンピュータの手は" & strTE(nCON) & "です"
    
    '(*7)結果の表示
    MsgBox strCHK(nPC, nCON) & "です"
    
End Sub

のプログラムを入力部と結果表示に強引に分けてみます。

流れを軽く書くと

ユーザーの手を入力
　　↓
コンピュータの手を乱数で決める
　　↓
双方の入力を表示
　　↓
結果の判断と表示

Sub test22_main()

    '初期処理
    Dim strNO As String  '値を受け取るため文字型の変数を宣言
    Dim nCON  As Integer 'コンピュータの手１〜３の数値が入る
    Dim nPC   As Integer 'ユーザーさんの手

    'ユーザーにグ・チ・パを入力させる
    'InputBoxで入力してもらう
    strNO = InputBox("１.グー ２.チョキ ３.パー", "アナタの手を入力で下さい")

    '入力値の判断、エラーならメッセージを表示させ抜ける
    'If文で1,2,3以外を判断する
    If strNO <> "1" And strNO <> "2" And strNO <> "3" Then
        MsgBox "[" & strNO & "]は不正な入力です"
        Exit Sub  '<--Exit Subを使用してここでプログラムを抜ける
    End If
    nPC = Val(strNO) 'Val関数で数値型に変換する
    
    'コンピュータの手を決定
    Randomize   ' 乱数発生ルーチンを初期化します。
    nCON = Int((3 * Rnd) + 1)  '1 から 3 までの乱数を発生させます。
   
    '結果の判断と表示関数を呼ぶ
    Call test22_hantei(nPC, nCON)
   
End Sub

'結果判断と表示
Sub test22_hantei(nPC As Integer, nCON As Integer)

    Dim strTE(3) As String  '(*1)配列変数を宣言
    Dim strCHK(3, 3) As String '(*5)3*3の配列を宣言する
    
    strTE(1) = "グー"   '(*2)配列にメッセージを代入
    strTE(2) = "チョキ"
    strTE(3) = "パー"

    '(*6)勝負結果を代入
    strCHK(1, 1) = "引き分け": strCHK(1, 2) = "勝ち": strCHK(1, 3) = "負け"
    strCHK(2, 1) = "負け": strCHK(2, 2) = "引き分け": strCHK(2, 3) = "勝ち"
    strCHK(3, 1) = "勝ち": strCHK(3, 2) = "負け": strCHK(3, 3) = "引き分け"

    'ユーザーの手を表示する
    MsgBox "あなたの手は" & strTE(nPC) & "です" '(*3)ここでnPC番目を表示
    
    '(*4)同様にコンピュータの手を表示する
    MsgBox "コンピュータの手は" & strTE(nCON) & "です"
    
    '(*7)結果の表示
    MsgBox strCHK(nPC, nCON) & "です"

End Sub

少しは、スッキリしたのかなぁ。
あまり変わってないよね（笑）

関数の分割もセンスだからなぁ。。。。

/*
 * ５．終わりの挨拶
*/

今回は、
・Subプロシージャの書き方
でした。

今回のテストサンプルを
http://www.ken3.org/vba/lzh/vba022.lzh
に保存しました。
解凍してTest022-Book.xlsを開くと、
Alt+F11でＶＢＡのプログラム編集画面に切り替わるので、
メッセージを修正したり、遊んでください。

次回は値を返すFunctionプロシージャの予定だけど、
サンプルのキレが無くなってるのが気になるなぁ（オイオイ）

拾い読みして、
１つでも何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

フィードバック

VBA系の→[掲示板]←を覗く、質問を書き込む

評価・感想

No.022を読んだ満足度(評価)は？
5満足（参考になった）
4まぁまぁ（一部参考になった）
3普通（どちらとも言えない）
2なんかなぁ（期待と違った）
1不満（読んで損した気分）
 作者に感想・質問を送る場合は下記に気軽に書いてください
あなたのお名前（ニックネーム） さん

作者からの返信は、 不用 E-mail で受信したい
＊質問・感想はメルマガで紹介する場合があります

ページフッター(リンクや広告など)

[三流君(TOP ken3.org へ戻る)]
-- [VBA系TOPへ]
---- [VBA系バックナンバー目次へ移動]
------ [VBAでIEを操作 CreateObject("InternetExplorer.application")]・・・実は当店一番人気、VBAでIEを操作するサンプルです
------ [VBAでOutlookの操作 CreateObject("Outlook.Application")]・・・Outlookを使い、メール関係の処理です
------ [Access から Excel 連携 CreateObject("Excel.Application")]・・・人気のAccessからExcelへデータ書き出しなどです
------ [AccessのUserForm/サブフォームを操作]・・・アクセスでフォームを使ったサンプルです
------ [Accessのレポートを操作]・・・レポートを操作してみました
------ [Access クエリー関係やその他関数]・・・あまりまとまってませんが、スポット的な単体関数の解説です
------ [Excel UserForm(ユーザーフォーム)を操作する]・・・エクセルでユーザーフォームを作成して入力などを行ってます
------ [ExcelからAccessを操作する]・・・ExcelからAccessのマクロを起動してみました、
------ [Excel関係 関数、その他]・・・その他Excel関係です
------ [VBAでテキストファイル(*.txt,*.html,*.csv)の操作]・・・テキストファイルを使ったサンプルです
------ [VBA 標準関数関係とその他解説]・・・その他、グダグタ解説してます
広告
-- [通販系の売れ筋広告へ] ←主に楽天やAmazonのランキングです
blog
-- [三流君の作業日記] ← 日々の作業を少々
-- [通販あしあと] ← 通販ページの足跡を一覧で羅列

情報を探す

情報を探すならGoogleかな？

↓Web全体、サポート情報(support.microsoft.com)や三流君VBA(ken3.org)から検索する
Google
Web www.ken3.org
www.microsoft.com support.microsoft.com
あとは、項目別にMSでお勉強かな？
◆ マイクロソフト サイトの歩き方
◇ How-To インデックス
◇ FAQ インデックス
◇ スキルレベル別おすすめコンテンツ
◇ テクノロジ マップ
◇ テーマ別技術資料一覧

書籍の購入

Webだけじゃさすがに勉強しきれないので、プログラミング関係の書籍も読んでみては？？

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店
 ※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。
お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック

下記、私が設定したキーワードですが、こんな感じで資料や書籍を探ってみては？
[VBA全体を把握する] -- やはり全体をさらっと見たいですよね。
[SQL関連でＤＢ力UP] -- システムはデータベース設計が重要
[ADO接続を探る] -- VBAなのでADO接続を押さえておく
[Windows APIを探る] -- さらにAPIになて知ってれば強力だ！
[.NETを探る] -- と言っても時代は.NETに流れてるし
プログラミング以外でも知りたいことは多くって、
[人間関係] -- で、客先・上司、まわりに気を使い。
[プログラマーの自己啓発] -- プログラムだけじゃなくいろいろと向上したいよ
[コーチング・育成] -- 先輩になったら後輩(部下)の面倒をみてね。
そんなこんなでプログラマーっていろいろと大変なんだってば・・・