Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBA. Среднее по столбцу в переменую
 
#1
16.10.2019 02:05:08
Здравствуйте! Помогите пожалуйста решить задачу:
В стобце А имеется набор не целых чисел, их переменное количество. Причем, возможны пустые строки, нули или текст.
Каким образом реализовать расчет среднего по этому массиву и как записать результат в переменную (таким образом, чтобы она была числом, а не формулой) для дальнейшего ее использования в расчетах?
 
 
 
#2
16.10.2019 04:24:53
=СРЗНАЧ(A:A)
а что мешает число, полученное формулой, использовать в дальнейших расчетах?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#3
16.10.2019 05:54:32
Игорь, спасибо конечно! Формулами проблем нет расчитать. Я это на VBA хочу сделать.
Пробовал так:

Код
dim sr
set sr = averege ("A:A")
/// q = sr * pi

Мне нужна переменная для дальнейшего расчета, пример сверху.

Изменено: maerkovp.o - 16.10.2019 05:55:58
 
 
 
#4
16.10.2019 08:58:40
Код
Sub Sredneeznach()
    Summ = 0
    coll = 0
    With Sheets("Summary")
        For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
            If Cells(i, 1) <> "" And IsNumeric(Cells(i, 1)) Then
               Summ = Summ + Cells(i, 1)
               coll = coll + 1
            End If
        Next
    End With
    x = Summ / coll
End Sub
 
 
 
#5
16.10.2019 11:23:27
Благодарю!
Изменено: maerkovp.o - 16.10.2019 11:23:39
 
 
 
Страницы: 1
Наверх