Ciao a tutti, ho il seguente codice:
codice:
Private Sub btn_calcola_Click()
Dim dato(5) As String
Dim I As Integer
dato(1) = txt_prezzo_spot.Text
dato(2) = txt_strike_price.Text
dato(3) = txt_intensita_istantanea.Text
dato(4) = txt_scadenza.Text
dato(5) = txt_sigma.Text
For I = 1 To 5
Cells(3 + I, 3).Value = CSng(dato(I))
Next I
Cells(25, 2).Formula = "=(LN(B4/B5)+(B6+0.5*B8^2)*B7)/(B8*RADQ(B7))"
Cells(26, 2).Formula = "=B25-B8*RADQ(B7)"
Cells(27, 2).Formula = "=Distrib.Norm.St(B25)"
Cells(28, 2).Formula = "=Distrib.Norm.St(B26)"
Cells(29, 2).Formula = "=B4*B27-B5*EXP(-B6*SCADENZA)*B28"
Cells(29, 2).Formula = "=B5*EXP(-B6*B7)*(Distrib.Norm.St(-B26))-B4*Distrib.Norm.St(-B25)"
End Sub
Praticamente è una user form nella quale inserisco dei dati che verranno inseriti nelle celle tramite il ciclo for e su questi dati devono essere effettuati dei calcoli, che vedete tra le virgolette.
Le formule vengono inserite correttamente ma mi dà errore in excel (#NOME?) però se mi posiziono nella cella dove c'è l'errore, vado nella barra delle formule e premo invio magicamente mi da il risultato senza dare errore.
Sapreste dirmi com'è possibile questa cosa?