Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

39212 / 76738

←次へ　｜　前へ→


	【42641】クラスにクラスを渡す

yamadu - 06/9/17(日) 13:33 -


	引用なし

	パスワード

オブジェクト指向系の言語経験はありますが、
ExcelVBAは初心者の者です。

ExcelVBAでクラスモジュールのプロシージャーの引数に
クラスモジュールを設定する事は可能なのでしょうか？

以下のモジュールを使用すると、
実行時エラー'438'
オブジェクトは、このプロパティまたはメソッドをサポートしていません。
と表示されます。

例：
class1:TestClass
============================
Option Explicit
Private cName As String

Public Property Let name(str As String)
　　cName = str
End Property

Public Property Get name() As String
　　name = cName
End Property
============================

class2:ClassHolder
============================
Option Explicit
Public Class As TestClass

Public Sub setClass(ByRef item As TestClass)
　　Class = item
End Sub
============================

標準モジュール
============================
Sub test(ByVal moji As String)
　　
　　Dim Class As New TestClass
　　Dim holder As New ClassFolder
　　holder.setClass (Class)　　　　'←ここでエラー発生

End Sub
============================

ご存知の方がおられましたら、
ご教授願います。

0 hits

▼

【42641】クラスにクラスを渡す yamadu 06/9/17(日) 13:33

≪