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

平均函数的计算

1 个答案: