|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.03.2009, 21:03 | #1 |
Регистрация: 11.03.2009
Сообщений: 3
|
Вставка строки через n-е количество строк
Возник такой вопрос. У меня есть таблица, сосотоящая из 2000 строк. Мне нужно, чтобы через каждые 37 строк вставлялась 1-я строка таблицы, но при этом существующие строки сдвигались вниз, а не заменялись вставленной!!! Наверное нужно писать какой-то макрос для этого? Или есть какие другие варианты! Если макрос, то объясните по-подробнее, я в этом ужасный делетант. Заранее спасибо...
|
12.03.2009, 04:47 | #2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
В цикле, с указанным шагом, добавляем строку и копируем в нее первую строку. Цикл выполняем до тех пор, пока строка для вставки не пуста.
Код:
Чем шире угол зрения, тем он тупее.
|
12.03.2009, 05:34 | #3 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Цитата:
Если для печати (чтобы на каждом листе была строка заголовка), то всё делается намного проще: Меню Файл - Параметры страницы - вкладка Лист - в подразделе Печатать на каждой странице выбираем для параметра Сквозные строки первую строку (или вводим в это поле значение $1:$1) |
|
12.03.2009, 12:45 | #4 |
Регистрация: 11.03.2009
Сообщений: 3
|
EducatedFool, спасибо большое-мне как раз для печати и нужно было! А проэтот способ от тебя узнал! На будущее пригодится очень!
|
12.03.2009, 13:10 | #5 |
Регистрация: 11.03.2009
Сообщений: 3
|
И еще такой вопрос, если вас не затруднит: как сделать так, чтобы через каждые 10 строк вставлялась пустая строка??? Помогите, оч надо!
|
12.03.2009, 13:20 | #6 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
В код из поста №2 вставить Const Shag = 10, а в цикле оставить только Rows(i).Insert
Чем шире угол зрения, тем он тупее.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Количество строк DBGrid | AndreyF | Общие вопросы Delphi | 4 | 02.12.2008 21:32 |
Вставка пустых строк в FastReport'е | Boatswain | БД в Delphi | 1 | 13.11.2008 14:41 |
ListBox (количество строк) | Vali_T | Помощь студентам | 6 | 06.10.2008 15:30 |
Определение количество символов в строке, и самих строк. | Патрон | Общие вопросы Delphi | 10 | 01.04.2008 12:43 |
количество строк в memo | Albenous | Компоненты Delphi | 4 | 15.01.2007 19:00 |