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

Вход

Регистрация

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

 

= Мир MS Excel/Автодобавление столбцов в зависимости от количества строк - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автодобавление столбцов в зависимости от количества строк (Формулы/Formulas)
Автодобавление столбцов в зависимости от количества строк
Why5o5erious Дата: Вторник, 01.12.2020, 08:33 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

2013
Доброго времени суток, нужно создать таблицу в которой бы добавлялись столбцы в зависимости от количества строк, и автоматичесски переносиись данные из первой ячейки строки, к примеру, по принциыпу таблиц «морского боя», только по горизонтали и вертикали данные одинаковые, и при добавлении строк, добавлялся столбец.
Вот пример таблицы, нужно чтобы при добавлении строки к приперу «3» автоматически добавлялся столбец с такими зе данными (тоесть «3»), а столбец «сумма» смещался вправо.
К сообщению приложен файл: 5891747.xlsx(12.2 Kb)


Сообщение отредактировал Why5o5erious - Вторник, 01.12.2020, 19:28
 
Ответить
СообщениеДоброго времени суток, нужно создать таблицу в которой бы добавлялись столбцы в зависимости от количества строк, и автоматичесски переносиись данные из первой ячейки строки, к примеру, по принциыпу таблиц «морского боя», только по горизонтали и вертикали данные одинаковые, и при добавлении строк, добавлялся столбец.
Вот пример таблицы, нужно чтобы при добавлении строки к приперу «3» автоматически добавлялся столбец с такими зе данными (тоесть «3»), а столбец «сумма» смещался вправо.

Автор - Why5o5erious
Дата добавления - 01.12.2020 в 08:33
китин Дата: Вторник, 01.12.2020, 08:40 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 6427
Репутация: 985 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
- Прочитайте Правила форума
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форума


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщение- Прочитайте Правила форума
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форума

Автор - китин
Дата добавления - 01.12.2020 в 08:40
Why5o5erious Дата: Вторник, 01.12.2020, 10:46 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

2013
Вот пример таблицы, нужно чтобы при добавлении строки к приперу «3» автоматически добавлялся столбец с такими зе данными (тоесть «3»), а столбец «сумма» смещался вправо.


Сообщение отредактировал Why5o5erious - Вторник, 01.12.2020, 10:54
 
Ответить
СообщениеВот пример таблицы, нужно чтобы при добавлении строки к приперу «3» автоматически добавлялся столбец с такими зе данными (тоесть «3»), а столбец «сумма» смещался вправо.

Автор - Why5o5erious
Дата добавления - 01.12.2020 в 10:46
MikeVol Дата: Вторник, 01.12.2020, 16:06 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 14 ±
Замечаний: 0% ±

Excel 2019
Why5o5erious, Доброго времени суток. По ссылке что вы дали нет файла. Скриншот прилагаю ниже, это то куда вы направили по ссылке.
В архиваторе заархивируйте ваш файл и прикрепите его к вашему сообщению.
К сообщению приложен файл: 5422309.png(70.3 Kb)
 
Ответить
СообщениеWhy5o5erious, Доброго времени суток. По ссылке что вы дали нет файла. Скриншот прилагаю ниже, это то куда вы направили по ссылке.
В архиваторе заархивируйте ваш файл и прикрепите его к вашему сообщению.

Автор - MikeVol
Дата добавления - 01.12.2020 в 16:06
Nic70y Дата: Пятница, 04.12.2020, 09:14 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 6842
Репутация: 1571 ±
Замечаний: 0% ±

Excel 2010
вдруг правильно
[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
[/vba]
К сообщению приложен файл: 5891747.xlsm(19.5 Kb)


ЮMoney(Яндекс Деньги) 41001841029809
 
Ответить
Сообщениевдруг правильно
[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
[/vba]

Автор - Nic70y
Дата добавления - 04.12.2020 в 09:14
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автодобавление столбцов в зависимости от количества строк (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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