excel - 从用户窗体上的文本框中更新 Excel 电子表格

Question

大家晚上好，

再次为可能是另一个新手问题道歉。

我有一个 Excel 电子表格，其中包含一个包含文档编号、标题、作者等信息的文档列表。该电子表格链接到我的用户表单，因此我可以获得文档的所有信息并在我的表单中很好地显示它。

我现在想做的是能够从我的表单中编辑电子表格中的数据。例如，我有一个“评论”单元格。我希望能够打开我的表单，在评论框中输入评论，然后将该评论插入电子表格的评论单元格中。然后，下次使用时，当我打开表单以显示该文档的数据时，评论会重新加载并允许我继续进行其他评论。

我尝试了以下代码：

    Private Sub txtcomment_Change()

    Dim DOCUMENT As String
    DOCUMENT = TPForm.TP_No_text.Text
 
    Dim Search_Range As Range
    Set Search_Range = Worksheets("Sheet 1").Range("B1:v107")

    Dim matchRow
    matchRow = Application.Match(DOCUMENT, Search_Range.Columns(1), 0)
    If Not IsError(matchRow) Then
    Dim comment As Range
    Set comment = Search_Range.Cells(matchRow, 21)
    comment.Value = txtcomment.Text

    End If
    End Sub

这种工作方式，当我在评论文本框中输入评论时，它会将其插入到单元格中以获取我打开的文档信息 - 但是如果我关闭该用户表单并在用户表单中打开另一个文档，它会放置相同的评论在该文件以及下一个和下一个。然后当我直接从电子表格中删除它并重新打开用户表单时，评论仍然存在。

有谁知道如何正确地做到这一点？

抱歉，如果我不是很清楚。谢谢詹姆斯

标签： excelvbatextboxuserform