powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Кто подскажет как вставить строки через inputbox
5 сообщений из 5, страница 1 из 1
Кто подскажет как вставить строки через inputbox
    #37088976
Подскажите есть ли решение?
Необходимо вставить количество строк на лист через функцию InputBox
т.е. Запускается макрос и на определенном событии открывается окно inputbox, вводим нужное нам число, и соответственно вставляется такое-то кол-во строк.
Спасибо заранее
...
Рейтинг: 0 / 0
Кто подскажет как вставить строки через inputbox
    #37088989
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: Константин Сочи
> Подскажите есть ли решение?


Есть.
Как вариант:
Код: plaintext
Rows("23:" & CStr( 23 +число_введённое_в_InputBox)).Insert Shift:=xlDown


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
Кто подскажет как вставить строки через inputbox
    #37088994
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Игорь Горбонос,

и для красоты еще добавить OnKey на Insert.
...
Рейтинг: 0 / 0
Кто подскажет как вставить строки через inputbox
    #37089963
Спасибо
...
Рейтинг: 0 / 0
Кто подскажет как вставить строки через inputbox
    #37090949
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Константин Сочи,

activecell.resize(inputbox..).entirerow.insert
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Кто подскажет как вставить строки через inputbox
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]