0 / 0 / 0
Регистрация: 18.06.2014
Сообщений: 2
1

Макрос для подсчета среднего геометрического выделенного диапазона ячеек

18.06.2014, 21:59. Показов 3520. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Здравствуйте!буду очень признательна если поможете в написании макроса,нужен для расчетов в дипломе.Вообщем макрос который считает среднее геометрическое выделенного диапазона ячеек,но у меня получился только с выводом на экран,а нужно записать значение в выделенную ячейку,так как ячейки будут все время меняться.Спасибо

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub МАКРОС1()
 
Dim mass() As Variant
mass = Selection
Dim p#
p = 1
For i = 1 To UBound(mass, 1)
  For j = 1 To UBound(mass, 2)
    p = p * mass(i, j)
Next j, i
MsgBox p ^ (1 / (UBound(mass, 1) * UBound(mass, 2)))
Selection.Cells(1).Offset(0, UBound(mass, 2) + 1).Value = _
p ^ (1 / (UBound(mass, 1) * UBound(mass, 2)))
ActiveCell.Offset(1, 0).Range("A15").Select
End Sub
0
18.06.2014, 21:59
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
18.06.2014, 21:59
Ответы с готовыми решениями:

Макрос вычисления среднего квадратичного выделенного диапазона чисел
Макрос вычисления среднего квадратичного выделенного диапазона чисел. Вот формула \sqrt{{(X1)}^{2}+{(X2)}^{2}+...+{(Xn)}^{2}} Помогите...

Найти в каждом столбце диапазона элементы, большие среднего геометрического всех элементов диапазона
Составьте функцию, которая проверяет в каждом столбце диапазона наличие элементов, больших среднего геометрического всех элементов...

Макрос для вывода определенной выборки для выделенного диапазона
Доброе время суток. С vba мало имел дело, но для экономии времени хочу сделать макрос: 1. Выделяем диапазон ячеек (где есть столбец с...

3
es geht mir gut
 Аватар для SoftIce
11272 / 4756 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
18.06.2014, 22:12 2
В чем проблема?
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub МАКРОС1()
    Dim mass() As Variant
    mass = Selection
    Dim p#
    p = 1
    For i = 1 To UBound(mass, 1)
        For j = 1 To UBound(mass, 2)
             p = p * mass(i, j)
    Next j, i
    'выделяем ячейку на 15 строк ниже выделенного диапазона
    ActiveCell.Offset(1, 0).Range("A15").Select
    'Выводим результат в выделенную ячейку
    Selection.Cells = p ^ (1 / (UBound(mass, 1) * UBound(mass, 2)))
End Sub
1
0 / 0 / 0
Регистрация: 18.06.2014
Сообщений: 2
18.06.2014, 22:20  [ТС] 3
Спасибо огромное за ответ,все работает))пыталась намудрить,не получилось
0
es geht mir gut
 Аватар для SoftIce
11272 / 4756 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
18.06.2014, 22:40 4
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub МАКРОС1()
    Dim mass() As Variant
    mass = Selection
    Dim p#
    p = 1
    For i = 1 To UBound(mass, 1)
        For j = 1 To UBound(mass, 2)
             p = p * mass(i, j)
    Next j, i
    'Можно и поближе к выделенному диапазону вывести результат,
    'но высока вероятность испортить исходные данные на листе
    ActiveCell.Offset(UBound(mass, 1) + 1, UBound(mass, 2) - 1).Select
    'Выводим результат в выделенную ячейку
    Selection.Cells = p ^ (1 / (UBound(mass, 1) * UBound(mass, 2)))
    
 End Sub
0
18.06.2014, 22:40
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.06.2014, 22:40
Помогаю со студенческими работами здесь

Копирование выделенного диапазона ячеек, только значения
Всем привет. Помогите пожалуйста, дописать код: Sub CopySelectedRangeToNewSheet() Dim R As Range, rArea As Object, li As...

Нарисовать внешние границы выделенного диапазона ячеек в EXCEL
Товарищи подскажите как выделить только внешние границы у выделенного диапазона ячеек в excel ? Данным способом рисуются границы у...

Копирование/вставка выделенного диапазона ячеек StringGrid (XE2)
Здравствуйте! Вот такой вопрос возник: как в таблице StringGrid при выделении диапазона ячеек скопировать их содержимое и потом вставить в...

Составить программу для подсчета среднего арифметического ненулевых ячеек прямоугольной таблицы Х, что состоит из M*N целых чисел, лежащих в диапазоне
Составить программу для подсчета среднего арифметического ненулевых ячеек прямоугольной таблицы Х, что состоит из M*N целых чисел, лежащих...

Найти в каждой строке диапазона количество элементов, больших среднего геометрического всех его элементов
Среднее геометрическое n положительных чисел x1, x2, …, xn – это корень n-ой степени из произведения x1 *x2 * … * xn. Помогите,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Микросервис с нуля на Go с Kafka
stackoverflow 12.02.2025
Когда я впервые столкнулся с необходимостью разделить монолитное приложение на микросервисы, передо мной встал вопрос выбора правильных технологий и подходов. После долгих экспериментов с различными. . .
Микросервис с нуля на C# с RabbitMQ
stackoverflow 12.02.2025
Переход от монолитной архитектуры к микросервисной - это не просто модное веяние, а закономерный этап эволюции программных систем. В отличие от монолита, где все компоненты тесно связаны между собой. . .
Docker для начинающих
stackoverflow 12.02.2025
В современном мире разработки программного обеспечения все чаще возникает необходимость быстро и надежно разворачивать приложения в различных средах. Разработчики постоянно сталкиваются с проблемой. . .
Создание бота для Телеграм на C#
stackoverflow 12.02.2025
В современном мире корпоративных коммуникаций Telegram-боты становятся незаменимым средством автоматизации бизнес-процессов и взаимодействия с сотрудниками. Как создать такого бота, который сможет. . .
Операторы сравнения (== и ===) в JavaScript
hw_wired 12.02.2025
JavaScript предоставляет два основных оператора сравнения - оператор нестрогого равенства (==) и оператор строгого равенства (===). На первый взгляд они могут показаться очень похожими, но их. . .
Определение адреса, откуда репозиторий Git был клонирован
hw_wired 12.02.2025
Система контроля версий Git хранит всю информацию о репозитории в специальной директории . git, включая данные об удаленных источниках. Эта информация необходима для синхронизации изменений между. . .
Объединение нескольких коммитов Git в один
hw_wired 12.02.2025
Представьте, что вы работаете над новой функциональностью и создали десяток небольших коммитов: исправление опечатки, форматирование кода, добавление комментариев, реализация основной логики. Каждый. . .
Как добавить локальную ветку в удалённый репозиторий Git
hw_wired 12.02.2025
Локальная ветка в Git - это изолированная линия разработки, существующая только на вашем компьютере. Представьте себе дерево с множеством веток - каждая ветка может расти в своем направлении, не. . .
Статическое отражение в C++
stackoverflow 12.02.2025
Статическое отражение представляет собой мощный механизм, позволяющий программам анализировать и манипулировать своей собственной структурой во время компиляции. Эта возможность открывает. . .
C++ в 21 веке - Бьярне Страуструп
stackoverflow 12.02.2025
В современном мире разработки программного обеспечения C++ продолжает оставаться одним из ключевых языков программирования, несмотря на свой солидный возраст - более 45 лет с момента создания. За это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru