Информатика, опубликовано 2018-08-22 18:54:20 by Гость
ГДЕ ОШИБКА???? Sub qwer() Dim a(1 To 10), b(1 To 10) As Integer n = 10 For i = 1 To n a(i) = Worksheets("Ëèñò1").Cells(1, i + 1).Value b(i) = Worksheets("Ëèñò1").Cells(2, i + 1).Value Next i s = 0: Min = a(1) For i = 1 To n s = s + b(i) If a(i)
Ответ оставил Гость
Проверил через VBEdit, код верен. Смутили только названия worksheetsов.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на