среднее значенее

[Kirja23]

хотелось бы востановить свою тему.....

Доброго утра всем!!!

следующее задание:

в столбце Б находятся наименование продуктов (Вилка, Ложка, Тарелка), в столбце C находится их количество (10,12,120), в столбце Е находятся наименование продуктов, а в столбце F их их среднее значенее, т.е. Б1:Вилка Б2:Вилка Б3:Ложка; C1:10 С2:10 С3:2; Е2:Вилка, Е3:Ложка; F2: 10 (т.е. (10+10)/2) F3: 2

заранее очень благодарен!!!!!!!


наработка была, просто она работала не так как надо, поэтому не стал выставлять...

Sub test()
Dim x As Integer, Summe As Long, Anzahl As Integer, Note As Double

x = 2
Do While (Cells(x,2) <> "")
If (Cells(x, 5) = Cells(x, 2)) Then
Note = Cells(x, 3)
Summe = Summe + Note
Anzahl = Anzahl + 1
End If
x = x + 1
Loop

Cells(x, 6) = Summe / Anzahl
End Sub

[Скрипт]

Kirja23, у вас задание для учёбы или для применения? Просто для решения одного и того же можно использовать разные средства.

[Казанский]

Формула для F2 и тяните вниз

=СУММЕСЛИ(B:B;E2;C:C)/СЧЁТЕСЛИ(B:B;E2)

[Kirja23]

Скрипт, спасибо за ответ, решение нужно для применения.

Казанский, и вам спасибо за ответ, но формула в экселе у меня есть, хотелось бы понять как это делается в VBA.

[Казанский]

Используйте формулы в VBA - это чаще всего самый эффективный метод:

Sub test()
With Range("E2", Cells(Rows.Count, "E").End(xlUp)).Offset(, 1)
    .Formula = "=SUMIF(B:B,E2,C:C)/COUNTIF(B:B,E2)"
    .Value = .Value
End With
End Sub

[Скрипт]

Чтобы в VBA использовать названия Excel-функций на русском языке, нужно использовать команду FormulaLocal.

Пример кода:

Sub Procedure_1()

    ActiveCell.FormulaLocal = "=СУММЕСЛИ(B:B;E2;C:C)/СЧЁТЕСЛИ(B:B;E2)"

End Sub

[Kirja23]

Скрипт и Казанский, спасибо за помощь, пока не проверял, но подправить если что смогу сам. Спасибо.