ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / закрытиt окна просмотра
25 сообщений из 29, страница 1 из 2
  1  все
закрытиt окна просмотра
    #36454865
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Здравствуйте.
Подскажите, как при закрытии окна просмотра выполнить обратное действие.

Sheets("Поставщик").Visible = False
UserForm1.Show
...
Рейтинг: 0 / 0
08.02.2010, 11:11
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36454915
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
segailЗдравствуйте.
Подскажите, как при закрытии окна просмотра выполнить обратное действие.

Sheets("Поставщик").Visible = False
UserForm1.Show


вот так

Код: plaintext
1.
2.
3.
Private Sub CommandButton1_Click()
   Me.Hide: Sheets("Поставщик").Visible = True: Sheets("Поставщик").PrintPreview
   Me.Show
End Sub
...
Рейтинг: 0 / 0
08.02.2010, 11:27
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36454921
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
точнее так
Код: plaintext
1.
2.
3.
4.
Private Sub CommandButton1_Click()
   Me.Hide: Sheets("Поставщик").Visible = True: Sheets("Поставщик").PrintPreview
   Sheets("Поставщик").Visible = False
   Me.Show
End Sub
...
Рейтинг: 0 / 0
08.02.2010, 11:29
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36454940
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shamanusточнее так
Код: plaintext
1.
2.
3.
4.
Private Sub CommandButton1_Click()
   Me.Hide: Sheets("Поставщик").Visible = True: Sheets("Поставщик").PrintPreview
   Sheets("Поставщик").Visible = False
   Me.Show
End Sub

При первом выполнение все нормально, а при втором выполнение выдает ошибку.
...
Рейтинг: 0 / 0
08.02.2010, 11:38
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36454950
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
segail
При первом выполнение все нормально, а при втором выполнение выдает ошибку.

Сейчас попробовал у себя, все вроде нормально, а что за ошибка. Скрин или номер.
...
Рейтинг: 0 / 0
08.02.2010, 11:42
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36454998
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shamanussegail
При первом выполнение все нормально, а при втором выполнение выдает ошибку.

Сейчас попробовал у себя, все вроде нормально, а что за ошибка. Скрин или номер.
...
Рейтинг: 0 / 0
08.02.2010, 11:54
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36455072
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
segail,

жесть,
не видел такого ни разу

у меня вот этот файл работает.
...
Рейтинг: 0 / 0
08.02.2010, 12:20
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36455103
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shamanus,

Работает. Наверно я не вставил
Application.ScreenUpdating = False
Application.ScreenUpdating = True
Только почему окно просмотра заблокировано? Нельзя выполнить команду печать.
...
Рейтинг: 0 / 0
08.02.2010, 12:28
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36455133
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
segail,

скрин апдейт это просто обновление экрана, я эту строку вставил для "красоты".

Так сейчас у Вас заработало?
...
Рейтинг: 0 / 0
08.02.2010, 12:36
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36455192
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shamanussegail,

скрин апдейт это просто обновление экрана, я эту строку вставил для "красоты".

Так сейчас у Вас заработало?
Работает. Только печать и параметры печати заблокированы.
...
Рейтинг: 0 / 0
08.02.2010, 12:52
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36455253
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
segail,

а если Вы вручную предварительный просмотр делаете, то получается использовать настройки??
...
Рейтинг: 0 / 0
08.02.2010, 13:06
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36455260
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shamanussegail,

а если Вы вручную предварительный просмотр делаете, то получается использовать настройки??
Да нормально, у меня Excel 2007…
...
Рейтинг: 0 / 0
08.02.2010, 13:08
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36455291
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
segail,

тогда вот эти строки убейте
Application.ScreenUpdating = False
Application.ScreenUpdating = True

у меня в 2003 все ок, а в 2007 действительно пропадают, видимо там превью это другой тип объекта

Но этот код (без ScreenUpdating) у меня запустился в 2003 и в 2007 и в 2010beta и нигде не сбоит.
...
Рейтинг: 0 / 0
08.02.2010, 13:15
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36455307
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
попробуйте так
...
Рейтинг: 0 / 0
08.02.2010, 13:18
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36455386
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shamanus,
Я ничего не убирал, просто вставил код в рабочий файл. Вроде работает без сбоев и блокировки. Не пойму…
...
Рейтинг: 0 / 0
08.02.2010, 13:49
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36455402
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shamanusпопробуйте так
Второй пример тоже работает. Но блокированы команды печать и параметры печати.
А если данный код вставляю в рабочий файл, то все нормально (а в черновом варианте не работает, в смысле заблокированы параметры печати)
...
Рейтинг: 0 / 0
08.02.2010, 13:54
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36455431
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
segail,

у меня кстати в 2010 excel ошибка на .visible = false и краххх.....
...
Рейтинг: 0 / 0
08.02.2010, 14:07
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36455456
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
big-duke,

у меня 2010 portable на "стационарном" не пробовал
...
Рейтинг: 0 / 0
08.02.2010, 14:15
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36455682
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shamanus,

Короче у меня вот такой вариант получился.

Проблема в том, что необходимо сделать выборку столбца 31 диапазон =Отчет!$AE$6:$AE$443

Необходимо при клике по кнопке “Поставщик” выбрать все данные листа "Отчет" столбца 31 диапазон =Отчет!$AE$6:$AE$443, и перенести их на лист “Поставщик” и вставить в столбец 1, начиная с третьей строки. В примере показано что при клике по кнопке “Поставщик” пользователь попадает в “Окно просмотра” в это время должна происходить и выборка данных. После закрытия окна просмотра, данные листа “Поставщик” удаляются. .
...
Рейтинг: 0 / 0
08.02.2010, 15:40
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36455799
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
segail,

так?
...
Рейтинг: 0 / 0
08.02.2010, 16:20
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36455895
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Парни, вы в примеры этот код вставьте :)
Код: plaintext
1.
2.
3.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ChangeInterface True
End Sub
...
Рейтинг: 0 / 0
08.02.2010, 16:52
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36455958
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
Hugo121Парни, вы в примеры этот код вставьте :)
Код: plaintext
1.
2.
3.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ChangeInterface True
End Sub


Мне как дали я так и вернул :)
...
Рейтинг: 0 / 0
08.02.2010, 17:13
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36455993
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shamanus,

Пробелы между данными как то удалить, ну чтобы была последовательность данных бес пробелов.
...
Рейтинг: 0 / 0
08.02.2010, 17:28
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36456047
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
segailShamanus,

Пробелы между данными как то удалить, ну чтобы была последовательность данных бес пробелов.

еще пожелания повелитель :)
...
Рейтинг: 0 / 0
08.02.2010, 17:45
| Ответить | Цитировать | Написать  
закрытиt окна просмотра
    #36456139
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
ShamanussegailShamanus,

Пробелы между данными как то удалить, ну чтобы была последовательность данных бес пробелов.

еще пожелания повелитель :)
Благодарю, что уделили внимание.
Вопросик не большой обязательно ли использовать код восстановления?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ChangeInterface True
End Sub
...
Рейтинг: 0 / 0
08.02.2010, 18:23
| Ответить | Цитировать | Написать  
25 сообщений из 29, страница 1 из 2
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / закрытиt окна просмотра
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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