Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / вроде простенький макрос в Excel / 5 сообщений из 5, страница 1 из 1
27.09.2006, 10:52:47
    #34014788
natata
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вроде простенький макрос в Excel
Помогите, плз новичку.
Надо написать макрос, с помощью которого:
1. Найти слово"итого" (именно найти его т.к оно может оказаться совсем не в 25 строке, но всегда в столбце С)
2. Выше слова "итого"вставить 2 пустые строчки
3. Скопировать 13 и 14 строчки в эти пустые.
4. Скрыть строки с 11 по 18.
...
Рейтинг: 0 / 0
27.09.2006, 11:17:14
    #34014916
sebastian_opereiro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вроде простенький макрос в Excel
macrosSub macro1()
Dim i As Integer
Cells.Find(What:="Итого", LookAt:=xlPart).Activate
i = ActiveCell.Row
Rows(i + 1 & ":" & i).Insert Shift:=xlDown

Rows("13").Copy
Rows(i).Select
ActiveSheet.Paste
Rows("14").Copy
Rows(i + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False

Rows("11:18").EntireRow.Hidden = True
End Sub
...
Рейтинг: 0 / 0
27.09.2006, 11:21:24
    #34014936
Dimasic
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вроде простенький макрос в Excel
Можно циклом по столбцу на поиск значения в ячейке, после того как нашли - стандартная процедура
...
Рейтинг: 0 / 0
27.09.2006, 11:29:53
    #34014974
sebastian_opereiro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вроде простенький макрос в Excel
Если слово "Итого" встречается один раз, то имхо find'ом будет быстрее.
...
Рейтинг: 0 / 0
27.09.2006, 14:10:01
    #34015816
natata
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вроде простенький макрос в Excel
Спасибо, все работает!
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / вроде простенький макрос в Excel / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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