ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Запуск макроса для определенных листов
14 сообщений из 14, страница 1 из 1
Запуск макроса для определенных листов
    #36391700
ffflake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ffflake
Гость
Подскажите плиз, как сделать так чтобы макрос запускался только для определенных листов, т.е. например? для листов, которые начинаются с буквы "A"
...
Рейтинг: 0 / 0
29.12.2009, 12:56
| Ответить | Цитировать | Написать  
Запуск макроса для определенных листов
    #36391750
m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m
Гость
if left(sheets(i).name) = "A" then
...
Рейтинг: 0 / 0
29.12.2009, 13:13
| Ответить | Цитировать | Написать  
Запуск макроса для определенных листов
    #36391902
ffflake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ffflake
Гость
m,

Ругается на left
...
Рейтинг: 0 / 0
29.12.2009, 14:03
| Ответить | Цитировать | Написать  
Запуск макроса для определенных листов
    #36391905
m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m
Гость
Вы бы справку глянули :), так
if left(sheets(i).name,1) = "A" then
...
Рейтинг: 0 / 0
29.12.2009, 14:04
| Ответить | Цитировать | Написать  
Запуск макроса для определенных листов
    #36391928
ffflake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ffflake
Гость
m,

Огромнейшеее спасибо!!!
...
Рейтинг: 0 / 0
29.12.2009, 14:14
| Ответить | Цитировать | Написать  
Запуск макроса для определенных листов
    #36391936
ffflake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ffflake
Гость
ffflake,

Только вот какая проблема, я делаю так

For i = 1 To 3 Step 1
If Left(Sheets(i).Name, 3) = "QIF" Then Application.Run "t.xls!a2_QIF"
Next i

а он все равно обрабатывает только тот лист на котором нахожусь
что я делаю не так
...
Рейтинг: 0 / 0
29.12.2009, 14:16
| Ответить | Цитировать | Написать  
Запуск макроса для определенных листов
    #36392004
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Так это уже в коде того макроса надо смотреть, что бы он обрабатывал не активный лист, а лист с соответствующим именем или порядковым номером.
...
Рейтинг: 0 / 0
29.12.2009, 14:37
| Ответить | Цитировать | Написать  
Запуск макроса для определенных листов
    #36392015
ffflake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ffflake
Гость
Hugo121,

внесла изменения
For i = 1 To 5 Step 1
If Left(Sheets(i).Name, 3) = "QIF" Then Sheets(i).Select
Application.Run "t.xls!a2_QIF"
Next i

становится на тот лист который нужно, но обрабатывает столько раз сколько указываю в цикле, как показать что нужно обрабатывать только тот на котором стоит, ну т.е. какой активный
...
Рейтинг: 0 / 0
29.12.2009, 14:41
| Ответить | Цитировать | Написать  
Запуск макроса для определенных листов
    #36392035
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Код: plaintext
1.
2.
3.
4.
For i =  1  To  5  Step  1 
If Left(Sheets(i).Name,  3 ) = "QIF" Then Sheets(i).Select : Sheets(i).Activate
Application.Run "t.xls!a2_QIF"
Next i
Так попробуйте.
...
Рейтинг: 0 / 0
29.12.2009, 14:48
| Ответить | Цитировать | Написать  
Запуск макроса для определенных листов
    #36392041
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Поправка:
Код: plaintext
1.
2.
3.
4.
For i =  1  To  5  Step  1 
If Left(Sheets(i).Name,  3 ) = "QIF" Then Sheets(i).Select : Sheets(i).Activate: Application.Run "t.xls!a2_QIF"
Next i
Хотя теперь активировать может и не надо... не помню.
...
Рейтинг: 0 / 0
29.12.2009, 14:50
| Ответить | Цитировать | Написать  
Запуск макроса для определенных листов
    #36392084
ffflake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ffflake
Гость
Hugo121,

Супер, шикарно получается, спасибо большое!!!
...
Рейтинг: 0 / 0
29.12.2009, 15:04
| Ответить | Цитировать | Написать  
Запуск макроса для определенных листов
    #36392121
m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m
Гость
авторХотя теперь активировать может и не надо... не помню.
я тоже думаю что не надо :)...
по-моему разница в методах select и activate в том, что когда выделена группа листов первый снимает выделение с группы а второй нет. вероятно, когда группа не выделена их действия одинаковые.

Вопрос:
Зачем здесь
Код: plaintext
For i =  1  To  5  Step  1
указывать Step 1 ?
...
Рейтинг: 0 / 0
29.12.2009, 15:15
| Ответить | Цитировать | Написать  
Запуск макроса для определенных листов
    #36392130
ffflake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ffflake
Гость
m,

вобщем-то естественно step 1 естественно не нужнен, просто до этого делала другой цикл где указывала шаг -1, не убрала, не убрала
...
Рейтинг: 0 / 0
29.12.2009, 15:19
| Ответить | Цитировать | Написать  
Запуск макроса для определенных листов
    #36392278
m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m
Гость
ясно, просто спросил... :)
...
Рейтинг: 0 / 0
29.12.2009, 16:00
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Запуск макроса для определенных листов
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36392084&tid=2178652]:
 0ms
get settings:
 9ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 227ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 250ms
total:  562ms
созд. / загр.: 562ms
x
x
Закрыть


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