Заполнить таблицу значениями

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Заполнить таблицу значениями (Формулы/Formulas)

Новичёк

Дата: Четверг, 19.10.2023, 23:14 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 121

Репутация: 2 ±

Замечаний: 0% ±

Здравствуйте.
Подскажите, пожалуйста, возможно ли силами эксель реализовать следующее:
Есть ячейка В4, в которую вводится вручную числовое значение. Есть ячейка с формулой С4.
Есть столбец Е:Е, который должен заполняться по мере ввода новых значений в ячейку В4.
Например вводим в В4 значение 1, в ячейку Е3 записывается значение 7
При вводе в В4 следующего числа надо, что бы результат записался в ячейку Е4, следующее в Е5 и т.д.

Изначально столбец пустой.

Заранее благодарен.

К сообщению приложен файл: kniga2.xlsx (11.1 Kb)

Сообщение отредактировал Новичёк - Четверг, 19.10.2023, 23:15

Ответить

Pelena

Дата: Пятница, 20.10.2023, 08:50 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19281

Репутация: 4446 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Макросом можно

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Новичёк

Дата: Суббота, 21.10.2023, 08:12 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 121

Репутация: 2 ±

Замечаний: 0% ±

Спасибо.

Ответить

i691198

Дата: Суббота, 21.10.2023, 09:59 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 244

Репутация: 90 ±

Замечаний: 0% ±

Здравствуйте.
В модуль листа такой макрос
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$4" Then
     Cells(Cells(Rows.Count, 5).End(xlUp).Row + 1, 5) = Target.Offset(, 1)
  End If
End Sub

[/vba]