Не открывается UserForm, кнопка в режиме редактирования.

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не открывается UserForm, кнопка в режиме редактирования. (Макросы/Sub)

Александр7034

Дата: Понедельник, 04.03.2024, 09:19 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 58

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

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

Столкнулся с "непонятностью" с запуском пользовательской формы UserForm1. Изначально когда сделал, пользовательская форма открывалась с кнопки, в ней выбиралось то что нужно, все работало хорошо. Но походу выяснилось, что некоторые элементы для удобства. должны быть заранее нажаты и прописаны. К примеру, при открытии книги, должен быть нажат переключатель 1, и в поле выбора ComboBox1 должны быть прописаны строки выбора. Для этого прописал соответствующие команды при открытии книги. [vba]

Код

Private Sub Workbook_Open()
     Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("доп")
ws.Range("Z2").Value = True
InitializeWorkbook
End Sub

[/vba] И в ячейке Z2 прописывается ИСТИНА, на эту ячейку записан переключатель 1, она нужна для формул. Так после этого документ может вылететь, кнопка запуска формы не нажимается, висит в режиме редактирования. В вложеном примере оставил самое необходимое, хотелось бы понять дело в нюансах работы excel, сам то макрос простой.

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

Сообщение отредактировал Serge_007 - Понедельник, 04.03.2024, 09:55

Ответить

Pelena

Дата: Понедельник, 04.03.2024, 10:55 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19187

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

Замечаний: ±

Excel 365 & Mac Excel

Цитата Александр7034, 04.03.2024 в 09:19, в сообщении № 1 (

)

некоторые элементы для удобства. должны быть заранее нажаты и прописаны

всё, что требуется сделать при открытии формы, надо прописать в событии инициализации формы.
Кнопку перерисовала, т.к. она у Вас превратилась в рисунок

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

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Александр7034

Дата: Вторник, 05.03.2024, 10:44 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 58

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

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

Цитата Pelena, 04.03.2024 в 10:55, в сообщении № 2 (

)

всё, что требуется сделать при открытии формы, надо прописать в событии инициализации формы.

Ваш пример работает. Но когда в нем прописал там же, открытие пользовательской формы при открытии книги, так вообще стал вылетать с ошибкой: Path/File access error, фаил закрывается и потом восстанавливается копия. Причем первое открытие книги происходит нормально. Но если открыть закрыть пользовательскую форму и сохраниться. То на следующих открытиях эта ошибка.
[vba]

Код

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("доп")
    ws.Range("Z2").Value = True

    ' добавил следующее
    UserForm1.StartUpPosition = 0
    UserForm1.Top = 30 + Application.Top
    UserForm1.Left = 990 + Application.Left
    UserForm1.Show
End Sub

[/vba]

Сообщение отредактировал Александр7034 - Вторник, 05.03.2024, 11:11

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не открывается UserForm, кнопка в режиме редактирования. (Макросы/Sub)

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