Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Положение формы при открытии - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Положение формы при открытии
Otter Дата: Четверг, 06.09.2018, 10:57 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 174
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019, Word 2019
Бывает когда форма, запущенная из предыдущей закрывает нужное место в документе. Пример в приложении где последующая форма открывается от предыдущей. Как доработать код чтобы положение формы при открытии было то же самое какое занимала предыдущая форма, а не по центру.

Что в итоге нужно:
- переместили форму 1 и при открытии формы 2 она на то же месте, где была форма 1.
- переместили форму 2 и запустили из нее форму 1 и она то же на том же месте, где была ранее форма 2.
К сообщению приложен файл: Doc1.docm (25.9 Kb)
 
Ответить
СообщениеБывает когда форма, запущенная из предыдущей закрывает нужное место в документе. Пример в приложении где последующая форма открывается от предыдущей. Как доработать код чтобы положение формы при открытии было то же самое какое занимала предыдущая форма, а не по центру.

Что в итоге нужно:
- переместили форму 1 и при открытии формы 2 она на то же месте, где была форма 1.
- переместили форму 2 и запустили из нее форму 1 и она то же на том же месте, где была ранее форма 2.

Автор - Otter
Дата добавления - 06.09.2018 в 10:57
_Boroda_ Дата: Четверг, 06.09.2018, 11:09 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16714
Репутация: 6503 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Private Sub CommandButton1_Click()
lf_ = UserForm2.Left
tp_ = UserForm2.Top
Unload Me
UserForm1.Show vbModeless
UserForm1.Left = lf_
UserForm1.Top = tp_
End Sub
[/vba]
К сообщению приложен файл: Doc1_1.docm (24.8 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Private Sub CommandButton1_Click()
lf_ = UserForm2.Left
tp_ = UserForm2.Top
Unload Me
UserForm1.Show vbModeless
UserForm1.Left = lf_
UserForm1.Top = tp_
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 06.09.2018 в 11:09
Otter Дата: Четверг, 06.09.2018, 11:19 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 174
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019, Word 2019
_Boroda_, Спасибо, да так именно что нужно.
Обратил внимание, что надо убрать обновление экрана, а то при переключении видно.
Попробовал код [vba]
Код
Application.ScreenUpdating = False ' Отключаем “мерцание” окна
[/vba]
Что то не работает. Может не туда ставил или по другому как то отключить.


Сообщение отредактировал Otter - Четверг, 06.09.2018, 11:25
 
Ответить
Сообщение_Boroda_, Спасибо, да так именно что нужно.
Обратил внимание, что надо убрать обновление экрана, а то при переключении видно.
Попробовал код [vba]
Код
Application.ScreenUpdating = False ' Отключаем “мерцание” окна
[/vba]
Что то не работает. Может не туда ставил или по другому как то отключить.

Автор - Otter
Дата добавления - 06.09.2018 в 11:19
StoTisteg Дата: Вторник, 25.09.2018, 10:48 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
Otter, я не понял логики. Вы отключили обновление экрана, но при этом хотите видеть на нём изменения. Это как?


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеOtter, я не понял логики. Вы отключили обновление экрана, но при этом хотите видеть на нём изменения. Это как?

Автор - StoTisteg
Дата добавления - 25.09.2018 в 10:48
_Boroda_ Дата: Вторник, 25.09.2018, 11:20 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16714
Репутация: 6503 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
при переключении видно
что? У меня все моментально перепрыгивает
Если у Вас как-то потормознутее работает, то попробуйте так
[vba]
Код
Private Sub CommandButton1_Click()
    lf_ = UserForm1.Left
    tp_ = UserForm1.Top
    Application.ScreenUpdating = 0
    Unload Me
    UserForm2.Show vbModeless
    UserForm2.Left = lf_
    UserForm2.Top = tp_
    Application.ScreenUpdating = 1
End Sub
[/vba]
Но не думаю, что это поможет

Вот так попробуйте
[vba]
Код
Private Sub CommandButton1_Click()
    lf_ = UserForm1.Left
    tp_ = UserForm1.Top
    Unload Me
    With UserForm2
        .Show vbModeless
        .Left = lf_
        .Top = tp_
    End With
End Sub
[/vba]
Хотя не, глупость


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
при переключении видно
что? У меня все моментально перепрыгивает
Если у Вас как-то потормознутее работает, то попробуйте так
[vba]
Код
Private Sub CommandButton1_Click()
    lf_ = UserForm1.Left
    tp_ = UserForm1.Top
    Application.ScreenUpdating = 0
    Unload Me
    UserForm2.Show vbModeless
    UserForm2.Left = lf_
    UserForm2.Top = tp_
    Application.ScreenUpdating = 1
End Sub
[/vba]
Но не думаю, что это поможет

Вот так попробуйте
[vba]
Код
Private Sub CommandButton1_Click()
    lf_ = UserForm1.Left
    tp_ = UserForm1.Top
    Unload Me
    With UserForm2
        .Show vbModeless
        .Left = lf_
        .Top = tp_
    End With
End Sub
[/vba]
Хотя не, глупость

Автор - _Boroda_
Дата добавления - 25.09.2018 в 11:20
Otter Дата: Понедельник, 01.10.2018, 12:45 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 174
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019, Word 2019
_Boroda_, Спасибо за желание помочь и примеры. Увы оба варианта не помогли.
Да ладно с этим можно смириться главное, что окна не перемещаются в центр.
 
Ответить
Сообщение_Boroda_, Спасибо за желание помочь и примеры. Увы оба варианта не помогли.
Да ладно с этим можно смириться главное, что окна не перемещаются в центр.

Автор - Otter
Дата добавления - 01.10.2018 в 12:45
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!