Доброго времени суток, нужно создать таблицу в которой бы добавлялись столбцы в зависимости от количества строк, и автоматичесски переносиись данные из первой ячейки строки, к примеру, по принциыпу таблиц «морского боя», только по горизонтали и вертикали данные одинаковые, и при добавлении строк, добавлялся столбец. Вот пример таблицы, нужно чтобы при добавлении строки к приперу «3» автоматически добавлялся столбец с такими зе данными (тоесть «3»), а столбец «сумма» смещался вправо.
Доброго времени суток, нужно создать таблицу в которой бы добавлялись столбцы в зависимости от количества строк, и автоматичесски переносиись данные из первой ячейки строки, к примеру, по принциыпу таблиц «морского боя», только по горизонтали и вертикали данные одинаковые, и при добавлении строк, добавлялся столбец. Вот пример таблицы, нужно чтобы при добавлении строки к приперу «3» автоматически добавлялся столбец с такими зе данными (тоесть «3»), а столбец «сумма» смещался вправо.Why5o5erious
- Прочитайте Правила форума - Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форума
- Прочитайте Правила форума - Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форумакитин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Вот пример таблицы, нужно чтобы при добавлении строки к приперу «3» автоматически добавлялся столбец с такими зе данными (тоесть «3»), а столбец «сумма» смещался вправо.
Вот пример таблицы, нужно чтобы при добавлении строки к приперу «3» автоматически добавлялся столбец с такими зе данными (тоесть «3»), а столбец «сумма» смещался вправо.Why5o5erious
Сообщение отредактировал Why5o5erious - Вторник, 01.12.2020, 10:54
Why5o5erious, Доброго времени суток. По ссылке что вы дали нет файла. Скриншот прилагаю ниже, это то куда вы направили по ссылке. В архиваторе заархивируйте ваш файл и прикрепите его к вашему сообщению.
Why5o5erious, Доброго времени суток. По ссылке что вы дали нет файла. Скриншот прилагаю ниже, это то куда вы направили по ссылке. В архиваторе заархивируйте ваш файл и прикрепите его к вашему сообщению.MikeVol
Private Sub Worksheet_Change(ByVal Target As Range) s = Application.CountA(Range("Таблица1[Столбец1]")) t = Range("Таблица1[Столбец1]").Row x = Range("Таблица1[Столбец1]").Column If Not Intersect(Target, Cells(s + t - 1, x)) Is Nothing Then u = Application.CountA(Range("Таблица1[#Headers]")) Range("Таблица1[[#All],[Сумма]]").ListObject.ListColumns.Add Position:=u a = Target.Value Range("Таблица1[[#Headers],[" & u - 1 & "]]") = a End If End Sub
[/vba]
вдруг правильно [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) s = Application.CountA(Range("Таблица1[Столбец1]")) t = Range("Таблица1[Столбец1]").Row x = Range("Таблица1[Столбец1]").Column If Not Intersect(Target, Cells(s + t - 1, x)) Is Nothing Then u = Application.CountA(Range("Таблица1[#Headers]")) Range("Таблица1[[#All],[Сумма]]").ListObject.ListColumns.Add Position:=u a = Target.Value Range("Таблица1[[#Headers],[" & u - 1 & "]]") = a End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
