excel - Excel - VBA：Userform.Label 不会改变

Question

我的 VBA 程序处理用户输入的一些操作并最终返回结果。

在某个时候，我想让一些用户表单出现并“调整”研究。例如，如果用户键入了一个不适合的州和城市，它将显示“您的意思是州内的城市吗？”。然后，单击是将考虑修改，单击否不会更改任何内容。

正如在一些教程中发现的那样，我已经尝试过了：

city = sMain.Range("J12").Value
province = sMain.Range("J6").Value
provinceSugg = sCurrent.Cells(p, db_column).Value

If province = "" And city <> "" Then
UserForm2.Show
UserForm2.Label1 = "Do you mean : " & city & " in " & provinceSugg
Else
End If

不幸的是，它根本不起作用，无论我为 Label1 写什么文本以及我使用什么写作方式（Label1.Caption = 、 Userform2.Label1.Caption = 、 Label1 = 等），仍然没有变化。

感谢您帮助我解决此问题！

Answer 1

在显示表单之前设置标题......像这样：

city = sMain.Range("J12").Value
province = sMain.Range("J6").Value
provinceSugg = sCurrent.Cells(p, db_column).Value

If province = "" And city <> "" Then
UserForm2.Label1 = "Do you mean : " & city & " in " & provinceSugg
UserForm2.Show
Else
End If

Answer 2

使用 vbModeless ..

If province = "" And city <> "" Then
  UserForm2.Show vbModeless
  UserForm2.Label1 = "Do you mean : " & city & " in " & provinceSugg
Else

End If