ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как вставить сразу кучу строк?
23 сообщений из 23, страница 1 из 1
Как вставить сразу кучу строк?
    #34336771
srxp1154
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
srxp1154
Гость
Всем привет.

Вопрос простой - какой код будет для того чтобы вставить, например, 50 строк в Экселе?
Можно конечно 50 раз вставить строчку
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
...
...
А по короче?
...
Рейтинг: 0 / 0
16.02.2007, 15:05:30
| Ответить | Цитировать | Написать  
Как вставить сразу кучу строк?
    #34336797
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Например
...
Рейтинг: 0 / 0
16.02.2007, 15:12:43
| Ответить | Цитировать | Написать  
Как вставить сразу кучу строк?
    #34336798
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Ещё одна попытка

Код: plaintext
Rows("1:50").Insert
...
Рейтинг: 0 / 0
16.02.2007, 15:13:06
| Ответить | Цитировать | Написать  
Как вставить сразу кучу строк?
    #34336808
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Код: plaintext
Range(Cells( 1 ,  1 ), Cells( 50 ,  1 )).EntireRow.Insert
...
Рейтинг: 0 / 0
16.02.2007, 15:16:24
| Ответить | Цитировать | Написать  
Как вставить сразу кучу строк?
    #34336816
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
Сначала делаешь активной ту ячейку(строку), с которой нужно добавить необходимое кол-во строк, потом этод код

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim stroka1 As Integer
Dim st As Integer
firstAddress = ActiveCell.Address(RowAbsolute:=False)

stroka1 = Mid(firstAddress,  3 )
st = InputBox("Сколько добавить строк?")

adr = stroka1 & ":" & stroka1 + st -  1 
Rows(adr).Insert Shift:=xlDown
...
Рейтинг: 0 / 0
16.02.2007, 15:19:22
| Ответить | Цитировать | Написать  
Как вставить сразу кучу строк?
    #34336817
srxp1154
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
srxp1154
Гость
Не, не совсем то. Мне надо, чтобы 50 строк вставлялись не вначало страницы, а туда, где стоит курсор, как правило, это бывает внутри таблицы.
...
Рейтинг: 0 / 0
16.02.2007, 15:19:42
| Ответить | Цитировать | Написать  
Как вставить сразу кучу строк?
    #34336827
srxp1154
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
srxp1154
Гость
srxp1154Не, не совсем то. Мне надо, чтобы 50 строк вставлялись не вначало страницы, а туда, где стоит курсор, как правило, это бывает внутри таблицы.

Пока писал, уже новые варианты появились, щас остальные проверю.
...
Рейтинг: 0 / 0
16.02.2007, 15:21:11
| Ответить | Цитировать | Написать  
Как вставить сразу кучу строк?
    #34336856
srxp1154
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
srxp1154
Гость
andMegaMСначала делаешь активной ту ячейку(строку), с которой нужно добавить необходимое кол-во строк, потом этод код

То что надо, даже лучше.

Спасибо!
...
Рейтинг: 0 / 0
16.02.2007, 15:26:44
| Ответить | Цитировать | Написать  
Как вставить сразу кучу строк?
    #34336865
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
srxp1154 andMegaMСначала делаешь активной ту ячейку(строку), с которой нужно добавить необходимое кол-во строк, потом этод код

То что надо, даже лучше.

Спасибо!

Пожалуйста... Обращайся если чё
...
Рейтинг: 0 / 0
16.02.2007, 15:28:48
| Ответить | Цитировать | Написать  
Как вставить сразу кучу строк?
    #34336880
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
srxp1154Не, не совсем то. Мне надо, чтобы 50 строк вставлялись не вначало страницы, а туда, где стоит курсор, как правило, это бывает внутри таблицы.

Код: plaintext
1.
2.
3.
Sub sad()
x = ActiveCell.Row
Range(Cells(x,  1 ), Cells(x +  50 ,  1 )).EntireRow.Insert
End Sub

Ну тогда так!
...
Рейтинг: 0 / 0
16.02.2007, 15:30:32
| Ответить | Цитировать | Написать  
Как вставить сразу кучу строк?
    #34336902
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
Deggasad srxp1154Не, не совсем то. Мне надо, чтобы 50 строк вставлялись не вначало страницы, а туда, где стоит курсор, как правило, это бывает внутри таблицы.

Код: plaintext
1.
2.
3.
Sub sad()
x = ActiveCell.Row
Range(Cells(x,  1 ), Cells(x +  50 ,  1 )).EntireRow.Insert
End Sub

Ну тогда так!

Код: plaintext
1.
2.
3.
4.
5.
Sub CEL1()
Dim stroka As Integer
stroka = InputBox("Сколько строк добавить?")
x = ActiveCell.Row
Range(Cells(x,  1 ), Cells(x + stroka -  1 ,  1 )).EntireRow.Insert
End Sub
...
Рейтинг: 0 / 0
16.02.2007, 15:35:23
| Ответить | Цитировать | Написать  
Как вставить сразу кучу строк?
    #34336934
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
andMegaM Deggasad srxp1154Не, не совсем то. Мне надо, чтобы 50 строк вставлялись не вначало страницы, а туда, где стоит курсор, как правило, это бывает внутри таблицы.

Код: plaintext
1.
2.
3.
Sub sad()
x = ActiveCell.Row
Range(Cells(x,  1 ), Cells(x +  50 ,  1 )).EntireRow.Insert
End Sub

Ну тогда так!

Код: plaintext
1.
2.
3.
4.
5.
Sub CEL1()
Dim stroka As Integer
stroka = InputBox("Сколько строк добавить?")
x = ActiveCell.Row
Range(Cells(x,  1 ), Cells(x + stroka -  1 ,  1 )).EntireRow.Insert
End Sub

думал тоже добавить, но лень стало
...
Рейтинг: 0 / 0
16.02.2007, 15:42:27
| Ответить | Цитировать | Написать  
Как вставить сразу кучу строк?
    #34336938
srxp1154
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
srxp1154
Гость
Во как!
Объединив две идеи, получилось простое и универсальное решение вопроса.

Благодарствую.
...
Рейтинг: 0 / 0
16.02.2007, 15:43:55
| Ответить | Цитировать | Написать  
Как вставить сразу кучу строк?
    #34336995
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Deggasadдумал тоже добавить, но лень стало
Виноват
...
Рейтинг: 0 / 0
16.02.2007, 15:58:05
| Ответить | Цитировать | Написать  
Как вставить сразу кучу строк?
    #34336998
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Deggasad Deggasadдумал тоже добавить, но лень стало
Виноват
каюсь
...
Рейтинг: 0 / 0
16.02.2007, 15:58:26
| Ответить | Цитировать | Написать  
Как вставить сразу кучу строк?
    #34337122
srxp1154
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
srxp1154
Гость
А вот при всем при этом, когда в InputBox нажать на CANCEL , то выскакивает ошибка.
Как бы её искоренить?
...
Рейтинг: 0 / 0
16.02.2007, 16:25:59
| Ответить | Цитировать | Написать  
Как вставить сразу кучу строк?
    #34337252
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
srxp1154А вот при всем при этом, когда в InputBox нажать на CANCEL , то выскакивает ошибка.
Как бы её искоренить?
А что должно происходить, когда нажимаешь CANCEL?
...
Рейтинг: 0 / 0
16.02.2007, 16:57:59
| Ответить | Цитировать | Написать  
Как вставить сразу кучу строк?
    #34337343
srxp1154
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
srxp1154
Гость
Я так полагаю просто закрыть inputBox и не вставлять строки. Ну передумал я вставлять строки и нажал Cancel, например.
...
Рейтинг: 0 / 0
16.02.2007, 17:17:20
| Ответить | Цитировать | Написать  
Как вставить сразу кучу строк?
    #34337434
lena_####
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lena_####
Участник
srxp1154

Можно перехватить и обработать ошибку, а можно просто сделать так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub CEL1()
  Dim stroka As Variant
  stroka = InputBox("Сколько строк добавить?")
    If StrPtr(stroka) =  0  Then
     MsgBox "Нажали Cancel!"
     Exit Sub
  Else
    x = ActiveCell.Row
    Range(Cells(x,  1 ), Cells(x + CInt(stroka) -  1 ,  1 )).EntireRow.Insert
  End If
End Sub
...
Рейтинг: 0 / 0
16.02.2007, 17:48:54
| Ответить | Цитировать | Написать  
Как вставить сразу кучу строк?
    #34337451
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub sad()
Dim y As Integer
y = Application.InputBox("Сколько строк добавить?")
  If y = False Then
     MsgBox "Операция отменена"
    End
  End If
x = ActiveCell.Row
Range(Cells(x,  1 ), Cells(x + y -  1 ,  1 )).EntireRow.Insert
End Sub

или так
...
Рейтинг: 0 / 0
16.02.2007, 17:52:58
| Ответить | Цитировать | Написать  
Как вставить сразу кучу строк?
    #34337459
srxp1154
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
srxp1154
Гость
Всем большое спасибо за содействие. Теперь все работает как надо!
...
Рейтинг: 0 / 0
16.02.2007, 17:55:30
| Ответить | Цитировать | Написать  
Как вставить сразу кучу строк?
    #34337469
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
lena_#### srxp1154

Можно перехватить и обработать ошибку, а можно просто сделать так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub CEL1()
  Dim stroka As Variant
  stroka = InputBox("Сколько строк добавить?")
    If StrPtr(stroka) =  0  Then
     MsgBox "Нажали Cancel!"
     Exit Sub
  Else
    x = ActiveCell.Row
    Range(Cells(x,  1 ), Cells(x + CInt(stroka) -  1 ,  1 )).EntireRow.Insert
  End If
End Sub


lena_#### А можно спросить, что такое
Код: plaintext
StrPtr(stroka)
?
...
Рейтинг: 0 / 0
16.02.2007, 18:00:09
| Ответить | Цитировать | Написать  
Как вставить сразу кучу строк?
    #34337499
lena_####
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lena_####
Участник
функция StrPrt возвращает четырехбайтовый адрес (фактически указатель) содержимого строки
...
Рейтинг: 0 / 0
16.02.2007, 18:08:31
| Ответить | Цитировать | Написать  
23 сообщений из 23, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как вставить сразу кучу строк?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34336938&tid=2183430]:
 0ms
get settings:
 10ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 73ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 58ms
get tp. blocked users:
 1ms
others: 248ms
total:  432ms
созд. / загр.: 432ms
x
x
Закрыть


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