funzione esponenzialericerca campo esistenza con ciclo for nextcontrollo valori con IFgrafico funzione

funzione esponenziale
ricerca campo esistenza con ciclo for next
controllo valori con IF
grafico funzione

Private Sub CommandButton1_Click()
Rem funzione esponenziale
riga = 1
For x = -5 To 10
If (Exp(x) - 1) <> 0 Then
y = 1 / (Exp(x) - 1)
Cells(riga, 1) = x
Cells(riga, 2) = y
Else
Cells(riga, 1) = x
Cells(riga, 2) = "non valido"
End If
riga = riga + 1
Next x
End Sub