Excel – VBA：Userform.Label不会改变

我的VBA程序在用户input的input上处理一些操作，最终返回结果。

在某个时候，我希望有一些用户performance出来并“调整”研究。 例如，如果用户input了一个不适合的州和城市，就会显示“您是否指城市 州 ？”。 然后，点击是会考虑到修改，点击不会改变任何东西。

我已经尝试了这一点，在一些教程中发现：

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 

不幸的是，它根本不起作用，不pipe我为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