ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Срочно
7 сообщений из 7, страница 1 из 1
Срочно
    #34308741
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Я стал слишком часто вопросы задавать, но я ведь учусь.
А сейчас ещё и очень срочно нужно!

Код: plaintext
1.
2.
3.
4.
 
    openwb.Activate
    Sheets("Внутригруппа ").Select
    Sheets("Внутригруппа ").Activate

В вышепреведённом выражении активируется лист в исходных файлах, но только он бывает в конце с пробелом "Внутригруппа ", а бывает без пробела "Внутригруппа" (херня конечно а куда деваться)
Как сделвать чтобы активировался либо тот либо тот
Я думал может пропустить если ошибка и написать 2 раза алгоритм и для того и для того, но предполагаю, что можно проще

Заранее спасибо!!!
...
Рейтинг: 0 / 0
06.02.2007, 12:02:56
| Ответить | Цитировать | Написать  
Срочно
    #34309142
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
1) а зачем вообще активируется лист - в 99% случаев в VBA это не нужно?
2) если позарез надо активать лист, то зачем и Select и Activate? Одного бы хватило.
3) например так:

Sub test()
On Error Resume Next
Sheets("Внутригруппа ").Select
Sheets("Внутригруппа").Select
On Error GoTo 0
End Sub

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
06.02.2007, 13:18:52
| Ответить | Цитировать | Написать  
Срочно
    #34309242
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Спасибо, работает!
А про селект Select и Activate, ну увидил где-то и делаю на всякий случай, я ведь написал, что только первую неделю начал пробовать облегчать себе и другим жизнь с помощью VBA, больше не буду писать Activate - спасибо.
А вот ещё интересна если бы три варианта названия листа поставить, то что описано выше сработает?
...
Рейтинг: 0 / 0
06.02.2007, 13:40:35
| Ответить | Цитировать | Написать  
Срочно
    #34309281
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
DeggasadСпасибо, работает!
А про селект Select и Activate, ну увидил где-то и делаю на всякий случай, я ведь написал, что только первую неделю начал пробовать облегчать себе и другим жизнь с помощью VBA, больше не буду писать Activate - спасибо.
А вот ещё интересна если бы три варианта названия листа поставить, то что описано выше сработает?

сработает, но если вариантов много, тогда можно так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub test()
    Dim sh As Object
    For Each sh In ThisWorkbook.Sheets
        If UCase(sh.Name) Like "*ВНУТРИГРУППА*" Then
            sh.Select
            Exit For
        End If
    Next sh
End Sub

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
06.02.2007, 13:49:39
| Ответить | Цитировать | Написать  
Срочно
    #34309337
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
KL (XL)

сработает, но если вариантов много, тогда можно так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub test()
    Dim sh As Object
    For Each sh In ThisWorkbook.Sheets
        If UCase(sh.Name) Like "*ВНУТРИГРУППА*" Then
            sh.Select
            Exit For
        End If
    Next sh
End Sub

KL
[MVP - Microsoft Excel]

Но это так понимаю, если лист один, а у меня лист есть и тот и тот, но нужно в первую очередь проверить если с пробелом есть, то брать его, если нет то следующие! Просто там остальные листы скрыты и запаролены, пароля я не знаю, открыт всегда один, но не всегда один и тот же лист!
...
Рейтинг: 0 / 0
06.02.2007, 14:00:48
| Ответить | Цитировать | Написать  
Срочно
    #34309858
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
DeggasadНо это так понимаю, если лист один, а у меня лист есть и тот и тот, но нужно в первую очередь проверить если с пробелом есть, то брать его, если нет то следующие! Просто там остальные листы скрыты и запаролены, пароля я не знаю, открыт всегда один, но не всегда один и тот же лист!

Если всегда открыт один лист, а другие скрыты, запаролены и с ними ничего делать не надо, то этот открытый в любом случае всегда будет активным . Таким образом, совершенно не нужно обращаться к нему по имени, а можно просто: ActiveSheet. И конечно же отпадают все Activate и Select .



KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
06.02.2007, 16:11:09
| Ответить | Цитировать | Написать  
Срочно
    #34310740
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
KL (XL) DeggasadНо это так понимаю, если лист один, а у меня лист есть и тот и тот, но нужно в первую очередь проверить если с пробелом есть, то брать его, если нет то следующие! Просто там остальные листы скрыты и запаролены, пароля я не знаю, открыт всегда один, но не всегда один и тот же лист!

Если всегда открыт один лист, а другие скрыты, запаролены и с ними ничего делать не надо, то этот открытый в любом случае всегда будет активным . Таким образом, совершенно не нужно обращаться к нему по имени, а можно просто: ActiveSheet. И конечно же отпадают все Activate и Select .



KL
[MVP - Microsoft Excel]
Запаролены остальные, которые содержат слово Внутригруппа, а так листов много разных
...
Рейтинг: 0 / 0
06.02.2007, 21:48:41
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Срочно
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=296&tid=2183493]:
 0ms
get settings:
 6ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 83ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 199ms
total:  345ms
созд. / загр.: 345ms
x
x
Закрыть


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