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

Вход

Регистрация

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

 

= Мир MS Excel/макрос строка с формулами, форматированием, нумерацией и др - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос строка с формулами, форматированием, нумерацией и др (Формулы/Formulas)
макрос строка с формулами, форматированием, нумерацией и др
garbol Дата: Понедельник, 25.10.2021, 12:22 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день. Помогите создать макрос для добавления новой строки по кнопке при условии что новая строка будет появляться в конце большой таблицы, с учетом форматирования (цвета, ширина и т.п.) предыдущих строк, с переносом формул не во всех столбцах, и САМОЕ ВАЖНОЕ что не нашел в нете, порядковые номера в т.ч. с индексами переносились на новую строку с учетом следующего номера нумерации. В примере надеюсь более понятно будет. Сам пытался создать такой макрос, но не сильно силен, уровня не хватает. Благодарю.
К сообщению приложен файл: _____--__..xlsx (47.6 Kb)
 
Ответить
СообщениеДобрый день. Помогите создать макрос для добавления новой строки по кнопке при условии что новая строка будет появляться в конце большой таблицы, с учетом форматирования (цвета, ширина и т.п.) предыдущих строк, с переносом формул не во всех столбцах, и САМОЕ ВАЖНОЕ что не нашел в нете, порядковые номера в т.ч. с индексами переносились на новую строку с учетом следующего номера нумерации. В примере надеюсь более понятно будет. Сам пытался создать такой макрос, но не сильно силен, уровня не хватает. Благодарю.
Автор - garbol
Дата добавления - 25.10.2021 в 12:22
Nic70y Дата: Понедельник, 25.10.2021, 12:45 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub u_426()
    u = Cells(Rows.Count, "a").End(xlUp).Row
    Range("a" & u & ":l" & u).Copy Range("a" & u + 1)
    Range("d" & u + 1 & ":h" & u + 1).ClearContents
    Range("a" & u + 1) = Replace(Replace(Range("a" & u).Value, "\", Mid(1 / 7, 2, 1)) + 1, Mid(1 / 7, 2, 1), "\")
    Range("b" & u + 1) = Range("b" & u) + 1
End Sub
[/vba]
К сообщению приложен файл: 0953907.xlsm (59.1 Kb)

ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Sub u_426()
    u = Cells(Rows.Count, "a").End(xlUp).Row
    Range("a" & u & ":l" & u).Copy Range("a" & u + 1)
    Range("d" & u + 1 & ":h" & u + 1).ClearContents
    Range("a" & u + 1) = Replace(Replace(Range("a" & u).Value, "\", Mid(1 / 7, 2, 1)) + 1, Mid(1 / 7, 2, 1), "\")
    Range("b" & u + 1) = Range("b" & u) + 1
End Sub
[/vba]
Автор - Nic70y
Дата добавления - 25.10.2021 в 12:45
garbol Дата: Понедельник, 25.10.2021, 13:13 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Благодарю. Все работает. Только не учел что 2 столбца нужно добавить слева. Меняю данные по столбцам в макросе, ну что то не так делаю, ошибку выбивает. Хочу этот макрос переделать на другие виды таблиц. Подскажите если можете более подробно по строкам что менять чтобы добавлять столбцы. Благодарю.
 
Ответить
СообщениеБлагодарю. Все работает. Только не учел что 2 столбца нужно добавить слева. Меняю данные по столбцам в макросе, ну что то не так делаю, ошибку выбивает. Хочу этот макрос переделать на другие виды таблиц. Подскажите если можете более подробно по строкам что менять чтобы добавлять столбцы. Благодарю.
Автор - garbol
Дата добавления - 25.10.2021 в 13:13
Nic70y Дата: Понедельник, 25.10.2021, 13:22 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
Цитата Nic70y, 25.10.2021 в 12:45, в сообщении № 2 ()
u = Cells(Rows.Count, "a").End(xlUp).Row
нижняя строка столбца A
Цитата Nic70y, 25.10.2021 в 12:45, в сообщении № 2 ()
Range("a" & u & ":l" & u).Copy
столбцы A:L (нижней строки) копируем
Цитата Nic70y, 25.10.2021 в 12:45, в сообщении № 2 ()
Range("a" & u + 1)
вставляем строкой ниже (+1)
Цитата Nic70y, 25.10.2021 в 12:45, в сообщении № 2 ()
Range("d" & u + 1 & ":h" & u + 1).ClearContents
столбцы D:L стираем (delete)

ЮMoney 41001841029809
 
Ответить
Сообщение
Цитата Nic70y, 25.10.2021 в 12:45, в сообщении № 2 ()
u = Cells(Rows.Count, "a").End(xlUp).Row
нижняя строка столбца A
Цитата Nic70y, 25.10.2021 в 12:45, в сообщении № 2 ()
Range("a" & u & ":l" & u).Copy
столбцы A:L (нижней строки) копируем
Цитата Nic70y, 25.10.2021 в 12:45, в сообщении № 2 ()
Range("a" & u + 1)
вставляем строкой ниже (+1)
Цитата Nic70y, 25.10.2021 в 12:45, в сообщении № 2 ()
Range("d" & u + 1 & ":h" & u + 1).ClearContents
столбцы D:L стираем (delete)
Автор - Nic70y
Дата добавления - 25.10.2021 в 13:22
garbol Дата: Понедельник, 25.10.2021, 14:15 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Цитата Nic70y, 25.10.2021 в 12:45, в сообщении № 2 ()
К сообщению приложен файл: 0953907.xlsm(59.1 Kb)

Да в принципе разобрался. Еще подскажите если можно, самая последняя строка, это итого: как подправить макрос чтобы он вставлял новую строку перед итого. благодарю.
К сообщению приложен файл: 9059539.xlsm (21.4 Kb)


Сообщение отредактировал garbol - Понедельник, 25.10.2021, 15:12
 
Ответить
Сообщение
Цитата Nic70y, 25.10.2021 в 12:45, в сообщении № 2 ()
К сообщению приложен файл: 0953907.xlsm(59.1 Kb)

Да в принципе разобрался. Еще подскажите если можно, самая последняя строка, это итого: как подправить макрос чтобы он вставлял новую строку перед итого. благодарю.
Автор - garbol
Дата добавления - 25.10.2021 в 14:15
Nic70y Дата: Понедельник, 25.10.2021, 15:21 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub u_426()
    u = Cells(Rows.Count, "c").End(xlUp).Row
    Rows(u - 2).Insert
    Range("c" & u - 3 & ":n" & u - 3).Copy Range("c" & u - 2)
    Range("f" & u - 2 & ":j" & u - 2).ClearContents
    Range("c" & u - 2) = Replace(Replace(Range("c" & u - 3).Value, "\", Mid(1 / 7, 2, 1)) + 1, Mid(1 / 7, 2, 1), "\")
    Range("d" & u - 2) = Range("d" & u - 3) + 1
End Sub
[/vba]

ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Sub u_426()
    u = Cells(Rows.Count, "c").End(xlUp).Row
    Rows(u - 2).Insert
    Range("c" & u - 3 & ":n" & u - 3).Copy Range("c" & u - 2)
    Range("f" & u - 2 & ":j" & u - 2).ClearContents
    Range("c" & u - 2) = Replace(Replace(Range("c" & u - 3).Value, "\", Mid(1 / 7, 2, 1)) + 1, Mid(1 / 7, 2, 1), "\")
    Range("d" & u - 2) = Range("d" & u - 3) + 1
End Sub
[/vba]
Автор - Nic70y
Дата добавления - 25.10.2021 в 15:21
garbol Дата: Понедельник, 25.10.2021, 16:24 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
супер. все работает. благодарю.
 
Ответить
Сообщениесупер. все работает. благодарю.
Автор - garbol
Дата добавления - 25.10.2021 в 16:24
Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос строка с формулами, форматированием, нумерацией и др (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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