1

addin.xlamには次のものがあります。

Type Quantity
    i As Integer
end type

Sub show_quant(q as Quantiy)
    MsgBox(q.i)
end sub

開いているワークブックで、次のことを行います。

Sub load_addin()
    Dim AI As Excel.AddIn
    Set AI = Application.AddIns.Add(Filename:="add_in.xlam")
    AI.Installed = True

    Dim q As Quantity
    show_quant(q)
End Sub

これはうまくいきません。Excel は、ユーザー定義型がまだ定義されていないと不平を言います。

では、アドインで定義された型の変数をどのように宣言するのでしょうか?

4

0 に答える 0