Вопрос про макрос и вывод значения - есть ответ

Без имени, 247 просмотров

Sub alt()
Dim a(9) As Single
Dim max As Single
max = 0
For i = 1 To 9
a(i) = ActiveSheet.Cells(i, 3)
If a(i) > max Then max = a(i)
Next i
ActiveSheet.Cells(10, 10) = max

End Sub
Это макрос, который находит максимальное значение в столбце (max - переменная, значение которой равно максимуму ) и выводит его в ячейку (10,10). Можно ли как-то сделать так, чтобы при выводе в ячейку (10,10) максимума выводилось в ячейку,например, (11,11) значение , которое лежит на 2 ячейки левее чем значение максимума В СТОЛБЦЕ, а не в точке (10,10)??

Ответы:

Младшенький

Заводите еще одну переменную для отслеживания позиции максимума по строкам, например j
В цикле добавляете помимо записи максимума в переменную, еще и запись найденного номера строки максимума в переменную, т.е.

Алексей Матевосов

For i = 1 To 9
a(i) = ActiveSheet.Cells(i, 3)
If a(i) > max Then max = a(i)
Next i
В цикле пополняется массив а и его элемент проверяется на МАХ. Т.е. в цикле каждый раз идет обращение к ячейкам таблицы. Короче массив тут не нужен.

11 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.