レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

エクセルマクロ・VBA発展編１

くうちゃんさんの投稿

(投稿ID: 5198)

こんにちは。質問です。
複数のプロシージャ間で変数を利用するものとして、
メインのSubプロシージャで変数の宣言をして、参照先のSubプロシージャの（）内でも変数を宣言するものがあるかと思いますが、
こちらは今回のモジュールレベル変数（＝グローバル変数？）と同じようなものだが、
ByValで値を渡したり、ByRefで変数そのものを渡したりと、細かく設定することができる点が違う、という理解であっていますでしょうか。

複数のプロシージャ間での変数は、なかなか理解ができずにいました。
しかし、この動画の説明で、複数のSubプロシージャで共通の変数を使うことのメリットがよくわかりました。
（が、まだ自分で使いこなせる気はしません……）

2021/10/25 20:13

小川慶一さんのコメント

(コメントID: 7359)

ByRef, ByVal は重要ではなく、それ以前の、引数をサブプロシージャに渡せるということが重要です。

これにより、モジュールレベル変数が不要になります。
モジュールレベル変数が不要ということは、結合度が低くなるということです。
（結合度が低いというのは、個々の部品を取り扱ううえでの制約が減るということです）

例えば、呼び出し先のプロシージャにモジュールレベル変数を通じて値を渡そうとすると、以下を揃えなくてはならなくなります。
・モジュールレベル変数
・呼び出し元で利用する変数の変数名
・呼び出し先で利用する変数の変数名

これが引数として渡すのであれば、以下のようになります。
・モジュールレベル変数は不要
・呼び出し元で利用する変数の変数名は好きに決めてよい
・呼び出し先で利用する変数の変数名は好きに決めてよい

好きに決めてよいというのはどういうことかというと、例えば、以下のように書いてももちろん問題ないということです。

Sub parent_procedure()
    Dim name As String '果物の名前
    Dim max_price As Long '一番高く売れたときの価格
    
    name = "りんご"
    max_price = 300
    child_procedure name, max_price
End Sub
Sub child_procedure(fruit_name As String, fruit_price As Long)
    Range("A1").Value = fruit_name
    Range("B1").Value = fruit_price
End Sub

Sub parent_procedure()
    Dim name As String '果物の名前
    Dim max_price As Long '一番高く売れたときの価格
    
    name = "りんご"
    max_price = 300
    child_procedure name, max_price
End Sub
Sub child_procedure(title As String, price As Long)
    Range("A1").Value = title
    Range("B1").Value = price
End Sub

以下のように書いてももちろんOKです。
child_procedureが内部で利用する引数の名称を変更しました

モジュールレベル変数を使った場合は、こうはいきませんね。
「みんなで同じ変数名で行く」としないと動作しません。

結合度が低いと、再利用も用意になります。
以下では、kuruma_infoは、child_procedureを使いまわしています。child_procedure内でどんな変数名だろうと気にせず、kuruma_info内で生成した値を渡しています。

Sub child_procedure(title As String, price As Long)
    Range("A1").Value = title
    Range("B1").Value = price
End Sub

Sub kuruma_info()
    Dim car_name As String
    Dim car_price As Long
    car_name = "フェラーリテストロッサ"
    car_price = "30000000"
    child_procedure car_name, car_price
End Sub

なんとなく、雰囲気つかめたでしょうか。

あとは、書いているうちに「ああ、そういうことか。『モジュールレベル変数より結合度が低い』とは、こういうことか」と腑に落ちるタイミングがあるかと思います。

2021/10/26 14:00

小川慶一さんのコメント

(コメントID: 7360)

> この動画の説明で、複数のSubプロシージャで共通の変数を使うことのメリットがよくわかりました。

以下の講座での、「Functionプロシージャを使ったブラッシュアップ」のあたりは参考になるかと思います。

実践添削事例-パソコンスクールのシフト表・予約フォーム生成マクロ
https://forum.pc5bai.com/lesson/course/84/

2021/10/26 14:02

くうちゃんさんのコメント

(コメントID: 7362)

すみませんでした、、、解説をどうもありがとうございました。
引数を渡している、というご説明で、モジュールレベル変数とは別のものだということがわかりました。参照渡し、という言葉に引きずられていました。
いただいたマクロを動かして、処理の流れを追ってみます。
Functionプロシージャの動画も、頑張って見てみます。
このsubの()内の変数、使えなくてもいいのですが、よく目にするので読み解けるようになりたいです。

2021/10/26 22:53

くうちゃんさんのコメント

(コメントID: 7363)

何度も失礼します。
リンクいただいたパソコンスクールのシフト表　Functionプロシージャをざっくり見てみました。
全くついていけませんでしたが、モジュールレベル変数との違いについては雰囲気がつかめました。
また、「自分で関数なんて作らないから不要」と思っていたFunctionプロシージャですが、このように同じようなプロシージャをまとめて書くときにも使えることを知りました。
やはり、「発展編2」の知識までは持っておくべきですね。頑張ろう！
感想まででした。

2021/10/26 23:56

小川慶一さんのコメント

(コメントID: 7364)

Functionプロシージャ、Subプロシージャとも、引数を受け取ることができます。
Functionプロシージャは戻り値を返すことができます。

これらなしで複雑な機能を実現しようとすると、モジュールレベル変数がぐちゃぐちゃと増えすぎてメンテナンスが相当大変になってしまいます。

引数を渡せるようになると、そういう問題が激減します。
ですので、やはり、使いこなせるとぜんぜん違います。

2021/10/27 20:07

くうちゃんさんのコメント

(コメントID: 7365)

なるほど！Functionプロシージャは関数を設定するものと考えるのではなく、戻り値を返せると考えた方が使い道が広がります。
私のレベルでは、変数名がかわってもちゃんと前のプロシージャから複数の引数をもらえるのか不思議でたまりません(笑)
勉強します！どうもありがとうございました。

2021/10/27 22:23

小川慶一さんのコメント

(コメントID: 7366)

いちばん良いのは、発展編講座第1章を含めて、関連の動画やサンプルコード等で復習することです。
そのうえで、前述の講座など、実践例をまずは真似てみることかと。

ひきつづき、よい学びを☆

2021/10/28 11:07

５倍速！メールマガジン

このメールマガジンの詳細はこちら

受講生の声

たった1ヶ月で人生が劇的に変わりました

佐藤信さん

役員クラスの方から高い評価を受けるようになりました。

佐賀県 - 岩本徹さん

今までまったく知らなかったショートカットキーを使いまくっています。

東京都 - 鷹觜慶さん

年齢60才間近、営業で外回りの時間が多い私でも退社時間が1-2時間程度早くなりました。

東京都 - 宗内隆明さん

受講前もすでにパソコン得意でしたが、そんな私でも受講して本当に良かったと思えた講座です。

東京都 - 佐伯とも子さん

ここまで包括的に仕事に役立つ深い学びを受けれた講座は初めてでした

東京都 - 飯田倫子さん

受講生の声一覧へ

サイト運営者紹介

小川慶一講師/教材/システム開発者紹介

この学習サイトの教材制作、サポート、システム開発をすべてやっています。

より詳しい紹介はこちら

ショートカットワーク報告

2025年03月26日 22:33

CommaToXls-excel
初回でゴールド賞をとれた！

cat22さん

2025年03月26日 22:12

QuoteToXls-excel
ゴールド賞を達成したこと

cat22さん

2025年03月24日 22:28

QuoteToXls-excel
マイペースでも続いていること

cat22さん

2025年03月19日 20:10

TxtToXls-excel
初回でゴールド賞をとれた！

cat22さん

2025年03月18日 20:52

CommaSpaceToXls
プラチナ賞をとれたこと！

cat22さん

ショートカットワーク報告へ

ショートカットワークコメント

2025年04月16日 08:30

CommaToXls-excel
だいぶ間が空いてしまいました。すみません。実務での活用状況についても報告に含めていただければと …

小川慶一さん

2025年03月18日 09:07

CommaToXls
> エスケープ文字をつけ忘れてうまくいかなくてもあきらめなかったところ「自分ならできる」という…

小川慶一さん

2025年03月18日 09:06

QuoteToXls
> FnとWinキーを押し間違えてウィンドウ表示が変ってしまうところそのこと自体は問題ありませ…

小川慶一さん

2025年03月15日 13:23

TxtToXls
着実に上達されていると感じます (^^

小川慶一さん

2025年02月26日 16:37

TabTo-excel
> Ctrl＋Fn+Shift+End これは大変ですよ。僕も、4キー同時打鍵はしたくありませ…

小川慶一さん

ショートカットワーク一覧へ

コーディングワーク報告

2025年04月02日 21:01

複数の表の間でのマッチング
何も見なくてもスラスラ解けた

cat22さん

2025年04月02日 20:47

複数列の中から、最大値の格納されたセルの情報を出力する
昨日より早くかけたこと

cat22さん

2025年04月02日 20:37

最大値の格納されたセルの情報を出力する
昨日よりスピードがあがった

cat22さん

2025年04月01日 22:03

複数列の中から、最大値の格納されたセルの情報を出力する
動画の真似をしてかけたこと

cat22さん

2025年04月01日 21:27

最大値の格納されたセルの情報を出力する
（１）で類似問題を実施しているので、思ったより早く解けた

cat22さん

コーディングワーク報告へ

コーディングワークコメント

2025年04月16日 08:32

複数の表の間でのマッチング
実務での活用状況どうでしょうか。細かい操作ミスについては気にしないでください。速やかに無意識に修…

小川慶一さん

2025年03月18日 09:10

文字列を加工してデータ転記する(その4)
別のところでも書きましたが、イメージトレーニング大切です。次に出てきたときには瞬時に対応するぞ！…

小川慶一さん

2025年03月18日 09:10

文字列を加工してデータ転記する(その4)
こういうのは慣れです (^^

小川慶一さん

2025年03月18日 09:09

文字列を加工してデータ転記する(その4)
別海も悪いはないです。両方のパターンを自在に使い分けられるようになるとさらによいですね！

小川慶一さん

2025年03月18日 09:06

文字列を加工してデータ転記する(その5)
イメージトレーニングしましょう！

小川慶一さん

コーディングワークへ