Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Xrustik
0 / 0 / 0
Регистрация: 02.06.2015
Сообщений: 15
#1

Как вставить N строк ниже активной ячейки (N вводится по через inputbox)

07.06.2015, 11:18. Просмотров 957. Ответов 6
Метки нет (Все метки)

Помогите пожалуйста
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.06.2015, 11:18
Ответы с готовыми решениями:

В ComboBox вставить значение активной ячейки
Вопрос такой. Не известно какой комбо имеет фокус на форме, но нужно в...

Вставить значения в формулу через inputbox
Здравствуйте, подскажите как с помощью InputBox ввести значение в формулу...

Изменение значения фиксированной ячейки в зависимости от активной ячейки
Добрый день. Помогите пожалуйста написать макрос так, чтобы при изменении...

Как найти координаты активной ячейки в таблице в Word
Добрый вечер, уважаемые форумчане! возникла проблема. В Экселе найти...

Как узнать номер строки для активной ячейки?
Как узнать номер строки для активной ячейки? спасибо

6
ikki
призрак
2823 / 879 / 118
Регистрация: 11.05.2012
Сообщений: 1,702
Записей в блоге: 2
07.06.2015, 11:25 #2
Лучший ответ Сообщение было отмечено Xrustik как решение

Решение

Visual Basic
1
2
3
Sub t()
  ActiveCell.Offset(1).Resize(--InputBox("rows")).EntireRow.Insert
End Sub
2
Xrustik
0 / 0 / 0
Регистрация: 02.06.2015
Сообщений: 15
07.06.2015, 11:37  [ТС] #3
Оперативно, спасибо)
0
pashulka
2400 / 1223 / 498
Регистрация: 01.12.2010
Сообщений: 2,475
07.06.2015, 11:55 #4
В Excel есть ещё собственный InputBox возможности которого несколько шире. Более подробную информацию можно найти в справке, от себя лишь добавлю пример, который позволяет вводить только числа
( или формулы, возвращающие числа, типа =10+5 или =ABS(-10 ) )

Visual Basic
1
MsgBox Application.InputBox("Введите количество строк", Type:=1)
3
Xrustik
0 / 0 / 0
Регистрация: 02.06.2015
Сообщений: 15
07.06.2015, 12:45  [ТС] #5
А можно усовершенствовать код немного ? Чтобы нужное количество ячеек вставлялось после последней заполненной ячейки?
0
ikki
призрак
2823 / 879 / 118
Регистрация: 11.05.2012
Сообщений: 1,702
Записей в блоге: 2
07.06.2015, 12:48 #6
любопытно - зачем?
если ячейка последняя - то после нее и так пустые строки.
зачем вставлять перед этими пустыми другие пустые?
0
Xrustik
0 / 0 / 0
Регистрация: 02.06.2015
Сообщений: 15
07.06.2015, 15:10  [ТС] #7
да, вы правы, неправильно сформулировал. не после, а до последней заполненной ячейки.
0
07.06.2015, 15:10
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.06.2015, 15:10

Как можно узнать backcolor (цвет заливки) для активной ячейки
ActiveCell.BackColor - так не работает, а еще как можно?

Как сохранить в переменную адрес активной ячейки, а затем эту ячейку выделить?
Физический смысл такой: Когда пользователь клацает по листочкам, активируется...

Как указать Range через Inputbox
Добрый день! у меня в макросе (Excel 2007) есть строка с заданным диапазоном:...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru