もくじ
taka
最新記事 by taka (全て見る)
- 【動画】2019年7月7日発売！新型のRyzenは何が変わった？ZEN２は買いなのか？ - 2019年6月23日
- 【動画】自作パソコン構成変更！ケースをNZXT H500に交換しました！ - 2019年6月5日
- VBA 『Array関数』指定した要素で配列を作成する - 2019年5月23日
- 「動画」初完全ワイヤレスイヤホン『Jabra Elite Active 65t』 - 2019年5月17日
- 『YouTube』AIは本当に雇用を奪うのか？ - 2019年5月16日
Functionプロシージャーについて1【Functionプロシージャーとは？】
おそらく我流でVBAを学んだ人はFunctionプロシージャーを知らない方も多いのではないでしょうか？
皆さんがマクロ/VBAを作成する場合多く目にするのは【Sub マクロ名()】から始まって【End Sub】で終わる【Subプロシージャー】を目にしていることかと思います。
そもそもFunctionとはどういう意味か？Function=関数という意味です。感覚として【自分の好きな関数を作成できる】というような考えでいいんじゃないかと考えています。
今日はFunctionの使い方を解説していきます。
Functionプロシージャーとは？
今回ご紹介するFunctionプロシージャーは【Function マクロ名()】から始まり【End Function】で終わります。
SubプロシージャーとFunctionプロシージャーの違いは【実行結果を呼び出し元に返す】と言われています。
ですが、今はそんなこと考える必要はありません。今回はどのように使うのかだけ考えましょう。
Functionの書式
Functionプロシージャーの書式はこのように書きます。
1 2 3 | Function プロシージャ名(引数 As データ型) As 戻り値のデータ型 プロシージャ名 = 戻り値 End Function |
これだけだとよくわからないですよね、実際にプログラムを組んでみましょう。
下記のような表の消費税計算をするプログラムを作成していきます。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | Sub Sample() Dim i As Long Dim row As Long row = Cells(Rows.Count, 1).End(xlUp).row For i = 2 To row Cells(i, 2).Value = 税計算(Cells(i, 1).Value) Next i End Sub ’-----------Function-------- Function 税計算(税抜き As Long) As Long 税計算 = 税抜き * 1.08 End Function |
このような形になります、解説は後にしてとりあえず実行結果を見ていきましょう。
実行結果
ちゃんと計算されましたね。では解説していきます。
Functionプロシージャーの解説
さてFunctionの使い方はこのようになりますが。上記のコードをもとに解説していきます。
まず初めにFunctionの書式から解説していきます。
1 | Function プロシージャ名(引数 As データ型) As 戻り値のデータ型 |
プロシージャー名はいわば関数名です。今回は消費税計算するのでサンプルコードでは【税計算】としました。
1 | Function <span style="color: #ff0000;">税計算</span>(引数 As データ型) As 戻り値のデータ型 |
引数は呼び出し元(今回はSubプロシージャ)の値を引数として受け取ります、今回受け取る引数は税抜き金額の数値ですので引数は【税抜き】、引数のデータの型は【Long】にします。
1 | Function <span style="color: #ff0000;">税計算</span>(<span style="color: #ff9900;">税抜き</span>As <span style="color: #ff9900;">Long</span>) As 戻り値のデータ型 |
そして戻り値のデータ型は、Subプロシージャーに返す値のデータの型です。
戻り値も税計算なので【Long】を宣言します。
※Longは四捨五入してくれる特性がありますが、もしこれをStringに変更すると結果が変わってきます。
このように小数点まで表示されました。
1 2 3 4 5 | Function 税計算(税抜き As Long) As Long 税計算 = 税抜き * 1.08 End Function |
では、計算方法を見ていきましょう。
1 | 税計算 = 税抜き * 1.08 |
この部分を日本語に直すと
Subプロシージャーに返す値(税計算)＝Subプロシージャーから受け取った値(税抜き)×1.08
となります。
Subプロシージャーで別のプロシージャーを呼び出す場合はプロシージャー名を書いてあげればOKです。
1 | Cells(i, 2).Value = 税計算(Cells(i, 1).Value) |
書式は【税計算(引き渡し値)】となっております。
まとめ
何となくFunctionの使い方はご理解していただけましたか？今回のように簡単なプログラムだとあまりFunctionのありがたみがわかりにくいかもしれません。
今回はそれとなく使い方を理解していただければOKです、今後もう少しFunctionの使い方を掘り下げて解説していきますのでご期待ください。
フォロー・チャンネル登録お願いします
■Twitterフォロー
Follow @taka_pc1027■YouTubeチャンネル登録
ファイルやコードの利用、WEBサイトの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Sponsored Link
WordPressでブログを始めるなら
WordPress簡単インストール＆安心の安定性
この記事が気に入ったら
いいねしよう！
最新記事をお届けします。
プロフィール
どうも本サイト【E-VBA】のtakaと申します！
ひょんなことからVBAを学ぶことになった非IT社員です。
趣味
アニメ・ゲーム、PCやスマートフォンについての情収集という典型的なオタク(^_-)-☆
苦手な分野
英語がどうしても覚えられません( ;∀;)
最近興味があるもの
最近はVBA・WEB関係の本が欲しいです(^^♪
当サイトの環境について
使用OS：
特別企画実施中
企業様との共同企画！
【IT企業てどんな感じ？ブラックが多いの？実際に社長に聞いてきた！」】
コメントを残す