Chamar a função VBA que retorna um tipo personalizado da planilha
Eu tenho uma função vba que retorna um tipo de dados personalizado, definido como:
Public Type stockValue
stock As String
value As Double
End Type
Minha pergunta é como eu lido com isso quando chamo a função de uma célula da planilha? por exemplo, digamos que eu queira que o celular exiba ostock
valor, eu tentei=function().stock
e isso não funciona
Qualquer ajuda é apreciada, obrigado !
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