Поставьте свойство формы ShowModal = FALSE
тогда она после выполнения метода Show продолжит принимать команды,
и можно будет переключаться между формой и листом.
И всё сразу заработает.
Если же, при работе с формой, надо исключить доступ пользователя к листу Excel,
заполняйте поля формы кодом ВНУТРИ ФОРМЫ:
Код вызова формы:
| Код |
|---|
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub |
Код внутри формы:
| Код |
|---|
Private Sub UserForm_Initialize() ' срабатывает при запуске формы
' заполняем поля данными с листа Excel
Me.TextBox1 = Sheets("Лист1").Range("A1")
Me.TextBox2 = Sheets("Лист1").Range("A2")
Me.TextBox3 = Sheets("Лист1").Range("A3")
End Sub
Private Sub CommandButton1_Click()
UserForm1.TextBox1 = ""
UserForm1.TextBox2 = ""
UserForm1.TextBox3 = ""
UserForm1.Hide
End Sub |
