VBA Userform在第一次打开时没有填充，但是第二次运行

我正在使用Excel，并使用用户窗体。 这个想法是突出显示一行，然后单击打开我的使用表单的button。 活动行的第10列由注释组成。 我已经对button进行了编码，以便在单击该button时，文本框会自动填充第10列的内容。然后，用户可以添加到当前的评论，然后按提交进行更改。

问题是，当第一次按下button时，使用表单不会填充注释。 如果我退出并再次执行procuedre，那么它就可以工作。 我做错了什么？ 该button的代码如下（文本框被称为“评论”）：

Private Sub CommandButton1_Click() Dim ws1 As Worksheet Set ws1 = Worksheets("Now") UserForm1.Show 'Add current comments to box UserForm1.Comment.Value = ws1.Cells(ActiveCell.row, 10).Value End Sub 

Answer 1

尝试重新安排您的代码是这样的：

 Private Sub CommandButton1_Click() Dim ws1 As Worksheet Set ws1 = Worksheets("Now") 'Add current comments to box UserForm1.comment.Value = ws1.Cells(ActiveCell.Row, 10).Value UserForm1.Show End Sub 

这应该显示给你之前加载数据到文本框中。