Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / обращение к скрытому листу / 8 сообщений из 8, страница 1 из 1
11.08.2012, 14:46
    #37913054
LediJuliya
LediJuliya
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
обращение к скрытому листу
День добрый!
Подскажите, кто-нибудь, как быть.
есть такой вот код:

Private Sub CommandButton1_Click()
Dim rng As Range
Set rng = ActiveCell
rng.Copy Sheets("наряд").Range("D2")


Sheets("наряд").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("расчет").Select

End Sub

но он перестает работать, если я делаю лист VeryHidden. возможно ли что-то сделать, чтобы код заработал со скрытым листом или ничего не поможет?
спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2012, 20:28
    #37913176
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
обращение к скрытому листу
Так наверно
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub CommandButton1_Click()

ActiveCell.Copy Sheets("наряд").Range("D2")

With Sheets("наряд")
    .Visible = xlSheetVisible
    .PrintPreview
    .Visible = xlSheetVeryHidden
End With
Me.Select

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2012, 20:31
    #37913177
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
обращение к скрытому листу
Или так
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub CommandButton1_Click()

With Sheets("наряд")
    ActiveCell.Copy .Range("D2")
    .Visible = xlSheetVisible
    .PrintPreview
    .Visible = xlSheetVeryHidden
End With
'Me.Select 'необязательно
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2012, 20:57
    #37913183
катастрофа
катастрофа
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
обращение к скрытому листу
Казанский, не понял скрывают лист так: ActiveWorkbook.Worksheets("Лист2").Hidden
??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2012, 22:30
    #37913234
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
обращение к скрытому листу
Да?! Это в каком приложении так? Может быть, в ОО? А я про Excel пишу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2012, 22:45
    #37913239
катастрофа
катастрофа
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
обращение к скрытому листу
Казанский,
> А я про Excel пишу.
я про него и спрашиваю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2012, 23:41
    #37913278
LediJuliya
LediJuliya
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
обращение к скрытому листу
КазанскийТак наверно
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub CommandButton1_Click()

ActiveCell.Copy Sheets("наряд").Range("D2")

With Sheets("наряд")
    .Visible = xlSheetVisible
    .PrintPreview
    .Visible = xlSheetVeryHidden
End With
Me.Select

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2012, 23:42
    #37913279
LediJuliya
LediJuliya
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
обращение к скрытому листу
спасибо! работает!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / обращение к скрытому листу / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 887ms
Закрыть
start [/forum/moderation_log.php?user_name=Kuzir]:
 0ms
get settings:
 11ms
get forum list:
 14ms
get settings:
 12ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 30ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 741ms
total:  887ms
x
x
Закрыть


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