Excelのカスタムワークシート関数を使用する方法

カスタム関数の入力(登録)

いよいよ、カスタム関数を登録(貼り付け)します。カスタム関数の貼り付け先を「標準モジュール」と呼びます。まず、プロジェクトエクスプローラ内のブックを右クリックします。具体的な場所は下記画像の通りですが、文章で説明すると、[VBAProject(ブック名)」と表示されているツリービューアイテムのことです。右クリックにより表示されるメニュー(コンテキストメニュー)の中から[挿入]>[標準モジュール]の順にクリックします。

余談ですが、コンテキストメニューを表示するための右クリックは、厳密にはブック(プロジェクト)を選択する必要はありません。特に、ブック(プロジェクト)ツリービューアイテムの下位項目(画像の例ではMicrosoft Excel Objects 、Sheet1、またはThisWorkbook)でも問題ありませんし、その横の空白部分でも問題ありません。しかし、複数のブックが開いた状態で、空欄を右クリックして標準モジュールを挿入する場合、意図したブックに挿入されない可能性があるため、本項ではブックを右クリックする手順としています。

標準モジュールが挿入され、コード編集画面(コードペイン)が表示されます。ここにカスタム関数を貼り付けます。コードペインを閉じた場合は、標準モジュール名(下記画像の赤枠)をダブルクリックするか、標準モジュールを選択した状態で左上のボタン(下記画像の青枠)を押すと、標準モジュールのコードペインを開くことができます。

コードペインに使用したいカスタム関数を貼り付けます。登録作業はこれだけです。使用したいカスタム関数が無く、動作確認だけしたい場合は下記のコードを貼り付けて下さい。このカスタム関数は、単純に"カスタムワークシート関数テスト"という文字列を返すだけです。なお、カスタム関数は「Public Function ・・・」または単に「Function ・・・」で始まる行で始まり、「End Function」で終わります。貼り付ける際、コピー範囲が正しいことを確認する手掛かりにしてください。なお、関数の始まりの行の前に「’」(シングルクオーテション)で始まる文章が1行～複数行書かれていることがありますが、これはコメントです。コメントはカスタム関数の動作に一切影響を与えません。しかし。カスタム関数の説明などが書いてあることが多いので、必要に応じて関数本体と一緒にコピーしましょう。

'シングルクオーテーションで始まる行はコメントです。カスタム関数の動作には直接影響を与えませんが、
'カスタム関数の説明が書いてあることが多いので、必要に応じてコピーしましょう。
Public Function CustomFunction() As Variant
    CustomFunction = "カスタムワークシート関数テスト"
End Function

カスタム関数を使用する方法は、SUM関数など、他の関数と同様です。例のカスタム関数はCustomFunctionなので、A1セルに「=CustomFunction()」と入力すれば、カスタム関数を使用することが出来ます。

ｄ

他のカスタム関数を追加する場合は、既存のカスタム関数の上か下に別のカスタム関数を貼り付けます。もしくは、新たに標準モジュールを追加して、そちらに貼り付けても問題ありません。動作確認用として、別のカスタム関数を用意しました。今回は引数付きです。

Public Function ArgumentTest(ByRef Param1 As Variant) As Variant
    ArgumentTest = Param1 & " : " & Param1
End Function

先程と同様にカスタム関数を呼び出してみましょう。複数のカスタム関数が同時に使用できることを確認できたかと思います。