Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/сползание таблицы вниз (Excel-2003) - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » сползание таблицы вниз (Excel-2003) (Формулы/Formulas)
сползание таблицы вниз (Excel-2003)
Gold_Barsik Дата: Вторник, 03.11.2020, 00:06 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 419
Репутация: 6 ±
Замечаний: 0% ±

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

Автор - Gold_Barsik
Дата добавления - 03.11.2020 в 00:06
китин Дата: Вторник, 03.11.2020, 07:41 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 6319
Репутация: 970 ±
Замечаний: 0% ±

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


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениескорее всего это только макрос. без файла точно ответить трудно

Автор - китин
Дата добавления - 03.11.2020 в 07:41
Gold_Barsik Дата: Вторник, 03.11.2020, 22:36 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 419
Репутация: 6 ±
Замечаний: 0% ±

2003
Пример (урезанный, без макросов)
К сообщению приложен файл: __.xls(63.5 Kb)
 
Ответить
СообщениеПример (урезанный, без макросов)

Автор - Gold_Barsik
Дата добавления - 03.11.2020 в 22:36
CaramelManiac Дата: Среда, 04.11.2020, 12:33 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 16 ±
Замечаний: 0% ±

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


Сообщение отредактировал CaramelManiac - Среда, 04.11.2020, 12:34
 
Ответить
Сообщениеёxcel 2003 Без макроса такого не сможет. Можно 2007 или старше. Они поддерживают талицы, которые сами расползаются при вставке новых данных, копируя при этом формулы в новые строки. Однако автоматическую реакцию на
Цитата
после ввода "показатель"
всеравно делать макросом.

Автор - CaramelManiac
Дата добавления - 04.11.2020 в 12:33
Gold_Barsik Дата: Среда, 04.11.2020, 14:56 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 419
Репутация: 6 ±
Замечаний: 0% ±

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

Автор - Gold_Barsik
Дата добавления - 04.11.2020 в 14:56
CaramelManiac Дата: Четверг, 05.11.2020, 12:54 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 16 ±
Замечаний: 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
 
Ответить
СообщениеПоложите это в модуль "Лист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:54
CaramelManiac Дата: Четверг, 05.11.2020, 13:13 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 16 ±
Замечаний: 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.
Если формат таблицы изменится или ваш "показатель" переедет в другую ячейку, достаточно просто изменить эти переменные.


Сообщение отредактировал CaramelManiac - Четверг, 05.11.2020, 13:16
 
Ответить
СообщениеИли вот так

[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.
Если формат таблицы изменится или ваш "показатель" переедет в другую ячейку, достаточно просто изменить эти переменные.

Автор - CaramelManiac
Дата добавления - 05.11.2020 в 13:13
Gold_Barsik Дата: Четверг, 05.11.2020, 17:32 | Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 419
Репутация: 6 ±
Замечаний: 0% ±

2003
CaramelManiac, я скопировал, вставил в модуль и :-((( (что первый вариант, что второй). Что не так я сделал?
 
Ответить
СообщениеCaramelManiac, я скопировал, вставил в модуль и :-((( (что первый вариант, что второй). Что не так я сделал?

Автор - Gold_Barsik
Дата добавления - 05.11.2020 в 17:32
CaramelManiac Дата: Четверг, 05.11.2020, 19:53 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 16 ±
Замечаний: 0% ±

MS Excel 2003-2019
Сравните с моим файлом. Если все так, нужно взглянуть на Ваш файл.
К сообщению приложен файл: 9746022.xls(115.5 Kb)
 
Ответить
СообщениеСравните с моим файлом. Если все так, нужно взглянуть на Ваш файл.

Автор - CaramelManiac
Дата добавления - 05.11.2020 в 19:53
CaramelManiac Дата: Четверг, 05.11.2020, 20:01 | Сообщение № 10
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 16 ±
Замечаний: 0% ±

MS Excel 2003-2019
А вставили в "Лист1" или в свой (добавленный) модуль? Нужно вставлять в модуль того листа, на котором живет изменяемая ячейка.


Сообщение отредактировал CaramelManiac - Четверг, 05.11.2020, 20:03
 
Ответить
СообщениеА вставили в "Лист1" или в свой (добавленный) модуль? Нужно вставлять в модуль того листа, на котором живет изменяемая ячейка.

Автор - CaramelManiac
Дата добавления - 05.11.2020 в 20:01
Мир MS Excel » Вопросы и решения » Вопросы по Excel » сползание таблицы вниз (Excel-2003) (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

jooble Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!