Question

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

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

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

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

第一次打开时未填充VBA Userform，但第二次运行时

1 个答案: