|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.02.2013, 11:18 | #1 |
Пользователь
Регистрация: 05.10.2012
Сообщений: 21
|
среднее значенее
хотелось бы востановить свою тему.....
Доброго утра всем!!! следующее задание: в столбце Б находятся наименование продуктов (Вилка, Ложка, Тарелка), в столбце 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 |
14.02.2013, 19:45 | #2 |
Форумчанин
Регистрация: 24.12.2012
Сообщений: 776
|
Kirja23, у вас задание для учёбы или для применения? Просто для решения одного и того же можно использовать разные средства.
|
14.02.2013, 19:53 | #3 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Формула для F2 и тяните вниз
Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
14.02.2013, 22:49 | #4 |
Пользователь
Регистрация: 05.10.2012
Сообщений: 21
|
Скрипт, спасибо за ответ, решение нужно для применения.
Казанский, и вам спасибо за ответ, но формула в экселе у меня есть, хотелось бы понять как это делается в VBA. |
14.02.2013, 23:21 | #5 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Используйте формулы в VBA - это чаще всего самый эффективный метод:
Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
15.02.2013, 12:47 | #6 |
Форумчанин
Регистрация: 24.12.2012
Сообщений: 776
|
Чтобы в VBA использовать названия Excel-функций на русском языке, нужно использовать команду FormulaLocal.
Пример кода: Код:
|
15.02.2013, 18:25 | #7 |
Пользователь
Регистрация: 05.10.2012
Сообщений: 21
|
Скрипт и Казанский, спасибо за помощь, пока не проверял, но подправить если что смогу сам. Спасибо.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
среднее значенее | Kirja23 | Microsoft Office Excel | 1 | 14.02.2013 02:55 |
Найти среднее арифметическое их квадратов и среднее арифметическое их модулей. (Турбо паскаль) | erte | Помощь студентам | 1 | 30.10.2012 13:08 |
С++ Найти среднее арифметическое положительных и среднее арифметическое отрицательных чисел, минимальное по модулю число. | Юрик 530 | Помощь студентам | 4 | 03.12.2011 16:26 |
Делфи.среднее геометрическое элементов массива.среднее арифметическое каждой строки матрицы | Karrina | Помощь студентам | 0 | 06.12.2010 18:32 |