Вывод необходимого количества строк таблицы

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

Вывод необходимого количества строк таблицы (Формулы/Formulas)

Rusel

Дата: Понедельник, 04.09.2017, 12:42 | Сообщение № 1

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

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

Сообщений: 156

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

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

Добрый день.
Подскажите как вывести необходимое количество строк в таблице, в зависимости от вводимых данных. В примере: в ячейке D4 введено количество месяцев, которое необходимо отразить в колонке B, т.е. при вводе цифры 12, чтобы в табличной части выходило соответствующее количество строк, а также считались итоги.

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

Ответить

_Boroda_

Дата: Понедельник, 04.09.2017, 13:09 | Сообщение № 2

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

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

Сообщений: 16880

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?

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

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

sboy

Дата: Понедельник, 04.09.2017, 13:14 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Добрый день.
вариант макросом
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D4]) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
    ilr = Cells(Rows.Count, 2).End(xlUp).Row
    If ilr > 8 Then Rows("8:" & ilr - 1).Delete xlShiftUp
    For x = 1 To Target.Value
        Rows(8).Insert
    Next x
    Range("E" & 8 + Target, "G" & 8 + Target).FormulaR1C1 = "=SUM(R8C:R[-1]C)"
End Sub

[/vba]

К сообщению приложен файл: 1585220.xlsm (17.9 Kb)

Яндекс: 410016850021169

Ответить

Rusel

Дата: Понедельник, 04.09.2017, 13:34 | Сообщение № 4

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

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

Сообщений: 156

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

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

_Boroda_, спасибо за отклик. В столбце Е по умолчанию нет данных, но задумано так, что можно вводить в ручную, в результате вся таблица корректируется.

Ответить

Rusel

Дата: Понедельник, 04.09.2017, 13:36 | Сообщение № 5

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

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

Сообщений: 156

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

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

sboy, Спасибо. Да, нужное количество строк выводится. А как теперь сделать чтобы все нужные формулы и данные выводились автоматически в выводимых строках?

Ответить

_Boroda_

Дата: Понедельник, 04.09.2017, 13:37 | Сообщение № 6

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

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

Сообщений: 16880

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата Rusel, 04.09.2017 в 13:34, в сообщении № 4 ()

В столбце Е по умолчанию нет данных, но задумано так, что можно вводить в ручную, в результате вся таблица корректируется.

Это я понял. А с таблицей-то что? Работает так, как нужно?

Ответить

Rusel

Дата: Понедельник, 04.09.2017, 13:50 | Сообщение № 7

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

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

Сообщений: 156

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

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

_Boroda_, я подправил формулы, вроде работает нормально. Только при вводе числа месяцев больше чем имеется строк в таблице, они не помещаются. Или нужно выделить границами сразу максимально возможное вводимое количество строк?

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