tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите макрос для excel
Напишите макрос для excel для вычисления среднего значения в ячейках b3-b14 и с постановкой этого значения в ячейку е3, заранее !
яннис1
3 07.07.2019 06:10
3
Ответы
elvinpirimov1
30.07.2020 08:15
Sub MyMid()
a = Range("B3:B14")
n = UBound(a, 1)
s = 0
For i = 1 To n
s = s + a(i, 1)
Next i
Range("E3").Value = s / n
End Sub
Можно и короче записать:
Sub MyMid2()
Range("E3") = Application.WorksheetFunction.Average(Range("B3:B14"))
End Sub
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
danilshcherbin
25.12.2020 18:49
.Перевести 869710 → X8 2.Перевести F778 → X10...
valikotura
25.12.2020 18:48
Расставьте по порядку, как что нужно писать...
nikoleller
25.12.2020 18:48
Перевести 1048410 → X5 2. Перевести F3D16 → X10...
YourKarma396
13.07.2019 05:40
Плз перевести десятичные числа 453, 786 в двоичную, пятеричную и четырнадцатиричную систему счисления. число 100110011 из двоичной с.с. перевести в десятичную, число...
natalinatali2003
13.07.2019 05:40
Население города в 2004 г. составило 80000000 человек. определите, в каком году население утроится, если ежегодный прирост населения 5%...
1234567891241
18.11.2020 06:37
Электронды кесте бізге не үшін керек...
andreeva1979ir
18.11.2020 06:36
Сколько минут будет скачиваться файл, размером 3 Мбайт при Интернет- соединении 128000 бит/с?...
Bredovik
18.11.2020 06:34
Сколько бит информации содержит 31 байт...
Sultanasem2007
10.12.2021 20:08
если спят рыба касается берега нужно чтобы вернуться на старт и развернулся на направление 90 добавь необходимы команды после что от тех которых реле диету управление...
imranesedov777
01.03.2019 14:50
Вмассиве храниться информация о стоимости товаров. составьте программу, которая определяет стоимость самого дешевого(дорогого) товара и его индекс. вот программа но...
Популярные вопросы
Расстояние между а и в равно 500 км. из города а в город в выехал...
3
Добрые люди , округлите число 61,42 до целого....
3
Ларионову и гудько на праве общей собственности в равных долях...
1
Сочинение на казаском на тему райынбек батыр...
3
Составьте из данных слов предложения и запишите их: у,не, упал,...
1
Вычислить сумму используя приём гаусса 1+2+3++200...
2
Нок (64,144,180) напишите ответ немогу решить...
2
Задайте формулой обратную пропорциональность, если ее график проходит...
1
Какое количество гидроксида натрия потребуется для полной нейтролизации...
3
6связанных предложений с чередующимися гласными в корне...
2
a = Range("B3:B14")
n = UBound(a, 1)
s = 0
For i = 1 To n
s = s + a(i, 1)
Next i
Range("E3").Value = s / n
End Sub
Можно и короче записать:
Sub MyMid2()
Range("E3") = Application.WorksheetFunction.Average(Range("B3:B14"))
End Sub