クラスとCallByNameとポリモーフィズム(多態性)

公開日：2019-04-06　最終更新日：2019-04-06

クラスとCallByNameとポリモーフィズム(多態性)

VBAの使い方が進んでいくとクラスを使うようになっていきます。
クラスを使うようになるとオブジェクト指向という言葉に出会い、
オブジェクト指向を学んでいくとポリモーフィズム(多態性)という言葉に出会います。

オブジェクト指向における多態性の説明としては、
メソッドの呼び出し時に、メソッドが属するオブジェクト（クラス）の種類によって呼び出し先の実装コードが選択され、処理内容が変化する性質。
このように説明されます。
単に多態性と言った場合は、
プログラミング言語の各要素（定数、変数、式、オブジェクト、関数、メソッドなど）についてそれらが複数の型に属することを許すという性質。
ということになります。

今回はオブジェクト指向の多態性に進む前段階として、
そもそも多態性とはどのようなものかを、VBAで理解することを目的とした記事になります。
そこで、関数に多態性を持たせた多態性関数について取り上げてみました。

ただしVBAで多態性関数が使えるわけではなく、多態性関数のような動きを作って多態性についての理解を深めていこうという主旨になります。
今回は、CallByName関数を使いどのような動きになるかを説明していきます。
CallByName関数のヘルプでの説明は以下のように書かれています。
「オブジェクトのメソッドを実行するか、オブジェクトのプロパティを設定するか返します。」
何に使うものなのか、意味も良く分からない、、、ですよね。

CallByName関数は、変数内にある文字列としてのプロシージャー（メソッドやプロパティ）を起動することができます。
つまり、動的（実行時）に実行するプロシージャーを切り替えられるということです。
VBAにおけるCallByName関数は、コールバックやリフレクションを実現するための関数とも言えます。

コールバック(callback)

ある関数などを呼び出す際に別の関数などを実行するよう指定する手法

リフレクション(reflection)

実行時にプログラムの構造や構成要素の情報を取得したり、動作を動的に変更したりすること

VBAで動的（実行時）に実行するプロシージャーを切り替える方法としては、
Application.RunメソッドやApplication.OnTimeメソッドもありますが、
今回はCallByName関数の文法から入り、多態性関数へと進めていきます。

>CallByName関数

CallByName関数は、実行時に指定したオブジェクトのプロパティの設定と取得、およびメソッドの実行を行います。

CallByName(object,procname,calltype,[args()])

引数

内容

object

必ず指定します。
バリアント型およびオブジェクト型のいずれかを指定できます。
この関数の実行対象となるオブジェクトの名前を指定します。

procname

必ず指定します。
バリアント型および文字列型のいずれかを指定できます。
オブジェクトのプロパティ名およびメソッド名を含む文字列式を指定します。

calltype

必ず指定します。
定数値を指定します。
呼び出されるプロシージャの種類を表すvbCallTypeのメンバを指定します。

定数	値	内容
VbMethod	1	メソッドを実行する
VbGet	2	プロパティの値を取得する
VbLet	4	プロパティの値を設定する
VbSet	8	プロパティにオブジェクトへの参照を代入する

args()

省略可能です。
バリアント型および配列を指定できます。

戻り値は、実行したメソッドまたはプロパティの取得値になります。

第1引数はobjectなので、標準モジュールのプロシージャーをCallByName関数で実行することはできません。

>クラスとCallByNameとポリモーフィズム(多態性)のVBAコード

多態性関数の処理内容

引数のデータ型により、処理を切り替えます。
文字列型の場合、第1引数の文字を第2引数分繰り返します。
数値型（各種あり）の場合、第1引数に第2引数を掛け算します。
いずれも、第1引数のデータ型で戻します。

つまり、データ型により動的に実行するメソッドを変更してみようということです。

クラス：clsFunc


  
    
      Option Explicit


      Public Function Multi(ByVal arg1 As Variant, ByVal arg2 As Variant) As
      Variant

　　On Error Resume Next '未設定のデータ型の対応

　　Multi = CallByName(Me, "Multi_" & TypeName(arg1), VbMethod, arg1, arg2)

End Function


      Public Function Multi_String(ByVal arg1 As Variant, ByVal arg2 As Integer)
      As String

　　Multi_String = WorksheetFunction.Rept(arg1, arg2)

End Function


Public Function Multi_Integer(ByVal arg1 As Variant, ByVal arg2 As Long) As Integer

　　Multi_Integer = arg1 * arg2

End Function


Public Function Multi_Long(ByVal arg1 As Variant, ByVal arg2 As Long) As Long

　　Multi_Long = arg1 * arg2

End Function


Public Function Multi_Single(ByVal arg1 As Variant, ByVal arg2 As Long) As Single

　　Multi_Single = arg1 * arg2

End Function


Public Function Multi_Double(ByVal arg1 As Variant, ByVal arg2 As Long) As Double

　　Multi_Double = arg1 * arg2

End Function


      Public Function Multi_Currency(ByVal arg1 As Variant, ByVal arg2 As Long)
      As Currency

　　Multi_Currency = arg1 * arg2

      End Function

標準モジュール


  
    
      Option Explicit


      Sub sample1()

　　Dim rtn As Variant

　　Dim var As Variant

　　

　　var = "123"　　　　 '文字列型

　　rtn = Multi(var, 3)

　　Debug.Print TypeName(rtn), rtn

　　

　　var = 123　　　　　 '整数型

　　rtn = Multi(var, 3)

　　Debug.Print TypeName(rtn), rtn

　　

　　var = 123&　　　　　'長整数型

　　rtn = Multi(var, 3)

　　Debug.Print TypeName(rtn), rtn

　　

　　var = 1234.543!　　 '単精度浮動小数点型

　　rtn = Multi(var, 3)

　　Debug.Print TypeName(rtn), rtn

　　

　　var = 1234.54321　　'倍精度浮動小数点型

　　rtn = Multi(var, 3)

　　Debug.Print TypeName(rtn), rtn

　　

　　var = 1234.5432@　　'通貨型

　　rtn = Multi(var, 3)

　　Debug.Print TypeName(rtn), rtn

　　

End Sub


Public Function Multi(ByVal arg1 As Variant, ByVal arg2 As Variant) As Variant

　　On Error Resume Next '未設定のデータ型の対応

      　　Multi = CallByName(New clsFunc, "Multi", VbMethod, arg1, arg2)

      End Function

Function Multiについては、以下のよう書くこともできます。


  
    
      Public Function Multi(ByVal arg1 As Variant, ByVal arg2 As Variant) As
      Variant

　　On Error Resume Next '未設定のデータ型の対応

　　Multi = CallByName(New clsFunc, "Multi_" & TypeName(arg1), VbMethod, arg1, arg2)

End Function

さらに、先にクラスのインスタンスを作成するように書くこともできます。


  
    
      Sub sample1()

　　Dim rtn As Variant

　　Dim var As Variant

　　

　　Dim fnc As New clsFunc

　　

　　var = "123"

　　rtn = fnc.Multi(var, 3)

　　Debug.Print TypeName(rtn), rtn

　　

　　var = 123

　　rtn = fnc.Multi(var, 3)

　　Debug.Print TypeName(rtn), rtn

　　

      　　'・・・

      　　

      End Sub

いずれも書き方の違いであり、実行結果とどれも同じになります。

sample1の実行結果

文章で説明するようなところはほとんどないので、とにかく、
ステップイン(F8)で動作を確認してみましょう。
文章で説明するより、実際に動かして、その挙動を確認してみるのが一番理解が進むはずです。

標準モジュールで関数を使うときの記述は1通りで書いても、
実際に動作する関数は別々のものが実行されていることを確認してください。

多態性関数がサポートされているプログラミング言語であれば、
Multi_String～Multi_Currency
これらを全てFunction Multiとだけ書けば良いということになります。


  
    
      Sub sample1()

　　Dim rtn As Variant

　　Dim var As Variant

　　

　　var = "123"　　　　 '文字列型

　　rtn = Multi(var, 3)

　　Debug.Print TypeName(rtn), rtn

　　

　　var = 123　　　　　 '整数型

　　rtn = Multi(var, 3)

　　Debug.Print TypeName(rtn), rtn

　　

　　'・・・

　　

End Sub


Public Function Multi(ByVal arg1 As Variant, ByVal arg2 As Integer) As String

　　Multi_String = WorksheetFunction.Rept(arg1, arg2)

End Function


Public Function Multi(ByVal arg1 As Variant, ByVal arg2 As Long) As Integer

　　Multi_Integer = arg1 * arg2

End Function


'・・・

オブジェクト（クラス）も動的に変更すると

先に、クラス(clsFunc)のVBAコードを全てThisWorkbookに貼り付けておいてください。
（VBAコード全てをコピーして、ThisWorkbookに貼り付けてください。）

標準モジュール


  
    
      Option Explicit


Sub sample2()

　　Dim obj As Object

　　Dim rtn As Variant

　　Dim var As Variant

　　

      　　Set obj = New clsFunc

　　var = "123"　　　　 '文字列型

　　rtn = Multi(obj, var, 3)

　　Debug.Print TypeName(rtn), rtn

　　

      　　Set obj = ThisWorkbook

　　var = 123　　　　　 '整数型

　　rtn = Multi(obj, var, 3)

      　　Debug.Print TypeName(rtn), rtn

      　　

      　　'・・・

　　

End Sub


      Public Function Multi(ByVal obj As Object, ByVal arg1 As Variant, ByVal
      arg2 As Variant) As Variant

　　On Error Resume Next '未設定のデータ型の対応

　　Multi = CallByName(obj, "Multi", VbMethod, arg1, arg2)

      End Function

Set obj = New clsFunc
Set obj = ThisWorkbook
上では事前にSetしましたが、この部分をFunction Multiの中で切り替えるようにするとより動的な感じになるでしょう。

ここでは、オブジェクトとして全く違うものでも良いことのサンプとしてクラスとThisWorkbookと極端に違うものにしてみましたが、
普通なら、クラスを複数作って切り替えるということになるでしょう。

このような考え方をさらに進めていき、オブジェクト指向としの多態性を実現するには、
Implementsステートメント（インターフェイス）を使うことになりますが、その説明はまたの機会に。

最後に

CallByName関数の処理速度は遅いです、当り前と言えば当り前の事です。
（ただし遅いといっても、直接メソッド等を実行する場合に比べてということです。）
また今回の多態性関数の場合は、余程多くの関数を作るという場合でも無い限り、
Select Caseで分岐すれば良いだけのことなのは言うまでもないでしょう。

実際に、CallByName関数を使う機会はあまりないと思います。
完成したVBAのテストツールのようなものを作るときに使うとか、
プロパティの一覧がシートにあって、その一覧にプロパティ値を出力したいとか、
実務として使う必要が出てくるとしたら、こういう場合くらいではないかと思います。

今回は、VBAプログラミングの学習の過程として、やっておいた方が良いだろうと言うことで取り上げてみました。
あくまで多態性の必要性・便利さを少しでも理解してもらうための入り口としての記事になります。
従いまして、あまり細かいことにこだわる必要はなく、
オブジェクトのメソッド・プロパティを文字列で指定して実行できるCallByName関数があるということと、
多態性とはどういうことなのかをざっくりと理解するだけで良いでしょう。

同じテーマ「VBAクラス入門」の記事

VBAクラスの作り方：列名のプロパティを自動作成する
 VBAクラスの作り方：独自Rangeっぽいものを作ってみた
 クラスとイベントとマルチプロセス並列処理
クラスとCallByNameとポリモーフィズム(多態性)
オートフィルターを退避回復するVBAクラス
 オートフィルター退避回復クラスを複数シート対応させるVBAクラス
 コレクション（Collection）の並べ替え（Sort）に対応するクラス
 VBAクラスのAttributeについて（既定メンバーとFor Each）
VBAクラスを使ったイベント作成（Event,RaiseEvent,WithEvents）
VBAで音楽再生するクラスを作成
 VBAクラスを使ったイベント作成（Event,RaiseEvent,WithEvents）

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.繰り返し処理（For Next)｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.変数宣言のDimとデータ型｜VBA入門
6.条件分岐（IF）｜VBA入門
7.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
8.並べ替え（Sort）｜VBA入門
9.マクロとは？VBAとは？VBAでできること｜VBA入門
10.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門

ホーム
マクロVBA応用編
VBAクラス入門
クラスとCallByNameとポリモーフィズム(多態性)

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

VBA技術解説
クラスとCallByNameとポリモーフィズム(多態性)

クラスとCallByNameとポリモーフィズム(多態性)

>CallByName関数

>クラスとCallByNameとポリモーフィズム(多態性)のVBAコード

オブジェクト（クラス）も動的に変更すると

最後に

同じテーマ「VBAクラス入門」の記事

新着記事NEW ・・・新着記事一覧を見る

アクセスランキング・・・ランキング一覧を見る

クラスとCallByNameとポリモーフィズム(多態性)

>CallByName関数

>クラスとCallByNameとポリモーフィズム(多態性)のVBAコード

オブジェクト（クラス）も動的に変更すると

最後に

同じテーマ「VBAクラス入門」の記事

新着記事NEW ・・・新着記事一覧を見る

アクセスランキング ・・・ ランキング一覧を見る

アクセスランキング・・・ランキング一覧を見る