ユーザー定義関数で税抜き価格

マクロ講座42回　

税抜き価格を求めるユーザー定義関数 Excel2013 マクロ講座

ユーザー定義関数を利用する～Function プロシージャ

Function プロシージャは、VBAでユーザが定義する関数です。
単独で実行するよりも、Subプロシージャなどから呼び出して、一定の処理を実行し、結果として値を返すというのが、一般的です。
また、ユーザー定義関数は、Excelのワークシート上でユーザー定義関数として利用することもできます。
今回のサンプルは、税抜き価格を求めるユーザー定義関数と、三角形の面積を求めるユーザー定義関数の２つを作成します。
（サンプルファイルは、こちらから 2013マクロ講座42回サンプルデータ）

ユーザー定義関数を利用する

Functionプロシージャの構文

プロシージャ名は任意ですが、ここではOfftaxにして、引数PはIntegerとします。
使用する金額が大きい時は、Doubleを使ってください。

Function Offtax(P As Integer) As Integer
    Offtax = P / 1.08
End Function

Sub 本体価格()
    Dim Price As Integer
    Price = Offtax(Range("B2").Value)
    MsgBox "税抜きの本体価格は" & Price & "円です"
End Sub
    

本体価格マクロを実行すると、

結果として税抜き価格がメッセージボックスで表示されます。

ユーザー定義関数は、ワークシート上で使うこともできます。

三角形の面積を求めるユーザー関数

プロシージャ名は任意ですが、ここではareaoftriangleにして、引数の型は、Doubleに

コードは、とても簡単です。

Function areaoftriangle(底辺 As Double, 高さ As Double) As Double
    areaoftriangle = 底辺 * 高さ / 2
End Function
    

普通の関数と同様にワークシート上で使えます。