Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Активация листа / 8 сообщений из 8, страница 1 из 1
17.08.2005, 13:41:25
    #33220517
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активация листа
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Cancel = False
yesno = MsgBox("Произвести запись в ЖУРНАЛ ?", 1)
If yesno = 2 Then GoTo mend
Dim wbPere4en As Workbook
For Each w In Workbooks ' проверяем открыт файл Журнал.xls или нет
w.Activate
If w.Name = "Журнал.xls" Then
Exit For
End If
Next w
If ActiveWorkbook.Name = "Журнал.xls" Then ' Если открыт то
Set wbPere4en = Workbooks("Журнал.xls")
GoTo L1
Else 'Если Не открыт то открываем
Set wbPere4en = Workbooks.Open("Журнал.xls")
GoTo L1
End If

L1:
Worksheets("Лист1").Activate

Кто знает почему ругается на активацию листа
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.08.2005, 17:01:15
    #33221341
Sinner
Sinner
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активация листа
Как ругается?
Телепатия не мой конек...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.08.2005, 18:23:29
    #33221648
Jem
Jem
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активация листа
Ничего не понятно, и вообще перепиши:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
For Each w In Workbooks ' проверяем открыт файл Журнал.xls или нет
w.Activate
 If w.Name = "Журнал.xls" Then
   Set wbPere4en =w
   Exit For
 End If
Next w
if wbPere4en is Nothing then Set wbPere4en = Workbooks.Open("Журнал.xls")
.....

L1:
wbPere4en.WorkSheets("Лист1").Active
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.08.2005, 19:10:02
    #33221759
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активация листа
а зачем делать w.Activate? Ради экраном поморгать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.08.2005, 19:13:18
    #33221764
Jem
Jem
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активация листа
автора зачем делать w.Activate?

Да, кстати..
Тогда уж и про Goto стоит сказать..
Ну вообще ладно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2005, 15:10:09
    #33223326
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активация листа
Переписал ВСЕ заново ! Другой алгоритм, другими командами. Теперь работает. Спасибо всем !!!
А что бы экран не моргал на время выполнения процедуры отключаю обновление экрана.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2005, 11:04:44
    #33226409
k-nike
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активация листа
А какой командой отключается обновление экрана?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2005, 15:48:18
    #33226637
Jem
Jem
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активация листа
Application.ScreenUpdating=False
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Активация листа / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 404ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2185824]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 73ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 241ms
total:  404ms
x
x
Закрыть


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