как задать формулу, чтобы вводимое число разбивалось по процентам на две ячейки

[mariya shelest]

Добрый день!

Подскажите, пожалуйста, как сделать, чтобы вводимое число разбивалось по процентам, одно значение оставалось в вводимой ячейке, второе уходило в другую ячейку, например, нужно число 11 разбить по процентам 20 и 80
ввожу число 11 в ячейку А1 нажим. Enter и сумма 2,2 остается в ячейке А1, а сумма 8,8 уходит в другую ячейку напр. С2?

[gling]

=A1*0,2
=A1*0,8

[Казанский]

Если в той же ячейке, без VBA не обойтись.
В модуль листа (правый клик по ярлычку листа - Исходный текст)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
Set Target = Intersect(Target, Columns(1), UsedRange)
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each Target In Target
    x = Target
    If IsNumeric(x) Then
        Target = x * 0.2
        Target.Offset(, 1) = x * 0.8
    End If
Next
Application.EnableEvents = True
End Sub

Работает с первым столбцом. Можно изменять сразу несколько ячеек, например скопировать диапазон и вставить в первый столбец.