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

Вход

Регистрация

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

 

= Мир MS Excel/Вставка ячейки со сдвигом вниз - для последней заполненной - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка ячейки со сдвигом вниз - для последней заполненной (Макросы/Sub)
Вставка ячейки со сдвигом вниз - для последней заполненной
ВасилисаЛукьянчикова Дата: Воскресенье, 10.06.2018, 20:41 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый вечер.
Есть такой вопрос.

Имеется лист, на котором три таблицы.
Подскажите - как для средней таблицы G:H произвести вставку "ячейки со сдвигом вниз" - на три строки вниз ?
При этом процессе - картинки также сдвигаются вниз.

Но тут дело в том, что сдвигание должно происходить начиная с последней заполненной строки столбца G.
То есть - для примера - последняя заполненная строка - это G13:H13
К сообщению приложен файл: 7916361.xls (48.5 Kb)
 
Ответить
СообщениеДобрый вечер.
Есть такой вопрос.

Имеется лист, на котором три таблицы.
Подскажите - как для средней таблицы G:H произвести вставку "ячейки со сдвигом вниз" - на три строки вниз ?
При этом процессе - картинки также сдвигаются вниз.

Но тут дело в том, что сдвигание должно происходить начиная с последней заполненной строки столбца G.
То есть - для примера - последняя заполненная строка - это G13:H13
Автор - ВасилисаЛукьянчикова
Дата добавления - 10.06.2018 в 20:41
Kuzmich Дата: Воскресенье, 10.06.2018, 21:31 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 714
Репутация: 157 ±
Замечаний: 0% ±

Excel 2003
Цитата
При этом процессе - картинки также сдвигаются вниз

В свойствах рисунков поставьте галочку - не перемещать и не изменять размеры
 
Ответить
Сообщение
Цитата
При этом процессе - картинки также сдвигаются вниз

В свойствах рисунков поставьте галочку - не перемещать и не изменять размеры
Автор - Kuzmich
Дата добавления - 10.06.2018 в 21:31
ВасилисаЛукьянчикова Дата: Понедельник, 11.06.2018, 09:12 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Kuzmich, так они вообще-то они и должны сдвигаться.

Вопрос - как для средней таблицы G:H произвести вставку "ячейки со сдвигом вниз" - на три строки вниз (начиная с последней заполненной строки столбца G) ?
 
Ответить
СообщениеKuzmich, так они вообще-то они и должны сдвигаться.

Вопрос - как для средней таблицы G:H произвести вставку "ячейки со сдвигом вниз" - на три строки вниз (начиная с последней заполненной строки столбца G) ?
Автор - ВасилисаЛукьянчикова
Дата добавления - 11.06.2018 в 09:12
RAN Дата: Понедельник, 11.06.2018, 09:44 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
ВасилисаЛукьянчикова, у вас макрорекордер за неуплату отключили?

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеВасилисаЛукьянчикова, у вас макрорекордер за неуплату отключили?
Автор - RAN
Дата добавления - 11.06.2018 в 09:44
ВасилисаЛукьянчикова Дата: Понедельник, 11.06.2018, 11:47 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
RAN, макрорекордер не определяет последнюю заполненную строку в таблице G:H
Вопрос звучит так: как для средней таблицы G:H произвести вставку "ячейки со сдвигом вниз" - на три строки вниз (начиная с последней заполненной строки столбца G) ?

Еще раз: "начиная с последней заполненной строки столбца G "
 
Ответить
СообщениеRAN, макрорекордер не определяет последнюю заполненную строку в таблице G:H
Вопрос звучит так: как для средней таблицы G:H произвести вставку "ячейки со сдвигом вниз" - на три строки вниз (начиная с последней заполненной строки столбца G) ?

Еще раз: "начиная с последней заполненной строки столбца G "
Автор - ВасилисаЛукьянчикова
Дата добавления - 11.06.2018 в 11:47
RAN Дата: Понедельник, 11.06.2018, 12:47 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
А так?

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеА так?
Автор - RAN
Дата добавления - 11.06.2018 в 12:47
ВасилисаЛукьянчикова Дата: Понедельник, 11.06.2018, 14:02 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
RAN, не нахожу ответа на свой вопрос.
Идут темы: Перенос последнего заполненного значения, Выбрать последнюю заполненную ячейку и отобразить ее значение, Отображение ФИО последнего заполнившего отчет Менеджера, копирования и вставка данных из последних заполненных ячеек.

У меня вопрос звучит по-другому:
Как для средней таблицы G:H произвести вставку "ячейки со сдвигом вниз" - на три строки вниз (начиная с последней заполненной строки столбца G) ?
 
Ответить
СообщениеRAN, не нахожу ответа на свой вопрос.
Идут темы: Перенос последнего заполненного значения, Выбрать последнюю заполненную ячейку и отобразить ее значение, Отображение ФИО последнего заполнившего отчет Менеджера, копирования и вставка данных из последних заполненных ячеек.

У меня вопрос звучит по-другому:
Как для средней таблицы G:H произвести вставку "ячейки со сдвигом вниз" - на три строки вниз (начиная с последней заполненной строки столбца G) ?
Автор - ВасилисаЛукьянчикова
Дата добавления - 11.06.2018 в 14:02
boa Дата: Понедельник, 11.06.2018, 14:09 | Сообщение № 8
Группа: Друзья
Ранг: Ветеран
Сообщений: 559
Репутация: 167 ±
Замечаний: 0% ±

365
[vba]
Код
iRow = Cells(Rows.Count, 7).End(xlUp).Row + 1
Rows(iRow & ":" & iRow + 2).Insert
[/vba]
или так если только для одной таблицы
[vba]
Код
Range("G" & iRow & ":H" & iRow + 2).Insert Shift:=xlDown
[/vba]



Сообщение отредактировал boa - Понедельник, 11.06.2018, 14:12
 
Ответить
Сообщение[vba]
Код
iRow = Cells(Rows.Count, 7).End(xlUp).Row + 1
Rows(iRow & ":" & iRow + 2).Insert
[/vba]
или так если только для одной таблицы
[vba]
Код
Range("G" & iRow & ":H" & iRow + 2).Insert Shift:=xlDown
[/vba]
Автор - boa
Дата добавления - 11.06.2018 в 14:09
ВасилисаЛукьянчикова Дата: Понедельник, 11.06.2018, 14:57 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
boa, первый макрос - сдвигает вообще весь лист (мне нужна только вторая таблица).

Второй макрос - выдает ошибку "Run-time error '1004' Method 'Range' of object '_Global' failed"
 
Ответить
Сообщениеboa, первый макрос - сдвигает вообще весь лист (мне нужна только вторая таблица).

Второй макрос - выдает ошибку "Run-time error '1004' Method 'Range' of object '_Global' failed"
Автор - ВасилисаЛукьянчикова
Дата добавления - 11.06.2018 в 14:57
boa Дата: Понедельник, 11.06.2018, 15:14 | Сообщение № 10
Группа: Друзья
Ранг: Ветеран
Сообщений: 559
Репутация: 167 ±
Замечаний: 0% ±

365
ВасилисаЛукьянчикова,
во втором коде, что бы не повторяться, я опустил первую строку
правильно будет:
[vba]
Код
iRow = Cells(Rows.Count, 7).End(xlUp).Row + 1
Range("G" & iRow & ":H" & iRow + 2).Insert Shift:=xlDown
[/vba]



Сообщение отредактировал boa - Понедельник, 11.06.2018, 21:44
 
Ответить
СообщениеВасилисаЛукьянчикова,
во втором коде, что бы не повторяться, я опустил первую строку
правильно будет:
[vba]
Код
iRow = Cells(Rows.Count, 7).End(xlUp).Row + 1
Range("G" & iRow & ":H" & iRow + 2).Insert Shift:=xlDown
[/vba]
Автор - boa
Дата добавления - 11.06.2018 в 15:14
Kuzmich Дата: Понедельник, 11.06.2018, 15:14 | Сообщение № 11
Группа: Проверенные
Ранг: Ветеран
Сообщений: 714
Репутация: 157 ±
Замечаний: 0% ±

Excel 2003
Цитата
Второй макрос - выдает ошибку

[vba]
Код

Sub iInsertRow()
Dim iRow As Long
  iRow = Cells(Rows.Count, "G").End(xlUp).Row
  Range("G" & iRow & ":H" & iRow + 2).Insert Shift:=xlDown
End Sub
[/vba]
 
Ответить
Сообщение
Цитата
Второй макрос - выдает ошибку

[vba]
Код

Sub iInsertRow()
Dim iRow As Long
  iRow = Cells(Rows.Count, "G").End(xlUp).Row
  Range("G" & iRow & ":H" & iRow + 2).Insert Shift:=xlDown
End Sub
[/vba]
Автор - Kuzmich
Дата добавления - 11.06.2018 в 15:14
boa Дата: Понедельник, 11.06.2018, 15:19 | Сообщение № 12
Группа: Друзья
Ранг: Ветеран
Сообщений: 559
Репутация: 167 ±
Замечаний: 0% ±

365
Kuzmich, правильно, только +1 забыли. последняя строка уедет ;)

 
Ответить
СообщениеKuzmich, правильно, только +1 забыли. последняя строка уедет ;)
Автор - boa
Дата добавления - 11.06.2018 в 15:19
Kuzmich Дата: Понедельник, 11.06.2018, 15:22 | Сообщение № 13
Группа: Проверенные
Ранг: Ветеран
Сообщений: 714
Репутация: 157 ±
Замечаний: 0% ±

Excel 2003
boa ТС писала
Цитата
на три строки вниз (начиная с последней заполненной строки столбца G) ?
 
Ответить
Сообщениеboa ТС писала
Цитата
на три строки вниз (начиная с последней заполненной строки столбца G) ?
Автор - Kuzmich
Дата добавления - 11.06.2018 в 15:22
ВасилисаЛукьянчикова Дата: Понедельник, 11.06.2018, 15:52 | Сообщение № 14
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Теперь все работает. Спасибо за ответы.
 
Ответить
СообщениеТеперь все работает. Спасибо за ответы.
Автор - ВасилисаЛукьянчикова
Дата добавления - 11.06.2018 в 15:52
Gold_Barsik Дата: Воскресенье, 16.06.2019, 21:14 | Сообщение № 15
Группа: Проверенные
Ранг: Обитатель
Сообщений: 459
Репутация: 6 ±
Замечаний: 0% ±

2003
Подскажите а в 2003 почему макрос boa не работает?


Сообщение отредактировал Gold_Barsik - Воскресенье, 16.06.2019, 21:16
 
Ответить
СообщениеПодскажите а в 2003 почему макрос boa не работает?
Автор - Gold_Barsik
Дата добавления - 16.06.2019 в 21:14
RAN Дата: Воскресенье, 16.06.2019, 21:39 | Сообщение № 16
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Не верьте тому, кто вам это сказал.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеНе верьте тому, кто вам это сказал.
Автор - RAN
Дата добавления - 16.06.2019 в 21:39
Gold_Barsik Дата: Воскресенье, 16.06.2019, 22:29 | Сообщение № 17
Группа: Проверенные
Ранг: Обитатель
Сообщений: 459
Репутация: 6 ±
Замечаний: 0% ±

2003
Пытаюсь вставить данный макрос, а результат 0!
 
Ответить
СообщениеПытаюсь вставить данный макрос, а результат 0!
Автор - Gold_Barsik
Дата добавления - 16.06.2019 в 22:29
_Boroda_ Дата: Понедельник, 17.06.2019, 09:39 | Сообщение № 18
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Кого из нас Вы пригласите в гости посмотреть Ваш файл? :)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеКого из нас Вы пригласите в гости посмотреть Ваш файл? :)
Автор - _Boroda_
Дата добавления - 17.06.2019 в 09:39
Gold_Barsik Дата: Понедельник, 17.06.2019, 12:00 | Сообщение № 19
Группа: Проверенные
Ранг: Обитатель
Сообщений: 459
Репутация: 6 ±
Замечаний: 0% ±

2003
Приглашаю!! Посмотрите пожалуйста мой файл. _Boroda_, мне прочиталось что здесь мой случай (почти мой).

"Как для (таблицы 1) ячеек B4:C4 после ввода данных произвести вставку "ячеек со сдвигом вниз" - на одну строку вниз".

Нужно чтобы после внесения показаний в ячейки B4 и C4 (белый фон) после нажатия Enter эти ячейки (B4;C4) сползали бы вниз на B5 и C5 (жёлтый фон) как использованные. А ячейки B4 и C4 становились бы очищенными с белым фоном.

И ещё, уважаемый _Boroda_, в предыдущей теме у меня возник вопроооосик. Не могли бы его там прокомментировать My WebPage
К сообщению приложен файл: _2.xls (34.0 Kb)


Сообщение отредактировал Gold_Barsik - Понедельник, 17.06.2019, 12:17
 
Ответить
СообщениеПриглашаю!! Посмотрите пожалуйста мой файл. _Boroda_, мне прочиталось что здесь мой случай (почти мой).

"Как для (таблицы 1) ячеек B4:C4 после ввода данных произвести вставку "ячеек со сдвигом вниз" - на одну строку вниз".

Нужно чтобы после внесения показаний в ячейки B4 и C4 (белый фон) после нажатия Enter эти ячейки (B4;C4) сползали бы вниз на B5 и C5 (жёлтый фон) как использованные. А ячейки B4 и C4 становились бы очищенными с белым фоном.

И ещё, уважаемый _Boroda_, в предыдущей теме у меня возник вопроооосик. Не могли бы его там прокомментировать My WebPage
Автор - Gold_Barsik
Дата добавления - 17.06.2019 в 12:00
_Boroda_ Дата: Понедельник, 17.06.2019, 13:29 | Сообщение № 20
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Не, файлы разные, макросы разные, хотелки тоже разные. Создавайте свою тему. Эту закрываю
Предыдущую тему прокомментировал http://www.excelworld.ru/forum/2-42130-279697-16-1560766927

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеНе, файлы разные, макросы разные, хотелки тоже разные. Создавайте свою тему. Эту закрываю
Предыдущую тему прокомментировал http://www.excelworld.ru/forum/2-42130-279697-16-1560766927
Автор - _Boroda_
Дата добавления - 17.06.2019 в 13:29
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка ячейки со сдвигом вниз - для последней заполненной (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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