Вариант. Обратите внимание - фигуры на листе переименованы
Код |
---|
Sub ArrowClick() Const iPerc = 0.005 With Worksheets("Лист1").Range("B2") Select Case Application.Caller Case Is = "ArrowDown" .Value = .Value - .Value * iPerc Case Is = "ArrowUp" .Value = .Value + .Value * iPerc End Select End With End Sub |
Согласие есть продукт при полном непротивлении сторон