VBA Userform не закрывается при нажатии кнопки команды - PullRequest
Новая
       9

VBA Userform не закрывается при нажатии кнопки команды

0 голосов
/ 10 июня 2018

Я запускаю пользовательскую форму в Excel VBA, и она, кажется, работает, но, похоже, не закрывается.Как правило, после ввода данных в форму и нажатия кнопки «ОТПРАВИТЬ» я хотел бы сохранить данные в определенных ячейках и закрыть форму, а также запустить другой субкод.

Ниже приведены моиКод VBA: 

Private Sub CommandButton1_Click()
HaulerRatesForm.Label1.Caption = Worksheets("Dashboard").Range("A47").Value
HaulerRatesForm.Label2.Caption = Worksheets("Dashboard").Range("A48").Value
HaulerRatesForm.Label3.Caption = Worksheets("Dashboard").Range("A49").Value
HaulerRatesForm.Label4.Caption = Worksheets("Dashboard").Range("A50").Value

HaulerRatesForm.Show

End Sub

Private Sub UserForm_Initialize()

End Sub

Private Sub CommandButton2_Click()
Worksheets("Dashboard").Cells(47, "H").Value = HaulerRatesForm.TextBox1.Value
Worksheets("Dashboard").Cells(48, "H").Value = HaulerRatesForm.TextBox2.Value
Worksheets("Dashboard").Cells(49, "H").Value = HaulerRatesForm.TextBox3.Value
Worksheets("Dashboard").Cells(50, "H").Value = HaulerRatesForm.TextBox4.Value

Unload Me

Call Dashboardcodes2

End Sub

Не могу понять, почему Unload Me, похоже, не закрывает окно.Есть идеи, что я здесь делаю не так?

1 Ответ

0 голосов
/ 10 июня 2018

Благодаря urdearboy, этот ответил ранее, кажется, отвечает на мой вопрос.

Я использовал приведенный ниже код, перейдя непосредственно к кнопке пользовательской формы, дважды щелкнув по ней: 

Private Sub CommandButton2_Click()
Worksheets("Dashboard").Cells(47, "H").Value = HaulerRatesForm.TextBox1.Value
Worksheets("Dashboard").Cells(48, "H").Value = HaulerRatesForm.TextBox2.Value
Worksheets("Dashboard").Cells(49, "H").Value = HaulerRatesForm.TextBox3.Value
Worksheets("Dashboard").Cells(50, "H").Value = HaulerRatesForm.TextBox4.Value

Unload Me

End Sub

Я поместил код в Dashboardcodes2 под Unload Me, и теперь все работает отлично.

...