Ｅｘｃｅｌ２０１０、ユーザー定義関数の作成方法

Ｅｘｃｅｌ２０１０は、手頃な価格で高機能な表計算ソフトです。
多くの関数が標準装備され、色々な計算に使用する事が可能です。

しかし、標準の関数だけでは十分でない場合が有ります。
幸いにもユーザー定義関数を作成する事が可能で、自分で関数を幾つでも作れます。
使用したパソコンは、下記のソフトを使用していました。

ＯＳ　　　　　　　：　Ｗｉｎｄｏｗｓ７（６４ｂｉｔ）
表計算ソフト　　　：　Ｅｘｃｅｌ２０１０（３２ｂｉｔ）

以下、Ｅｘｃｅｌ２０１０、ユーザー定義関数の作成方法を記載して行きます。

（項目１）
　・ユーザー定義関数の作成方法は、下記の手順で行います。
　　ユーザー定義関数　　　　　　（Ｆｕｎｃｔｉｏｎプロシージャー）
　　ユーザー定義関数の説明を登録（Ａｐｐｌｉｃａｔｉｏｎ．ＭａｃｒｏＯｐｔｉｏｎｓ）
　・Spreadsheet Page Excel Tips: User-Defined Function Argument Descriptions In Excel 2010を参考に、
　　本ページを作成しております。

（項目２）
　・ユーザー定義関数は、Ｆｕｎｃｔｉｏｎプロシージャーで作成します。
　・本事例では、工程能力指数Ｃｐの関数で説明します。
　・Ｆｕｎｃｔｉｏｎプロシージャーでは、引数を渡し、戻り値を受け取ります。
　　引数　：　LSL, USL, sigma
　　戻り値：　Cp　これは、(USL - LSL) / (6 * sigma)の計算結果です。
　・ソースコードは、以下の通りです。
　　'ユーザー定義関数
　　Function Cp(LSL, USL, sigma) As Double
　　　　Cp = (USL - LSL) / (6 * sigma)
　　End Function

（項目３）
　・複数の関数を作成すると、その内容が分からなくなる場合が有ります。この様な場合は、関数の説明を登録
　　すると良いでしょう。
　・ユーザー定義関数の説明を登録は、Ａｐｐｌｉｃａｔｉｏｎ．ＭａｃｒｏＯｐｔｉｏｎｓで行います。
　・説明には、以下を記載できます。
　　関数の概要　：　Ｄｅｓｃｒｉｐｔｉｏｎ
　　関数の分類　：　Ｃａｔｅｇｏｒｙ
　　各パラメータ：　ＡｒｇｕｍｅｎｔＤｅｓｃｒｉｐｔｉｏｎｓ
　・ＡｒｇｕｍｅｎｔＤｅｓｃｒｉｐｔｉｏｎｓは、Ｅｘｃｅｌ２０１０で追加された新機能です。
　・残念ながら、入力時に出るポップアップの機能は無い様です。
　・下記のマクロは、何処かで実行する必要が有ります。ファイルを開いた時に自動実行する様にすると良いと
　　思われます。
　・マクロ実行前
　　

　・マクロ実行後
　　

　・ソースコードは、以下の通りです。
　　'ユーザー定義関数の説明を登録
　　Sub Cp_touroku()

　　Dim FuncName As String
　　Dim FuncDesc As String
　　Dim Category As String
　　Dim ArgDesc(1 To 3) As String

　　FuncName = "Cp"
　　FuncDesc = "Ｃｐは工程能力指数です。"
　　Category = 4 '統計
　　ArgDesc(1) = "下限規格値です。"
　　ArgDesc(2) = "上限規格値です。"
　　ArgDesc(3) = "標準偏差です。"

　　Application.MacroOptions _
　　　　Macro:=FuncName, _
　　　　Description:=FuncDesc, _
　　　　Category:=Category, _
　　　　ArgumentDescriptions:=ArgDesc

　　End Sub

（項目４）
　・上記のマクロを実行すると、ファイルに情報が残ってしまいます。
　・ユーザー定義関数の説明を解除は、Ａｐｐｌｉｃａｔｉｏｎ．ＭａｃｒｏＯｐｔｉｏｎｓで行います。
　・ソースコードは、以下の通りです。
　　'ユーザー定義関数の説明を解除
　　Sub Cp_kaijo()

　　Dim FuncName As String
　　Dim FuncDesc As String
　　Dim Category As String
　　Dim ArgDesc(1 To 3) As String

　　FuncName = "Cp"
　　FuncDesc = ""
　　Category = ""
　　ArgDesc(1) = ""
　　ArgDesc(2) = ""
　　ArgDesc(3) = ""

　　Application.MacroOptions _
　　　　Macro:=FuncName, _
　　　　Description:=FuncDesc, _
　　　　Category:=Category, _
　　　　ArgumentDescriptions:=ArgDesc

　　End Sub

（項目５）
　・全部のソースコードは、下記の通りです。
　　Option Explicit

　　'ユーザー定義関数
　　Function Cp(LSL, USL, sigma) As Double
　　　　Cp = (USL - LSL) / (6 * sigma)
　　End Function

　　'ユーザー定義関数の説明を登録
　　Sub Cp_touroku()

　　Dim FuncName As String
　　Dim FuncDesc As String
　　Dim Category As String
　　Dim ArgDesc(1 To 3) As String

　　FuncName = "Cp"
　　FuncDesc = "Ｃｐは工程能力指数です。"
　　Category = 4 '統計
　　ArgDesc(1) = "下限規格値です。"
　　ArgDesc(2) = "上限規格値です。"
　　ArgDesc(3) = "標準偏差です。"

　　Application.MacroOptions _
　　　　Macro:=FuncName, _
　　　　Description:=FuncDesc, _
　　　　Category:=Category, _
　　　　ArgumentDescriptions:=ArgDesc

　　End Sub

　　'ユーザー定義関数の説明を解除
　　Sub Cp_kaijo()

　　Dim FuncName As String
　　Dim FuncDesc As String
　　Dim Category As String
　　Dim ArgDesc(1 To 3) As String

　　FuncName = "Cp"
　　FuncDesc = ""
　　Category = ""
　　ArgDesc(1) = ""
　　ArgDesc(2) = ""
　　ArgDesc(3) = ""

　　Application.MacroOptions _
　　　　Macro:=FuncName, _
　　　　Description:=FuncDesc, _
　　　　Category:=Category, _
　　　　ArgumentDescriptions:=ArgDesc

　　End Sub

（項目６）
　・以上で、Ｅｘｃｅｌ２０１０、ユーザー定義関数の作成方法は終了です。