ГДЕ ОШИБКА???? 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

ГДЕ ОШИБКА???? 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) <= Min Then Min = a(i) Next i R = Min / s MsgBox "s=" & s MsgBox "min=" & Min MsgBox "R=" & R End Sub
Гость
Ответ(ы) на вопрос:
Гость
Проверил через VBEdit, код верен. Смутили только названия worksheets'ов.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы