сползание таблицы вниз (Excel-2003)

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » сползание таблицы вниз (Excel-2003) (Формулы/Formulas)

Gold_Barsik

Дата: Вторник, 03.11.2020, 00:06 | Сообщение № 1

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

Ранг: Обитатель

Сообщений: 459

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

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

2003

Доброго времени.
Подскажите (или помогите), можно ли в Excel 2003 сделать что бы: при вводе значений таблица (заданные столбцы) сползала бы вниз, освобождая ячейки для нового ввода данных.

Ответить

китин

Дата: Вторник, 03.11.2020, 07:41 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7015

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

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

Excel 2007;2010;2016

скорее всего это только макрос. без файла точно ответить трудно

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Gold_Barsik

Дата: Вторник, 03.11.2020, 22:36 | Сообщение № 3

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

Ранг: Обитатель

Сообщений: 459

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

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

2003

Пример (урезанный, без макросов)

К сообщению приложен файл: __.xls (63.5 Kb)

Ответить

CaramelManiac

Дата: Среда, 04.11.2020, 12:33 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 64

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

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

MS Excel 2003-2019

ёxcel 2003 Без макроса такого не сможет. Можно 2007 или старше. Они поддерживают талицы, которые сами расползаются при вставке новых данных, копируя при этом формулы в новые строки. Однако автоматическую реакцию на

Цитата

после ввода "показатель"

всеравно делать макросом.

Сообщение отредактировал CaramelManiac - Среда, 04.11.2020, 12:34

Ответить

Gold_Barsik

Дата: Среда, 04.11.2020, 14:56 | Сообщение № 5

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

Ранг: Обитатель

Сообщений: 459

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

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

2003

CaramelManiac, А кто же против? "(урезанный, без макросов)" это вложенный файл, что бы Вы не заморачивались "моими" макросами.

Ответить

CaramelManiac

Дата: Четверг, 05.11.2020, 12:54 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 64

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

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

MS Excel 2003-2019

Положите это в модуль "Лист1".

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("$Q$9") = "" Then Exit Sub
    If "$Q$9" = Target.Address Then
        Application.EnableEvents = False
        Range("T4:BI4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
        Application.EnableEvents = True
    End If
End Sub

[/vba]
Здесь:
"$Q$9" - адрес ячейки, на изменение которой нужно реагировать (знак доллара - $ - перед номерами столба и строки обязателен).
"T4:BI4" - адрес диапазона ячеек, которые сдвигаются вниз

Сообщение отредактировал CaramelManiac - Четверг, 05.11.2020, 12:55

Ответить

CaramelManiac

Дата: Четверг, 05.11.2020, 13:13 | Сообщение № 7

Группа: Пользователи

Ранг: Участник

Сообщений: 64

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

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

MS Excel 2003-2019

Или вот так

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)

Dim MutableCell As String ' Адрес ячейки, на изменение которой нужно реагировать.
Dim ShiftRange As String ' Диапазон ячеек, которые сдвигаются вниз.

MutableCell = "$Q$9" ' измените на свой адрес ячейки (знак доллара - $ - перед номерами столба и строки обязателен)
ShiftRange = "T4:BI4" ' измените на свой диапазон

If Range(MutableCell) = "" Then Exit Sub
If MutableCell = Target.Address Then
    Application.EnableEvents = False
        Range(ShiftRange).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
    Application.EnableEvents = True
End If
End Sub

[/vba]

Для более легкой адаптации кода здесь введены переменные: MutableCell и ShiftRange.
Если формат таблицы изменится или ваш "показатель" переедет в другую ячейку, достаточно просто изменить эти переменные.