![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 01.04.2010
Сообщений: 3
|
![]()
Здравствуйте, хотел попросить помощи в написании простого макроса. Вот последовательность действий которая от него требуется:
1. Удалить строки с 1 по 5 2. Очистить содержимое строк 1, 2 3. Вписать в ячейку A1 "Дата", а в ячейку B1 дату в формате дд.мм.гггг 4. Вписать в ячейку A2 "Номер паспорта" 5. Пройти циклом с ветвлением по столбцу С до тех пор пока в ячейке будет попадаться какое либо содержимое, как только наткнется на пустую ячейку (допустим C133) То удаляет содержимое строк 133-233 (100 строк в общем для надежности) 6. заполнить ячейки T1-T133(тут конечная ячейка выбирается исходя из той которая была в пункте 5) пробелами, причем важно именно не очистить ячейки, а вставить в каждую по пробелу 7. Заполнить ячейки с А133 (опять же конечная строка берется из пункта 5) до Т133 пробелами 8. Ну и сохранить) |
![]() |
![]() |
![]() |
#2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
![]()
Включите запись макросов, и выполните описанные действия.
Получите готовый макрос. |
![]() |
![]() |
![]() |
#3 |
Регистрация: 01.04.2010
Сообщений: 3
|
![]()
А как записать 5 пункт?
|
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 11.06.2010
Сообщений: 108
|
![]()
если после пустой ячейки поиск прекращается, то можно обойтись и без цикла
Код:
-Возьмите лучших их лучщих!
-Лучшие из лучших зализывают раны... -Тогда, возьмите лучших из худших! |
![]() |
![]() |
![]() |
#5 | |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
![]() Цитата:
Rows(Columns(3).End(xlDown).Row + 1 & ":" & Columns(3).End(xlDown).Row + 101).valye= " " Вроде так автор просил...
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
[Макрос] поиск по всему документу с набором действий | Polotenchik | Microsoft Office Word | 4 | 03.04.2010 07:50 |
написать программу которая "сжимает" заданную последовательность | Алиночка))) | Фриланс | 7 | 17.01.2010 18:35 |
Нарисовать заданную фигуру | wdnk | Общие вопросы C/C++ | 6 | 29.05.2009 00:21 |
Вывод сообщение на заданную клавишу | Jonikru | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 10 | 13.03.2009 12:32 |
Дескрипторы потоков - Для каждого элемента списка необходимо создать поток, выполняющий требуемые функции | kdv0403 | Общие вопросы Delphi | 2 | 09.06.2007 11:12 |