VBA excel, помогите ламеру - есть ответ

А. Волк, 105 просмотров

Sub пуск_Щелчок()
Dim mass(9), min, i
min = Cells(1, 1)
For mass(i) = 1 To n
If mass(i) < min Then min = mass(i)
Next
MsgBox& min

End Sub

Задача кода - выдавать минимальное значение из указанного массива. Выдает значение ячейки, указанной в переменной min. Где ошибка?

Примечание:
Благодарю, все работает.

Ответы:

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

Тут не ошибка, тут ничего кроме них.
Dim mass(9), min, i объявление переменных, правильно так
Dim mass(9) As Variant
Dim i As Integer
Dim imin As Single 'или Double
Имя переменной min лучше заменить на imin или другое, так как в Экселе есть такая функция и могут быть ошибки.
For mass(i) = 1 To n не работает. Должно быть так For i = 1 To 9
MsgBox& min лишний знак & MsgBox min
Но самое главное у вас не заполнен массив, все девять значений равны нулю.

13 лет назад

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

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

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