| Вопрос: Как доб. кол-во новых строк рав. знач. перем ? | Добавлено: 24.07.06 11:13 |
Автор вопроса:  NewB
|
| Как реализовать в в VBA Exel добаваление определенного кол-ва пустых строк, кол-во должено равняться значению переменной X? |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #1 | Добавлено: 24.07.06 11:54 |
| Так и реализовать. Добавлять пустые строки по одной, пока не X. А как ещё? :roll: | ||
|
Номер ответа: 2 Автор ответа: Незнайка Вопросов: 7 Ответов: 188 |
Профиль | | #2 | Добавлено: 24.07.06 12:28 |
| Или добавить сразу (за раз) несколько строк = Х. Третьего не дано! | ||
|
Номер ответа: 3 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #3 | Добавлено: 24.07.06 13:05 |
|
Напр. так:
Dim i As Long
Dim X As Long X = 6 For i = 1 To X Rows("9:9"  .Select '9 - ном. стр., пер. кот. доб.
Selection.Insert Shift:=xlDown Next i |
||
|
Номер ответа: 4 Автор ответа: НезнайкаВопросов: 7 Ответов: 188 |
Профиль | | #4 | Добавлено: 24.07.06 14:19 |
|
Зачем лишнее, можно просто:
For i = 1 To X
Rows("9:9" .Insert Shift:=xlDown
Next i |
||
Страница: 1 |