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

Вход

Регистрация

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

 

= Мир MS Excel/Добавление группы строк с формулами и списком по кнопке. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Добавление группы строк с формулами и списком по кнопке.
ilb29071989 Дата: Воскресенье, 10.07.2022, 10:44 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 20% ±

Здравствуйте интересует как реализовать следующий функционал:
Имеется несколько столбцов и строк, в которых зашиты список и формулы, осуществляющие пересчет на основе выбранного значения из списка.
Необходимо по нажатию по кнопке добавлять ниже такой же блок строк с формулами с очисткой значений второго столбца.
Прошу помочь в решении или хотя бы направить направление где это можно скопировать с доработкой (опытов в макросах нет).
К сообщению приложен файл: 8929267.xlsx (14.4 Kb)
 
Ответить
СообщениеЗдравствуйте интересует как реализовать следующий функционал:
Имеется несколько столбцов и строк, в которых зашиты список и формулы, осуществляющие пересчет на основе выбранного значения из списка.
Необходимо по нажатию по кнопке добавлять ниже такой же блок строк с формулами с очисткой значений второго столбца.
Прошу помочь в решении или хотя бы направить направление где это можно скопировать с доработкой (опытов в макросах нет).

Автор - ilb29071989
Дата добавления - 10.07.2022 в 10:44
RAN Дата: Воскресенье, 10.07.2022, 12:15 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub Мяу()
    Dim lr&
    With ActiveSheet
        lr = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range("A1:C5").Copy .Cells(lr + 1, 1)
        .Cells(lr + 1, 2) = "не выбрано"
    End With
End Sub
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Sub Мяу()
    Dim lr&
    With ActiveSheet
        lr = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range("A1:C5").Copy .Cells(lr + 1, 1)
        .Cells(lr + 1, 2) = "не выбрано"
    End With
End Sub
[/vba]

Автор - RAN
Дата добавления - 10.07.2022 в 12:15
ilb29071989 Дата: Воскресенье, 10.07.2022, 15:33 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 20% ±

Спасибо все получилось!
Но возник вопрос, что делать, если например значение из первого столбца пустое, а формулы заранее прописаны так, что учитывают весь диапазон, например минимум из 6 значений, если заполнить 2 значения, то при добавлении нового блока ячеек, все строки где был пустой столбец обрежутся, и добавиться блок из 8 строк, как можно решить такую задачу?


Сообщение отредактировал Serge_007 - Понедельник, 11.07.2022, 12:52
 
Ответить
СообщениеСпасибо все получилось!
Но возник вопрос, что делать, если например значение из первого столбца пустое, а формулы заранее прописаны так, что учитывают весь диапазон, например минимум из 6 значений, если заполнить 2 значения, то при добавлении нового блока ячеек, все строки где был пустой столбец обрежутся, и добавиться блок из 8 строк, как можно решить такую задачу?

Автор - ilb29071989
Дата добавления - 10.07.2022 в 15:33
  • Страница 1 из 1
  • 1
Поиск:

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