Добрый вечер!
Ребят, я раньше не сталкивалась вообще с такими задачами. Не могу понять где наделала ошибок.
Изначально нужно было сделать в Excel: Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное. Вывести новые значения переменных A, B, C в ячейки.

Вот это я смогла "наваять":
Sub Макрос1()
'
' Макрос1 Макрос
'
' Сочетание клавиш: Ctrl+1
'
If ((A1 < A2) And (A2 < A3)) Then
Let B1 = A1 * 2
Let B2 = A2 * 2
Let B3 = A3 * 2
Else
Let B1 = A1 * (-1)
Let B2 = A2 * (-1)
Let B3 = A3 * (-1)
End If

End Sub

В итоге макрос не срабатывает((((

ПЕНСИОНЕРКА,

А разве не в ячейках уже вводятся значения? Это еще и в коде должно быть указано?

ПЕНСИОНЕРКА,

Спасибо огромное! Я тормоз)))))

ПЕНСИОНЕРКА,

Как в макросе прописать обращение к ячейке? Чем больше я читаю методичку и копаюсь на сайтах, тем меньше понимаю, что мне нужно сделать

Sub Ìàêðîñ5()
'
' Ìàêðîñ5 Ìàêðîñ
'
' Ñî÷åòàíèå êëàâèø: Ctrl+g
'
Range("B1").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-1]<R[1]C[-1],R[1]C[-1]<R[2]C[-1]),(RC[-1]*2),(RC[-1]*(-1)))"
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B3"), Type:=xlFillDefault
Range("B1:B3").Select
Range("B2").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(R[-1]C[-1]<RC[-1],RC[-1]<R[1]C[-1]),(RC[-1]*2),(RC[-1]*(-1)))"
Range("B3").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(R[-2]C[-1]<R[-1]C[-1],R[-2]C[-1]<R[-1]C[-1]),(RC[-1]*2),(RC[-1]*(-1)))"
Range("B4").Select
End Sub

Этот вариант правильный?

Казанский, спасибо огромное!
Следующую аналогичную задачу уже нормально решу.