Выполнить последовательность кода

Вход

Регистрация

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

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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Выполнить последовательность кода (Макросы/Sub)

Выполнить последовательность кода

Сергей13

Дата: Суббота, 12.10.2019, 03:09 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 344

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Здравствуйте
Ребята при клике по кнопке на форме должна быть выполнена последовательность действий
1. Изменить высоту объекту лейбл на форме
2. Выполнить действия на листе excel
но при выполнении кода изменение высоты объекта выполняется в последнюю очередь.
Каким образом выполнить код по выше описанной последовательности?

К сообщению приложен файл: 1458246.xlsm (62.3 Kb)

Ответить

Апострофф

Дата: Суббота, 12.10.2019, 15:41 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 458

Репутация: 126 ±

Замечаний: 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]

Ответить

Выполнить последовательность кода (Макросы/Sub)

Страница 1 из 1
1