Funzione delta excel

Question

Buongiorno a tutti,

Sto cercando di utilizzare un vecchio foglio di calcolo (non fatto da me, naturalmente) ma quando lo apro compare questo messaggio

La macro "incriminata dovrebbe essere la seguente:

Sub delta()

'

' delta Macro

' Macro recorded 23/10/2008 by JJP

'

Dim P1 As Double, P2 As Double, K1 As Double, K2 As Double, delta As Double

P1 = Range("H3")

K1 = Range("H9")

Range("H3") = 1 + Range("H3")

P2 = Range("H3")

K2 = Range("H9")

delta = K2 - K1

Range("H14") = delta

Range("H3") = P1

End Sub

Potete aiutarmi? Grazie

Luciano

Answer 1

Ciao Luciano,

Sto cercando di utilizzare un vecchio foglio di calcolo (non fatto da me, naturalmente) ma quando lo apro compare questo messaggio

La macro "incriminata dovrebbe essere la seguente:

Sub delta()

'

' delta Macro

' Macro recorded 23/10/2008 by JJP

'

Dim P1 As Double, P2 As Double, K1 As Double, K2 As Double, delta As Double

P1 = Range("H3")

K1 = Range("H9")

Range("H3") = 1 + Range("H3")

P2 = Range("H3")

K2 = Range("H9")

delta = K2 - K1

Range("H14") = delta

Range("H3") = P1

End Sub

Il problema è dovuto al fatto che la macro utilizza il nome di una funzione intrinseca di Excel. In generale, al fine di evitare eventuali problemi e risultati imprevedibili, si dovrebbe sempre evitare di usare i nomi delle funzioni native o le parole riservate di VBA. Pertanto, prova a sostituire ol tuo codice con qualcosa del genere:

'=========>>

Option Explicit

'--------->>

Public Sub DDelta()

    Dim P1 As Double, P2 As Double

    Dim K1 As Double, K2 As Double

    Dim myDelta As Double

    With ActiveSheet

        P1 = .Range("H3").Value

        K1 = .Range("H9").Value

        With .Range("H3")

            .Value = .Value + 1

        End With

        P2 = .Range("H3").Value

        K2 = .Range("H9").Value

        myDelta = K2 - K1

        .Range("H14").Value = myDelta

        .Range("H3") = P1

    End With

End Sub

'<<=========

===

Regards,

Norman