関数でユーザー定義型を使用するにはどうすればよいですか？

Question

は簡単な例次のように動作しません：

Public Type MyType 
    a As Double 
    b As Integer 
End Type 

Function Test() As Variant 
    Dim x As MyType 
    Test = 2 
End Function 

Compile Error: User-defined type not defined

どのように私はタイプ "を定義する" のか？あなたのコードは私のエクセル2010

で罰金コンパイル

Answer 1

とにかくそれはここでユーザー定義型

を活用するための役に立たないだろうタイプの定義「完全な」例

Option Explicit 

Public Type MyType 
    a As Double 
    b As Integer 
End Type 

Sub main() 
    Dim x As MyType 

    'initialize fields of your type 
    x.a = 1.2 
    x.b = 1 

    MsgBox Test(x) 
End Sub 


Function Test(x As MyType) As Variant 

    Test = x.a + x.b 

End Function