●EXCEL・VBAの教えてスレ Part2●

●EXCEL・VBAの教えてスレ Part2● at TECH

333:デフォルトの名無しさん
07/02/20 12:16:50
>>332
===== MyTestClass As クラスモジュール =====
Public ID As Integer
Public Name As String
===== EOM =====

===== Module1 As 標準モジュール =====
Sub test()
　　Dim a(3) As New MyTestClass
　　a(0).Name = "hoge"
　　a(0).ID = 10
　　i = TypeTest(a)
End Sub

Function TypeTest(a() As MyTestClass) As Integer
　　Debug.Print a(0).Name
　　Debug.Print a(0).ID
End Function
===== EOM =====

こんな感じで。
クラスモジュールの名前がAs ～で使う宣言型になる点に注意。

> それと、ここはsage推奨ですか？
別に。回答者はageる必要が無いから慣例的にsageてるだけ。

次ページ

続きを表示

1を表示