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

Вход

Регистрация

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

 

= Мир MS Excel/Выполнить последовательность кода - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выполнить последовательность кода (Макросы/Sub)
Выполнить последовательность кода
Сергей13 Дата: Суббота, 12.10.2019, 03:09 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 344
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте
Ребята при клике по кнопке на форме должна быть выполнена последовательность действий
1. Изменить высоту объекту лейбл на форме
2. Выполнить действия на листе excel
но при выполнении кода изменение высоты объекта выполняется в последнюю очередь.
Каким образом выполнить код по выше описанной последовательности?
К сообщению приложен файл: 1458246.xlsm (62.3 Kb)
 
Ответить
СообщениеЗдравствуйте
Ребята при клике по кнопке на форме должна быть выполнена последовательность действий
1. Изменить высоту объекту лейбл на форме
2. Выполнить действия на листе excel
но при выполнении кода изменение высоты объекта выполняется в последнюю очередь.
Каким образом выполнить код по выше описанной последовательности?

Автор - Сергей13
Дата добавления - 12.10.2019 в 03:09
Апострофф Дата: Суббота, 12.10.2019, 15:41 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 444
Репутация: 122 ±
Замечаний: 0% ±

Excel 1997
Сергей13, перерисуйте форму после изменения Label1.Height
[vba]
Код
Private Sub CommandButton1_Click()
    
    UserForm1.Label1.Height = 45 'Закрыть перед выполнением кода
    
    Me.Repaint

    Call Макрос1                 'Выполнить код
    
    UserForm1.Label1.Height = 18 'Открыть после выполнения кода

End Sub
[/vba]
 
Ответить
СообщениеСергей13, перерисуйте форму после изменения Label1.Height
[vba]
Код
Private Sub CommandButton1_Click()
    
    UserForm1.Label1.Height = 45 'Закрыть перед выполнением кода
    
    Me.Repaint

    Call Макрос1                 'Выполнить код
    
    UserForm1.Label1.Height = 18 'Открыть после выполнения кода

End Sub
[/vba]

Автор - Апострофф
Дата добавления - 12.10.2019 в 15:41
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выполнить последовательность кода (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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