If Sheets("Числа").Cells(I, 1) > 0 Then

Sheets("Положительные").Cells(IndPol, 2) = Sheets("Числа").Cells(I, 1)

IndPol = IndPol + 1

ElseIf Sheets("Числа").Cells(I, 1) < 0 Then

Sheets("Отрицательные").Cells(1, IndOtr) = Sheets("Числа").Cells(I, 1)

IndOtr = IndOtr + 1

End If

Next I

End Sub

1. Создайте автофигуру на листе «Числа», подпишите «Перенос» и привяжите программу Perenos к созданной фигуре.

1. Создайте автофигуры для очистки перенесенных значений на листах «Положительные» и «Отрицательные».
2. Предъявите работу преподавателю.

Не нашли, что искали? Воспользуйтесь поиском: