Возврат определенного типа данных в ячейке Excel

4 B Rivera [2009-08-30 17:56:00]

Я искал в Интернете, и я искал вопросы здесь, в stackoverflow, но я не смог найти решение.

Вот что я хотел бы сделать:

Предположим, что у меня есть следующий код в модуле класса с именем "MyClass"

Option Explicit
Dim var1 as integer

Sub Initialize(v as integer) var1 = v End Sub

Function GetVar1() GetVar1 = var1 End Function

Затем у меня есть UDF в отдельном модуле с кодом

 
Function InitializeMyClass(v as integer) as MyClass
   Dim myvar as MyClass
   Set myvar = new MyClass
   Call myvar.Initialize(v)
   Set InitializeMyClass = myvar
End Function

Function GetMyVar(m as MyClass) GetMyVar = m.GetVar1() End Function

Теперь в ячейке A1 у меня есть "= InitializeMyClass (3)", а в ячейке A2 "= GetMyVar (A1)". Я получаю ошибки #VALUE в обеих ячейках. Это, конечно, связано с тем, что я пытаюсь вернуть определенный пользователем тип данных в ячейку A1. Я чувствую, что это должно быть возможно, но я не знаю, как это сделать.

Изменить: О, да, вопрос в том, "Есть ли способ вернуть пользовательский тип данных в ячейку, а затем вызвать его из другого UDF в приведенном выше примере? знаете, если это требует COM или нет. Если да, то кто-нибудь знает, как я могу начать? В идеале, если бы у кого-то был пример того, как это сработало, это было бы фантастически!"

Другое редактирование: здесь мы идем, теперь я знаю, что это можно сделать: прочитайте это описание, оно не количественное, но даст вам представление о том, что они делают, http://www.quanttools.com/index.php?option=com_content&task=view&id=19

vba excel user-defined-functions