расчет средней функции

Question

Когда я пытаюсь использовать следующий синтаксис, он показывает ошибку:
Либо как неопределенная функция, либо как ошибка, определенная объектом / приложением.

Я ожидаю увидеть среднее значение для двух ячеек вместо ошибки или неопределенной функции.
Синтаксис, который я использовал для вычисления среднего:

Range("G2").Value = Application.WorksheetFunction.Average(Range("A2:B2"))
Cells(G, 2).Value = Application.Average(A2,B2)

Sub stock_security()

    Dim A, B, D, sigma, h

    'condition de calcul de stock
    'If Sheets("Résultat").Range("F2").Value = "produit stable" Then

        'selection des cellules

        A = Sheets("Résultat").Range("D2").Value
        B = Sheets("Résultat").Range("C2").Value

        'calculer la moyenne de la demande
        Cells(G, 2).Value = WorksheetFunction.Average(A, B)    
        D = Cells(G, 2).Value

        'calcul du stock de securite de chaque cellule par la formule
        'Msgbx "Resultat de la moyenne est:" & D, 0, "Résultats"

        'calcul de l'ecarttype
        'sigma = eccarttype(D)

        'h = sigma / D

    'End If
End Sub

Answer 1

Cells(G, 2).Value = WorksheetFunction.Average(A, B)

В вашем коде G не определено, поэтому Cells собирается выдать ошибку, так как нет ячеек с адресом (0,2).

Sub stock_security ()

'Declare variable type for each variable
'Dim dblA As Double, dblB As Double, dblD As Double, sigma, h

'condition de calcul de stock
'If Sheets("Résultat").Range("F2").Value = "produit stable" Then
'selection des cellules

dblA = Range("D2").Value
dblB = Range("C2").Value

'calculer la moyenne de la demande
Cells(2, 7).Value = Application.Average(dblA, dblB)
dlbD = Cells(2, 7).Value

'calcul du stock de securite de chaque cellule par la formule
'Msgbx "Resultat de la moyenne est:" & D, 0, "Résultats"

'calcul de l'ecarttype
'sigma = eccarttype(D)

'h = sigma / D

'End If