Предмет: Информатика,
автор: artemio123788
Программирование в 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
Ответы
Автор ответа:
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
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
Похожие вопросы
Предмет: Математика,
автор: enroha9
Предмет: Физика,
автор: olgaacenko624
Предмет: Английский язык,
автор: lovebrawlff
Предмет: Математика,
автор: mrlokomoko
Предмет: Физика,
автор: Samaya17