Программирование в VBA . Помогите создать (исправить) программу , которая будет...

0 голосов
49 просмотров

Программирование в VBA .
Помогите создать (исправить) программу , которая будет сравнивать в таблице Excel числа в столбце "A" и в столбце "B" и выводить наибольшие числа в столбец "С". (Надеюсь , я понятно объяснил)
Вот код моей программы ( Но у меня она не захотела работать :-( )

Sub m1()
Dim j As Integer, i As Integer, x(10) As Integer
For i = 1 To 10
For j = 1 To 10
x(i) = Cells(i, "A")
x(j) = Cells(j, "B")
If x(i) > x(j) and i=j Then x(i) = Cells(i, "C")
End
Next j
Next i
End Sub


Информатика (248 баллов) | 49 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Sub m1()
    Dim i As Integer, m As Integer, n As Integer
    For i = 1 To 10
        m = Cells(i, 1)
        n = Cells(i, 2)
        If m > n Then
            Cells(i, 3) = m
        Else
            Cells(i, 3) = n
        End If
    Next i
End Sub

(142k баллов)