Вызовите функцию VBA, которая возвращает пользовательский тип из электронной таблицы.
У меня есть функция VBA, которая возвращает пользовательский тип данных, определенный как:
Public Type stockValue
stock As String
value As Double
End Type
У меня вопрос, как мне справиться с этим, когда я вызываю функцию из ячейки электронной таблицы? например, я хочу, чтобы ячейка отображалаstock
ценность, я пытался=function().stock
и это не работает
любая помощь приветствуется, спасибо!
Function getLowestPnl(strat As String, rank As Integer) As stockValue
Call Conecta_DB(conexao)
Set registros = New ADODB.Recordset
strSQL = "SELECT stock,sum([value]) FROM Reports.dbo.Entry WHERE idStrategy='" & strat & "' and idType=1 GROUP BY stock ORDER BY sum([value])"
'strSQL = "SELECT [finance],[sales],[management],[research],[administration] FROM [COS].[dbo].[Complementarity] WHERE [idCompany] =" & idCompany & " and [year]=" & year & " and [CEO]=1"
registros.Open strSQL, conexao, adOpenStatic, adLockOptimistic
parar = False
If Not registros.EOF Then
x = registros.GetRows()
i = 0
Do While parar <> True
If i = (rank - 1) Then
getLargestShortExp.stock = Trim(x(0, i))
getLargestShortExp.value = x(1, i)
parar = True
End If
i = i + 1
Loop
End If
registros.Close
getLowestPnl = ret
End Function