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

Найти наиболее часто повторяющееся число

12.10.2018, 10:09. Показов 1882. Ответов 5
Метки vba (Все метки)

Author24 — интернет-сервис помощи студентам
Добрый день!
Возникла следующая проблема: необходимо найти наиболее часто повторяющееся число в диапазоне B2:B51 и присвоить его к переменной. Для упрощения процесса было принято решение записать макрос, используя формулу (=МОДА(B2:B51)).

Получилась такая штука:
Visual Basic
1
2
3
ActiveCell.FormulaR1C1 = "=MODE(RC[-6]:R[49]C[-6])"
Range("H3").Select
m = Cells(8, 3).Value
Но по неизвестной мне причине, переменная m остаётся пустой. Помогите, пожалуйста, найти ошибку! Заранее спасибо.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.10.2018, 10:09
Ответы с готовыми решениями:

Найти Наиболее Часто Встречающееся Число в Массиве
Помогите пожалуйста решить задачку на VBA Вот условие : В массиве целых чисел (одномерном)...

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

Вывод наиболее часто повторяющегося элемента строкового массива
Помогите! Вся надежда на вас! Не могу вывести имя, вроде выборку желает, подсчет тоже. Где-то...

Макрос для вывода наиболее часто встречающийся в тексте символа.
Помогите написать макрос для WORD, который бы отображал наиболее часто встречающийся в тексте...

5
es geht mir gut
11271 / 4753 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
12.10.2018, 10:12 2
Цитата Сообщение от Safoks Посмотреть сообщение
ActiveCell.FormulaR1C1 = "=MODE(RC[-6]:R[49]C[-6])"
А куда вы вставляете формулу, в непонятно какую активную ячейку ?
0
1846 / 1161 / 354
Регистрация: 11.07.2014
Сообщений: 4,102
12.10.2018, 10:20 3
Safoks, если результат заносится в H3, то координаты этой ячейки Cells(3,8) или просто m=activecell
1
es geht mir gut
11271 / 4753 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
12.10.2018, 10:22 4
Лучший ответ Сообщение было отмечено Safoks как решение

Решение

Короче,
Visual Basic
1
2
    Range("H3").FormulaR1C1 = "=MODE(RC[-6]:R[49]C[-6])"
    m = Cells(3, 8).Value
1
15147 / 6420 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
12.10.2018, 10:29 5
короче
Visual Basic
1
m = worksheetfunction.Mode(range("B2:B51"))
1
0 / 0 / 0
Регистрация: 07.08.2018
Сообщений: 36
17.10.2018, 02:29  [ТС] 6
Burk, Спасибо изменила, но проблема осталась прежней

Добавлено через 2 минуты
SoftIce, Спасибо, теперь вроде бы есть значение.
0
17.10.2018, 02:29
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.10.2018, 02:29
Помогаю со студенческими работами здесь

Дано вещественное число R и массив Размера N. Найти элемент массива, который наиболее (наименее) близок к данному числу.
Дано вещественное число R и массив Размера N. Найти элемент массива, который наиболие (наимение)...

Найти наиболее часто повторяющееся значение в массиве (KP580BM80A)
расчитайте программу позволяющую определить ,какое из заданных чисел расположенных в ячейках памяти...

Как через функции DAX в PowerPivot написать формулу, определяющую наиболее часто повторяющееся число?
Добрый день! Подскажите пожалуйста, как с помощью функций DAX в PowerPivot написать формулу,...

Найти наиболее часто встречающееся число
В массиве целых чисел с количеством элементов n найти наиболее часто встречающееся число. Если...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru